Procedure

TfrmReports.tvReportsClick

Module

fReports

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReports

Declaration

procedure tvReportsClick(Sender: TObject);

Calls Hierarchy


TfrmReports.tvReportsClick
 ├SaveColumnSizes
 ├TfrmReports.BlankWeb
 ├TfrmReports.DisplayHeading
 │ └ValidDateTimeStr
 ├ColumnHeaders
 ├TRowObject.Clear
 ├TRemoteSite.ReportClear
 ├TfrmReports.GraphPanel
 │ ├StrToFMDateTime
 │ ├TfrmGraphs.DateDefaults
 │ └TfrmReports.lstDateRangeClick
 │   └TfrmGraphs.cboDateRangeChange
 │     ├TfrmGraphs.SelCopy
 │     ├TfrmGraphs.HideGraphs
 │     ├TfrmGraphs.DateSteps
 │     ├TfrmGraphs.FilterListView
 │     │ ├TfrmGraphs.TypeIsDisplayed
 │     │ ├TfrmGraphs.DateRangeItems
 │     │ │ ├rpcDateItem
 │     │ │ │ └onoff
 │     │ │ ├TfrmGraphs.FileNameX
 │     │ │ ├TfrmGraphs.UpdateView
 │     │ │ └TfrmGraphs.DateRangeMultiItems
 │     │ ├TfrmGraphs.FileNameX
 │     │ ├TfrmGraphs.UpdateView
 │     │ └TfrmGraphs.SortListView
 │     │   ├TfrmGraphs.lvwItemsTopColumnClick
 │     │   ├TfrmGraphs.lvwItemsBottomColumnClick
 │     │   └TfrmGraphs.AssignProfile
 │     │     └TfrmGraphs.SetProfile
 │     │       └TfrmGraphs.ProfileName
 │     │         └TfrmGraphs.DCName
 │     │           └rpcClass
 │     │             └onoff
 │     ├TfrmGraphs.SelReset
 │     ├TfrmGraphs.DisplayData
 │     │ ├TfrmGraphs.SetFontSize
 │     │ ├TfrmGraphs.ItemsClick
 │     │ │ ├TfrmGraphs.CheckExpandedLabs
 │     │ │ │ └TfrmGraphs.cboDateRangeChange...
 │     │ │ ├TfrmGraphs.HideGraphs
 │     │ │ ├TfrmGraphs.CheckToAddData
 │     │ │ │ ├TfrmGraphs.LabData
 │     │ │ │ │ ├rpcGetItemData
 │     │ │ │ │ │ └onoff
 │     │ │ │ │ ├TfrmGraphs.SpecRefCheck
 │     │ │ │ │ │ └TfrmGraphs.RefUnits
 │     │ │ │ │ │   └TfrmGraphs.SelectRef
 │     │ │ │ │ │     └CheckRef
 │     │ │ │ │ ├TfrmGraphs.SpecRefSet
 │     │ │ │ │ │ └MultiRef
 │     │ │ │ │ ├TfrmGraphs.FileNameX
 │     │ │ │ │ ├TfrmGraphs.LabCheck
 │     │ │ │ │ ├TfrmGraphs.DateRangeMultiItems
 │     │ │ │ │ └TfrmGraphs.LabAdd
 │     │ │ │ └rpcGetItemData...
 │     │ │ ├TfrmGraphs.DisplayData...
 │     │ │ └TfrmGraphs.ZoomUpdate
 │     │ │   ├TfrmGraphs.ZoomTo
 │     │ │   │ └TfrmGraphs.SizeDates
 │     │ │   │   ├TfrmGraphs.GraphFooter
 │     │ │   │   └TfrmGraphs.SeriesForLabels
 │     │ │   └TfrmGraphs.ZoomUpdateInfo
 │     │ │     ├TfrmGraphs.InfoMessage
 │     │ │     └TfrmGraphs.MergedLabsSelected
 │     │ ├TfrmGraphs.MakeSeparate
 │     │ │ ├TfrmGraphs.chartBaseMouseMove
 │     │ │ │ └TfrmGraphs.InactivateHint
 │     │ │ ├TfrmGraphs.MakeSeparateItems
 │     │ │ │ ├TfrmGraphs.GraphTypeNum
 │     │ │ │ ├TfrmGraphs.TitleInfo
 │     │ │ │ │ └TfrmGraphs.RefUnits...
 │     │ │ │ ├TfrmGraphs.MakeChart
 │     │ │ │ │ ├TfrmGraphs.HideDates
 │     │ │ │ │ ├TfrmGraphs.ChartOnZoom
 │     │ │ │ │ │ ├TfrmGraphs.SizeDates...
 │     │ │ │ │ │ └TfrmGraphs.ZoomUpdateInfo...
 │     │ │ │ │ ├TfrmGraphs.ChartOnUndoZoom
 │     │ │ │ │ │ ├TfrmGraphs.SizeDates...
 │     │ │ │ │ │ ├TfrmGraphs.InfoMessage
 │     │ │ │ │ │ └TfrmGraphs.MergedLabsSelected
 │     │ │ │ │ ├TfrmGraphs.chartBaseClickSeries
 │     │ │ │ │ │ ├TfrmGraphs.InactivateHint
 │     │ │ │ │ │ └TfrmGraphs.SeriesClicks
 │     │ │ │ │ │   ├TfrmGraphs.ValueText
 │     │ │ │ │ │   │ ├TfrmGraphs.NonNumText
 │     │ │ │ │ │   │ │ ├TfrmGraphs.FileNameX
 │     │ │ │ │ │   │ │ ├TfrmGraphs.ItemName
 │     │ │ │ │ │   │ │ └TfrmGraphs.SetRefNonNum
 │     │ │ │ │ │   │ │   └TfrmGraphs.RefUnits...
 │     │ │ │ │ │   │ ├TfrmGraphs.ItemCheck
 │     │ │ │ │ │   │ ├TfrmGraphs.CheckMedNum
 │     │ │ │ │ │   │ ├TfrmGraphs.FileNameX
 │     │ │ │ │ │   │ ├TfrmGraphs.ValueDates
 │     │ │ │ │ │   │ ├TfrmGraphs.ResultValue
 │     │ │ │ │ │   │ │ ├TfrmGraphs.serDatelineTopGetMarkText
 │     │ │ │ │ │   │ │ └TfrmGraphs.BPValue
 │     │ │ │ │ │   │ └TfrmGraphs.OtherInfo
 │     │ │ │ │ │   │   └TfrmGraphs.SetRef
 │     │ │ │ │ │   │     └TfrmGraphs.RefUnits...
 │     │ │ │ │ │   ├TfrmGraphs.LabNameResults
 │     │ │ │ │ │   └TfrmGraphs.AllTypeDate
 │     │ │ │ │ │     ├TfrmGraphs.CheckToAddData...
 │     │ │ │ │ │     ├TfrmGraphs.TempData
 │     │ │ │ │ │     │ ├TfrmGraphs.ItemName
 │     │ │ │ │ │     │ └TfrmGraphs.SetRef...
 │     │ │ │ │ │     └ReportBox
 │     │ │ │ │ │       └CreateReportBox
 │     │ │ │ │ │         └TfrmBase508Form.Create
 │     │ │ │ │ │           ├TfrmBase508Form.UpdateAccessibilityActions
 │     │ │ │ │ │           ├UnfocusableControlEnter
 │     │ │ │ │ │           └AdjustControls
 │     │ │ │ │ │             ├TfrmBase508Form.ModifyUnfocusableControl
 │     │ │ │ │ │             └..(rec)..
 │     │ │ │ │ ├TfrmGraphs.chartBaseClickLegend
 │     │ │ │ │ │ └TfrmGraphs.ItemDateRange
 │     │ │ │ │ │   ├TfrmGraphs.ValueText...
 │     │ │ │ │ │   └ReportBox...
 │     │ │ │ │ ├TfrmGraphs.mnuPopGraphDetailsClick
 │     │ │ │ │ │ ├TfrmGraphs.ItemCheck
 │     │ │ │ │ │ ├TfrmGraphs.HSAbbrev
 │     │ │ │ │ │ ├TfrmGraphs.ValueText...
 │     │ │ │ │ │ ├TfrmGraphs.LabNameResults
 │     │ │ │ │ │ ├TfrmGraphs.AllTypeDate...
 │     │ │ │ │ │ ├TfrmGraphs.OneDayTypeDetails
 │     │ │ │ │ │ │ ├TfrmGraphs.FileNameX
 │     │ │ │ │ │ │ ├TfrmGraphs.ItemName
 │     │ │ │ │ │ │ ├rpcDetailDay
 │     │ │ │ │ │ │ │ └onoff
 │     │ │ │ │ │ │ ├TfrmGraphs.NotifyApps
 │     │ │ │ │ │ │ └ReportBox...
 │     │ │ │ │ │ └TfrmGraphs.AllDetails
 │     │ │ │ │ │   ├TfrmGraphs.HSAbbrev
 │     │ │ │ │ │   ├rpcDetailSelected
 │     │ │ │ │ │   │ └onoff
 │     │ │ │ │ │   ├TfrmGraphs.NotifyApps
 │     │ │ │ │ │   ├ReportBox...
 │     │ │ │ │ │   └TfrmGraphs.ItemDateRange...
 │     │ │ │ │ ├TfrmGraphs.chartBaseMouseDown
 │     │ │ │ │ │ ├TfrmGraphs.InactivateHint
 │     │ │ │ │ │ └TfrmGraphs.MouseClicks
 │     │ │ │ │ │   └TfrmGraphs.LabelClicks
 │     │ │ │ │ │     ├TfrmGraphs.mnuPopGraphDetailsClick...
 │     │ │ │ │ │     ├TfrmGraphs.ValueText...
 │     │ │ │ │ │     ├TfrmGraphs.LabNameResults
 │     │ │ │ │ │     └TfrmGraphs.AllTypeDate...
 │     │ │ │ │ ├TfrmGraphs.chartBaseMouseUp
 │     │ │ │ │ └TfrmGraphs.chartBaseMouseMove...
 │     │ │ │ ├TfrmGraphs.PadLeftEvent
 │     │ │ │ ├TfrmGraphs.MakeLineSeries
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesInfo
 │     │ │ │ │ │ ├TfrmGraphs.GetData
 │     │ │ │ │ │ │ └TfrmGraphs.FMCorrectedDate
 │     │ │ │ │ │ └TfrmGraphs.NextColor
 │     │ │ │ │ ├TfrmGraphs.NextPointerStyle
 │     │ │ │ │ ├TfrmGraphs.BPCheck
 │     │ │ │ │ │ └TfrmGraphs.MakeSeriesBP
 │     │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │ │ │ │ ├TfrmGraphs.HighLow
 │     │ │ │ │ │ └TfrmGraphs.FMToDateTime
 │     │ │ │ │ ├TfrmGraphs.BPAdd
 │     │ │ │ │ │ └TfrmGraphs.BorderValue
 │     │ │ │ │ ├TfrmGraphs.NumAdd
 │     │ │ │ │ │ ├TfrmGraphs.StdDev
 │     │ │ │ │ │ ├TfrmGraphs.BorderValue
 │     │ │ │ │ │ └TfrmGraphs.InvVal
 │     │ │ │ │ ├TfrmGraphs.NonNumSave
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesRef
 │     │ │ │ │ │ └TfrmGraphs.BorderValue
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
 │     │ │ │ │ ├TfrmGraphs.PainAdd
 │     │ │ │ │ └TfrmGraphs.FixedDates
 │     │ │ │ ├TfrmGraphs.MakeBarSeries
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
 │     │ │ │ │ ├TfrmGraphs.NextPointerStyle
 │     │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │ │ │ │ ├TfrmGraphs.HighLow...
 │     │ │ │ │ ├TfrmGraphs.InfoMessage
 │     │ │ │ │ ├TfrmGraphs.MergedLabsSelected
 │     │ │ │ │ └TfrmGraphs.FixedDates
 │     │ │ │ ├TfrmGraphs.MakeVisitGanttSeries
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
 │     │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │ │ │ │ ├TfrmGraphs.HighLow...
 │     │ │ │ │ └TfrmGraphs.FixedDates
 │     │ │ │ ├TfrmGraphs.MakePointSeries
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
 │     │ │ │ │ ├TfrmGraphs.NextPointerStyle
 │     │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │ │ │ │ ├TfrmGraphs.HighLow...
 │     │ │ │ │ └TfrmGraphs.TempCheck
 │     │ │ │ ├TfrmGraphs.MakeGanttSeries
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesPoint
 │     │ │ │ │ ├TfrmGraphs.MakeSeriesInfo...
 │     │ │ │ │ ├TfrmGraphs.FMCorrectedDate
 │     │ │ │ │ ├TfrmGraphs.HighLow...
 │     │ │ │ │ └TfrmGraphs.FixedDates
 │     │ │ │ └TfrmGraphs.MakeOtherSeries
 │     │ │ │   ├TfrmGraphs.MakeNonNumerics
 │     │ │ │   │ ├TfrmGraphs.PadNonNum
 │     │ │ │   │ │ ├TfrmGraphs.StackNonNum
 │     │ │ │   │ │ └TfrmGraphs.MakeSeriesPoint
 │     │ │ │   │ ├TfrmGraphs.MakeSeriesPoint
 │     │ │ │   │ ├TfrmGraphs.PadLeftNonNumeric
 │     │ │ │   │ ├TfrmGraphs.ChartOnUndoZoom...
 │     │ │ │   │ └TfrmGraphs.MakeNonNumSeries
 │     │ │ │   │   └TfrmGraphs.MakeSeriesPoint
 │     │ │ │   ├TfrmGraphs.DisplayFreeText
 │     │ │ │   └TfrmGraphs.MakeComments
 │     │ │ │     └TfrmGraphs.MakeSeriesPoint
 │     │ │ └TfrmGraphs.AdjustTimeframe
 │     │ │   └TfrmGraphs.BottomAxis
 │     │ │     └..(rec)..
 │     │ ├TfrmGraphs.MakeTogetherMaybe
 │     │ │ ├TfrmGraphs.MakeSeparate...
 │     │ │ └TfrmGraphs.MakeTogether
 │     │ │   ├TfrmGraphs.GraphTypeNum
 │     │ │   ├TfrmGraphs.MakeChart...
 │     │ │   ├TfrmGraphs.PortionSize
 │     │ │   ├TfrmGraphs.SizeTogether
 │     │ │   ├TfrmGraphs.MakeTogetherNoLines
 │     │ │   │ ├TfrmGraphs.GraphTypeNum
 │     │ │   │ └TfrmGraphs.MakeDateline
 │     │ │   │   ├TfrmGraphs.MakeBarSeries...
 │     │ │   │   ├TfrmGraphs.MakeVisitGanttSeries...
 │     │ │   │   ├TfrmGraphs.MakePointSeries...
 │     │ │   │   └TfrmGraphs.MakeGanttSeries...
 │     │ │   ├TfrmGraphs.MakeTogetherOnlyLines
 │     │ │   │ ├TfrmGraphs.TitleInfo...
 │     │ │   │ ├TfrmGraphs.MakeLineSeries...
 │     │ │   │ └TfrmGraphs.DisplayFreeText
 │     │ │   ├TfrmGraphs.MakeTogetherAnyLines
 │     │ │   │ ├TfrmGraphs.SingleLabTest
 │     │ │   │ ├TfrmGraphs.TitleInfo...
 │     │ │   │ ├TfrmGraphs.GraphTypeNum
 │     │ │   │ ├TfrmGraphs.MakeLineSeries...
 │     │ │   │ ├TfrmGraphs.DisplayFreeText
 │     │ │   │ └TfrmGraphs.MakeDateline...
 │     │ │   ├TfrmGraphs.MakeOtherSeries...
 │     │ │   └TfrmGraphs.GraphBoundry
 │     │ │     ├TfrmGraphs.chartBaseMouseMove...
 │     │ │     └TfrmGraphs.AdjustTimeframe...
 │     │ └TfrmGraphs.DisplayDataInfo
 │     │   ├TfrmGraphs.ChangeStyle
 │     │   │ ├TfrmGraphs.ChartStyle
 │     │   │ │ └TfrmGraphs.HideDates
 │     │   │ └TfrmGraphs.ChartColor
 │     │   ├TfrmGraphs.InfoMessage
 │     │   └TfrmGraphs.MergedLabsSelected
 │     ├TfrmGraphs.lstViewsTopChange
 │     │ └TfrmGraphs.ViewsChange
 │     │   ├TfrmGraphs.InactivateHint
 │     │   ├TfrmGraphs.DisplayData...
 │     │   ├TfrmGraphs.CheckProfile
 │     │   │ ├GetGraphProfiles
 │     │   │ │ └rpcGetGraphProfiles
 │     │   │ │   └onoff
 │     │   │ ├GetATestGroup
 │     │   │ │ └rpcATestGroup
 │     │   │ ├TfrmGraphs.ExpandTax
 │     │   │ │ └rpcTaxonomy
 │     │   │ │   └onoff
 │     │   │ └TfrmGraphs.LoadDisplayCheck
 │     │   │   ├TfrmGraphs.TypeIsLoaded
 │     │   │   ├TfrmGraphs.LoadType
 │     │   │   │ ├TfrmGraphs.FileNameX
 │     │   │   │ └rpcGetItems
 │     │   │   │   └onoff
 │     │   │   ├TfrmGraphs.TypeIsDisplayed
 │     │   │   └TfrmGraphs.DisplayType
 │     │   │     └TfrmGraphs.FileNameX
 │     │   ├TfrmGraphs.cboDateRangeChange...
 │     │   ├TfrmGraphs.ViewDefinition
 │     │   ├TfrmGraphs.AssignProfile...
 │     │   ├TfrmGraphs.lvwItemsTopColumnClick
 │     │   ├TfrmGraphs.lvwItemsBottomColumnClick
 │     │   └TfrmGraphs.AutoSelect
 │     │     ├TfrmGraphs.lvwItemsTopClick
 │     │     │ ├GraphTurboOn
 │     │     │ ├TfrmGraphs.Switch
 │     │     │ │ ├rpcFastItems
 │     │     │ │ │ └onoff
 │     │     │ │ ├rpcFastData
 │     │     │ │ │ └onoff
 │     │     │ │ ├rpcFastLabs
 │     │     │ │ │ └onoff
 │     │     │ │ └TfrmGraphs.FastLab
 │     │     │ │   └TfrmGraphs.SaveTestData
 │     │     │ │     ├TfrmGraphs.ItemName
 │     │     │ │     └TfrmGraphs.LabData...
 │     │     │ └TfrmGraphs.ItemsClick...
 │     │     └TfrmGraphs.lvwItemsBottomClick
 │     │       ├GraphTurboOn
 │     │       ├TfrmGraphs.Switch...
 │     │       └TfrmGraphs.ItemsClick...
 │     └TfrmGraphs.lstViewsBottomChange
 │       └TfrmGraphs.ViewsChange...
 ├TfrmReports.Graph
 │ ├TfrmBase508Form.Create...
 │ ├TfrmGraphs.Initialize
 │ │ ├TfrmGraphs.InitialData
 │ │ │ ├FMNow
 │ │ │ ├GraphTurboOn
 │ │ │ ├TfrmGraphs.Switch...
 │ │ │ ├TfrmGraphs.TypeIsLoaded
 │ │ │ └rpcGetItems...
 │ │ ├TfrmGraphs.SourceContext
 │ │ ├TfrmGraphs.LoadListView
 │ │ │ ├TfrmGraphs.FileNameX
 │ │ │ ├TfrmGraphs.UpdateView
 │ │ │ ├TfrmGraphs.lvwItemsTopColumnClick
 │ │ │ └TfrmGraphs.lvwItemsBottomColumnClick
 │ │ ├rpcReportParams
 │ │ │ └onoff
 │ │ ├TfrmGraphs.chkDualViewsClick
 │ │ │ ├TfrmGraphs.lvwItemsTopClick...
 │ │ │ └TfrmGraphs.lvwItemsBottomClick...
 │ │ ├TfrmGraphs.lstViewsTopChange...
 │ │ ├TfrmGraphs.lvwItemsTopClick...
 │ │ ├TfrmGraphs.lstViewsBottomChange...
 │ │ ├TfrmGraphs.lvwItemsBottomClick...
 │ │ └TfrmGraphs.cboDateRangeChange...
 │ ├TfrmGraphs.DisplayData...
 │ └TfrmReports.GraphPanel...
 ├TRemoteSite.LabClear
 ├ExecuteAdhoc1
 │ └TfrmBase508Form.Create...
 ├TfrmReports.GoRemote
 │ ├HDRActive
 │ ├StrToFMDateTime
 │ ├TRemoteSite.ReportClear
 │ ├TfrmReports.UpdateRemoteStatus
 │ ├TfrmReports.LoadListView
 │ │ ├TRowObject.Add
 │ │ │ ├TCellObject.Create
 │ │ │ └TCellObject.Add
 │ │ └TUser.HasKey
 │ │   └HasSecurityKey
 │ ├GetRemoteData
 │ ├DirectQuery
 │ └RemoteQuery
 ├LoadReportText
 │ └StrToFMDateTime
 ├ListReportDateRanges
 │ └LoadReportLists
 │   └ExtractSection
 ├TfrmReports.lstQualifierClick
 │ ├TfrmReports.BlankWeb
 │ ├TRemoteSite.ReportClear
 │ ├TfrmReports.DisplayHeading...
 │ ├TRowObject.Clear
 │ ├TfrmReports.GoRemote...
 │ ├LoadReportText...
 │ ├TfrmReports.LoadListView...
 │ ├TfrmReports.ShowTabControl
 │ ├FormatECSDate
 │ │ └StrToFMDateTime
 │ └LoadECSReportText
 ├ListImagingExams
 ├ImagingParams
 ├TfrmReports.LoadProceduresTreeView
 │ └MakeProcedureTreeObject
 ├ListNutrAssessments
 ├TNotifications.GetAlertData
 │ └GetXQAData
 ├TfrmReports.LoadListView...
 ├TfrmReports.ShowTabControl
 ├ListProcedures
 │ └ShortDateStrToDate
 ├ListSurgeryReports
 └TfrmGraphs.ViewSelections
   ├TfrmGraphs.chkDualViewsClick...
   ├TfrmGraphs.lstViewsBottomChange...
   └TfrmGraphs.lstViewsTopChange...

Called-By Hierarchy


                         TfrmReports.tvReportsClick
                  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┘     │ 
                          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...┘ 

Calls

Name Declaration Comments
TfrmReports.BlankWeb procedure BlankWeb; -
TRowObject.Clear procedure Clear; -
ColumnHeaders procedure ColumnHeaders(Dest: TStrings; AReportType: String); -
TfrmReports.DisplayHeading procedure DisplayHeading(aRanges: string); -
ExecuteAdhoc1 function ExecuteAdhoc1: Boolean; -
TNotifications.GetAlertData function GetAlertData: string; -
TfrmReports.GoRemote procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string; aFHIE: string); -
TfrmReports.Graph procedure Graph(reportien: integer); -
TfrmReports.GraphPanel procedure GraphPanel(active: boolean); -
ImagingParams function ImagingParams: String; -
TRemoteSite.LabClear procedure LabClear; -
ListImagingExams procedure ListImagingExams(Dest: TStrings); -
ListNutrAssessments procedure ListNutrAssessments(Dest: TStrings); -
ListProcedures procedure ListProcedures(Dest: TStrings); -
ListReportDateRanges procedure ListReportDateRanges(Dest: TStrings); -
ListSurgeryReports procedure ListSurgeryReports(Dest: TStrings); -
TfrmReports.LoadListView procedure LoadListView(aReportData: TStringList); -
TfrmReports.LoadProceduresTreeView procedure LoadProceduresTreeView(x: string; var CurrentParentNode: TTreeNode; var CurrentNode: TTreeNode); -
LoadReportText procedure LoadReportText(Dest: TStrings; ReportType: string; const Qualifier: string; ARpc, AHSTag: string); -
TfrmReports.lstQualifierClick procedure lstQualifierClick(Sender: TObject); -
TRemoteSite.ReportClear procedure ReportClear; -
SaveColumnSizes procedure SaveColumnSizes(aColumn: String); -
TfrmReports.ShowTabControl procedure ShowTabControl; -
TfrmGraphs.ViewSelections procedure ViewSelections; -

Called-By

Name Declaration Comments
TfrmOptionsReportsCustom.btnApplyClick procedure btnApplyClick(Sender: TObject); -
TfrmOptionsReportsDefault.btnOKClick procedure btnOKClick(Sender: TObject); -
TfrmOptionsReportsDefault.btnResetClick procedure btnResetClick(Sender: TObject); -
TfrmReports.chkMaxFreqClick procedure chkMaxFreqClick(Sender: TObject); -
TfrmReports.DisplayPage procedure DisplayPage; override; -
TfrmReports.LoadTreeView procedure LoadTreeView; -
TfrmFrame.lstCIRNLocationsClick procedure lstCIRNLocationsClick(Sender: TObject); -
TfrmReports.ProcessNotifications procedure ProcessNotifications; -
TfrmReports.tvProceduresKeyDown procedure tvProceduresKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -
TfrmReports.tvReportsKeyDown procedure tvReportsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

2013  procedure TfrmReports.tvReportsClick(Sender: TObject);
2014  var
2015    i,j: integer;
2016    ListItem: TListItem;
2017    aHeading, aReportType, aRPC, aQualifier, aStartTime, aStopTime, aMax, aRptCode, aRemote, aCategory, aSortOrder, aDaysBack, x: string;
2018    aIFN: integer;
2019    aID, aHSTag, aRadParam, aColChange, aDirect, aHDR, aFHIE, aFHIEONLY, aQualifierID: string;
2020    CurrentParentNode, CurrentNode: TTreeNode;
2021  begin
2022    inherited;
2023    lvReports.Hint := 'To sort, click on column headers|';
2024    tvReports.TopItem := tvReports.Selected;
2025    uRemoteCount := 0;
2026    Timer1.Interval := 3000;
2027    uReportInstruction := '';
2028    aHeading    :=  PReportTreeObject(tvReports.Selected.Data)^.Heading;
2029    aRemote     :=  PReportTreeObject(tvReports.Selected.Data)^.Remote;
2030    aReportType :=  PReportTreeObject(tvReports.Selected.Data)^.RptType;
2031    aQualifier  :=  PReportTreeObject(tvReports.Selected.Data)^.Qualifier;
2032    aID         :=  PReportTreeObject(tvReports.Selected.Data)^.ID;
2033    aRPC        :=  PReportTreeObject(tvReports.Selected.Data)^.RPCName;
2034    aHSTag      :=  PReportTreeObject(tvReports.Selected.Data)^.HSTag;
2035    aCategory   :=  PReportTreeObject(tvReports.Selected.Data)^.Category;
2036    aSortOrder  :=  PReportTreeObject(tvReports.Selected.Data)^.SortOrder;
2037    aDaysBack   :=  PReportTreeObject(tvReports.Selected.Data)^.MaxDaysBack;
2038    aIFN        :=  StrToIntDef(PReportTreeObject(tvReports.Selected.Data)^.IFN,0);
2039    aDirect     :=  PReportTreeObject(tvReports.Selected.Data)^.Direct;
2040    aHDR        :=  PReportTreeObject(tvReports.Selected.Data)^.HDR;
2041    aFHIE       :=  PReportTreeObject(tvReports.Selected.Data)^.FHIE;
2042    aFHIEONLY   :=  PReportTreeObject(tvReports.Selected.Data)^.FHIEONLY;
2043    aStartTime  :=  Piece(aQualifier,';',1);
2044    aStopTime   :=  Piece(aQualifier,';',2);
2045    aMax        :=  Piece(aQualifier,';',3);
2046    aRptCode    :=  Piece(aQualifier,';',4);
2047    aQualifierID:= '';
2048    if length(uColChange) > 0 then
2049      begin
2050        aColChange := '';
2051        for i := 0 to lvReports.Columns.Count - 1 do
2052          aColChange := aColChange + IntToStr(lvReports.Column[i].width) + ',';
2053        if (Length(aColChange) > 0) and (aColChange <> piece(uColchange,'^',2)) then
2054          SaveColumnSizes(piece(uColChange,'^',1) + '^' + aColChange);
2055        uColChange := '';
2056      end;
2057    if (aReportType <> 'M') and (aRPC = '') and (CharAt(aID,1) = 'H') then
2058      begin
2059        aReportType :=  'R';
2060        aRptCode    :=  LowerCase(CharAt(aID,1)) + Copy(aID, 2, Length(aID));
2061        aID         :=  '1';
2062        aRPC        :=  'ORWRP REPORT TEXT';
2063        aHSTag      :=  '';
2064      end;
2065    if aReportType = '' then aReportType := 'R';
2066    uReportRPC := aRPC;
2067    uRptID := aID;
2068    uReportID := aID;
2069    uDirect := aDirect;
2070    uReportType := aReportType;
2071    uQualifier := aQualifier;
2072    uSortOrder := aSortOrder;
2073    uRemoteType := aRemote + '^' + aReportType + '^' + IntToStr(aIFN) + '^' + aHeading + '^' + aRptCode + '^' + aDaysBack + '^' + aHDR + '^' + aFHIE + '^' + aFHIEONLY;
2074    pnlRightTop.Height := lblTitle.Height;  // see below
2075    RedrawSuspend(tvReports.Handle);
2076    RedrawSuspend(memText.Handle);
2077    uHState := aHSTag;
2078    Timer1.Enabled := False;
2079    TabControl1.Visible := false;
2080    TabControl1.TabStop := false;
2081    sptHorzRight.Visible := false;
2082    lblProcTypeMsg.Visible := FALSE;
2083    pnlRightMiddle.Visible := false;
2084    pnlProcedures.Visible := FALSE;
2085    if (aRemote = '1') or (aRemote = '2') then
2086      if not(uReportType = 'V') then
2087        if TabControl1.Tabs.Count > 1 then
2088          begin
2089            TabControl1.Visible := true;
2090            TabControl1.TabStop := true;
2091            pnlRightTop.Height := lblTitle.Height + TabControl1.Height;
2092          end;
2093    StatusText('');
2094    uHTMLDoc := '';
2095    BlankWeb;
2096    memText.Lines.Clear;
2097    memText.Parent := pnlRightBottom;
2098    memText.Align := alClient;
2099    UpdatingLvReports := TRUE;    {lw added}
2100    tvProcedures.Items.Clear;
2101    UpdatingLvReports := FALSE;   {lw added}
2102    lblProcTypeMsg.Visible := FALSE;
2103    lvReports.SmallImages := uEmptyImageList;
2104    imgLblImages.ComponentImageListChanged;
2105    lvReports.Items.Clear;
2106    lvReports.Columns.Clear;
2107    uHSComponents.Clear;
2108    DisplayHeading('');
2109    if uReportType = 'H' then
2110      begin
2111        pnlRightMiddle.Visible := false;
2112        pnlRightBottom.Visible := true;
2113        WebBrowser1.Visible := true;
2114        WebBrowser1.TabStop := true;
2115        BlankWeb;
2116        WebBrowser1.BringToFront;
2117        memText.Visible := false;
2118        memText.TabStop := false;
2119      end
2120    else
2121      if uReportType = 'V' then
2122        begin
2123          with lvReports do
2124            begin
2125              Columns.BeginUpdate;
2126              ViewStyle := vsReport;
2127              ColumnHeaders(uColumns, IntToStr(aIFN));
2128              for i := 0 to uColumns.Count -1 do
2129                begin
2130                  uNewColumn := Columns.Add;
2131                  uNewColumn.Caption := piece(uColumns.Strings[i],'^',1);
2132                  if length(uColChange) < 1 then uColChange := IntToStr(aIFN) + '^';
2133                  if piece(uColumns.Strings[i],'^',2) = '1' then
2134                    begin
2135                      uNewColumn.Width := 0;
2136                      uColChange := uColChange + '0,';
2137                    end
2138                  else
2139                    if length(piece(uColumns.Strings[i],'^',10)) > 0 then
2140                      begin
2141                        uColChange := uColChange + piece(uColumns.Strings[i],'^',10) + ',';
2142                        uNewColumn.Width := StrToInt(piece(uColumns.Strings[i],'^',10))
2143                      end
2144                    else
2145                      uNewColumn.Width := ColumnHeaderWidth;  //ColumnTextWidth for width of text
2146                  if (i = 0) and (((aRemote <> '2') and (aRemote <> '1')) or ((TabControl1.Tabs.Count < 2) and (not (aHDR = '1')))) then
2147                    uNewColumn.Width := 0;
2148                end;
2149              Columns.EndUpdate;
2150            end;
2151          pnlRightMiddle.Visible := true;
2152          sptHorzRight.Visible := true;
2153          WebBrowser1.Visible := false;
2154          WebBrowser1.TabStop := false;
2155          pnlRightBottom.Visible := true;
2156          memText.Visible := true;
2157          memText.TabStop := true;
2158          memText.BringToFront;
2159        end
2160      else
2161        begin
2162          pnlRightMiddle.Visible := false;
2163          sptHorzRight.Visible := false;
2164          WebBrowser1.Visible := false;
2165          WebBrowser1.TabStop := false;
2166          pnlRightBottom.Visible := True;
2167          memText.Visible := true;
2168          memText.TabStop := true;
2169          memText.BringToFront;
2170        end;
2171    uLocalReportData.Clear;
2172    RowObjects.Clear;
2173    uRemoteReportData.Clear;
2174    lstHeaders.Visible := false;
2175    lstHeaders.TabStop := false;
2176    lblHeaders.Visible := false;
2177    lstHeaders.Clear;
2178    for i := 0 to RemoteSites.SiteList.Count - 1 do
2179      TRemoteSite(RemoteSites.SiteList.Items[i]).ReportClear;
2180    if uFrozen = True then
2181      begin
2182        memo1.visible := False;
2183        memo1.TabStop := False;
2184      end;
2185    Screen.Cursor := crHourGlass;
2186    if (GraphForm <> nil) and (aReportType <> 'G') then
2187    begin
2188      GraphForm.SendToBack;
2189      GraphPanel(false);
2190      GraphFormActive := false;
2191    end;
2192    if aReportType = 'G' then
2193      Graph(aIFN)
2194    else
2195    if aReportType = 'M' then
2196      begin
2197        pnlLeftBottom.Visible := false;
2198        splitter1.Visible := false;
2199      end
2200    else
2201      begin
2202       uQualifierType := StrToIntDef(aRptCode,0);
2203        case uQualifierType of
2204          QT_OTHER:
2205            begin      //      = 0
2206              memText.Lines.Clear;
2207              If copy(aRptCode,1,2) = 'h0' then  //HS Adhoc
2208                begin
2209                  if TabControl1.TabIndex > 0 then
2210                    begin
2211                      InfoBox('Adhoc report is not available for remote sites',
2212                        'Information', MB_OK);
2213                      TabControl1.TabIndex := 0;
2214                    end;
2215                  with RemoteSites.SiteList do
2216                  for j := 0 to Count - 1 do
2217                    begin
2218                      TRemoteSite(RemoteSites.SiteList[j]).ReportClear;
2219                      TRemoteSite(RemoteSites.SiteList[j]).LabClear;
2220                    end;
2221                  uHTMLDoc := '';
2222                  if WebBrowser1.Visible = true then BlankWeb;
2223                  ExecuteAdhoc1;  //Calls Adhoc form
2224                  if uLocalReportData.Count < 1 then
2225                    uReportInstruction := '<No Report Available>'
2226                  else
2227                    begin
2228                      if TabControl1.TabIndex < 1 then
2229                        QuickCopy(uLocalReportData,memText);
2230                      if WebBrowser1.Visible = true then
2231                        begin
2232                          if uReportType = 'R' then
2233                            uHTMLDoc := HTML_PRE + uLocalReportData.Text + HTML_POST
2234                          else
2235                            uHTMLDoc := uHTMLPatient + uLocalReportData.Text;
2236                          BlankWeb;
2237                        end;
2238                    end;
2239                  TabControl1.OnChange(nil);
2240                end
2241              else
2242                begin
2243                  pnlLeftBottom.Visible := false;
2244                  splitter1.Visible := false;
2245                  StatusText('Retrieving ' + tvReports.Selected.Text + '...');
2246                  GoRemote(uRemoteReportData, aID, aRptCode, aRPC, uHState, aHDR, aFHIE);
2247                  uReportInstruction := #13#10 + 'Retrieving data...';
2248                  TabControl1.OnChange(nil);
2249                  if not(piece(uRemoteType, '^', 9) = '1') then
2250                    begin
2251                      LoadReportText(uLocalReportData, aID, aRptCode, aRPC, uHState);
2252                      QuickCopy(uLocalReportData, memText);
2253                    end;
2254                  if uLocalReportData.Count > 0 then
2255                      TabControl1.OnChange(nil);
2256                  StatusText('');
2257                end;
2258            end;
2259          QT_HSTYPE:
2260            begin      //      = 1
2261              pnlLeftBottom.Visible := false;
2262              splitter1.Visible := false;
2263            end;
2264          QT_DATERANGE:
2265            begin      //      = 2
2266  
2267              ListReportDateRanges(lstQualifier.Items);
2268                if lstQualifier.ItemID = '' then
2269                  begin
2270                    lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2271                    lvReports.SmallImages := uEmptyImageList;
2272                    imgLblImages.ComponentImageListChanged;
2273                    lvReports.Items.Clear;
2274                    lstQualifierClick(self);
2275                  end
2276                else
2277                  lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2278  
2279              lblQualifier.Caption := 'Date Range';
2280              pnlLeftBottom.Visible := true;
2281              splitter1.Visible := true;
2282            end;
2283          QT_IMAGING:
2284            begin      //      = 3
2285              pnlLeftBottom.Visible := false;
2286              splitter1.Visible := false;
2287              ListImagingExams(uLocalReportData);
2288              aRadParam := ImagingParams;
2289              uQualifier := StringReplace(aRadParam, '^', ';', [rfReplaceAll]);
2290              with lvReports do
2291                begin
2292                  Items.BeginUpdate;
2293                  ViewStyle := vsReport;
2294                  SmallImages := dmodShared.imgImages;
2295                  imgLblImages.ComponentImageListChanged;
2296                  CurrentParentNode := nil;
2297                  CurrentNode := nil;
2298                  for i := 0 to uLocalReportData.Count - 1 do
2299                    begin
2300                      ListItem := Items.Add;
2301                      ListItem.Caption := piece(piece(uLocalReportData[i],'^',1),';',1);
2302                      if uColumns.Count > 1 then
2303                        begin
2304                          for j := 2 to uColumns.Count do
2305                            ListItem.SubItems.Add(piece(uLocalReportData[i],'^',j));
2306                            // if pieces are (added to/removed from) return string, PLEASE UPDATE THIS!!  (RV)
2307                            if Piece(uLocalReportData[i], U, 9) = 'Y' then
2308                              ListItem.SubItemImages[1] := IMG_1_IMAGE
2309                            else
2310                              ListItem.SubItemImages[1] := IMG_NO_IMAGES;
2311                        end;
2312                      LoadProceduresTreeView(uLocalReportData[i], CurrentParentNode, CurrentNode);
2313                      if CurrentNode <> nil then
2314                         PProcTreeObj(CurrentNode.Data)^.Associate := lvReports.Items.IndexOf(ListItem);
2315                    end;
2316                  if tvProcedures.Items.Count > 0 then
2317                     tvProcedures.Selected := tvProcedures.Items.GetFirstNode;
2318                  lblProcTypeMsg.Visible := TRUE;
2319                  pnlRightTop.Height := lblTitle.Height + lblProcTypeMsg.Height;
2320                  pnlLeftBottom.Visible := FALSE;
2321                  pnlProcedures.Visible := TRUE;
2322                  Splitter1.Visible := True;                                      
2323                  if lvReports.Columns.Count > 0 then lvReports.Columns[1].Width := 0;
2324                  Items.EndUpdate;
2325                  tvProcedures.TopItem := tvProcedures.Selected;
2326                end;
2327              if TabControl1.TabIndex > 0 then TabControl1.TabIndex := 0;
2328              if uLocalReportData.Count > 0
2329                then x := #13#10 + 'Select an imaging exam...'
2330                else x := #13#10 + 'No imaging reports found...';
2331              uReportInstruction := PChar(x);
2332              memText.Lines.Add(uReportInstruction);
2333              if WebBrowser1.Visible = true then
2334                begin
2335                  uHTMLDoc := HTML_PRE + uReportInstruction + HTML_POST;
2336                  BlankWeb;
2337                end;
2338            end;
2339          QT_NUTR:
2340            begin      //      = 4
2341              lblQualifier.Caption := 'Nutritional Assessments';
2342              pnlLeftBottom.Visible := false;
2343              splitter1.Visible := false;
2344              ListNutrAssessments(uLocalReportData);
2345              with lvReports do
2346                begin
2347                  Items.BeginUpdate;
2348                  ViewStyle := vsReport;
2349                  for i := 0 to uLocalReportData.Count - 1 do
2350                    begin
2351                      ListItem := Items.Add;
2352                      ListItem.Caption := piece(piece(uLocalReportData[i],'^',1),';',1);
2353                      if uColumns.Count > 1 then
2354                        for j := 2 to uColumns.Count do
2355                          ListItem.SubItems.Add(piece(uLocalReportData[i],'^',j));
2356                    end;
2357                  if lvReports.Columns.Count > 0 then lvReports.Columns[1].Width := 0;
2358                  Items.EndUpdate;
2359                end;
2360              if TabControl1.TabIndex > 0 then TabControl1.TabIndex := 0;
2361              if uLocalReportData.Count > 0
2362                then x := #13#10 + 'Select an assessment date...'
2363                else x := #13#10 + 'No nutritional assessments found...';
2364              uReportInstruction := PChar(x);
2365              memText.Lines.Add(uReportInstruction);
2366              if WebBrowser1.Visible = true then
2367                begin
2368                  uHTMLDoc := HTML_PRE + uReportInstruction + HTML_POST;
2369                  BlankWeb;
2370                end;
2371            end;
2372          QT_HSCOMPONENT:
2373            begin      //      = 5
2374              if Notifications.AlertData <> '' then
2375                pnlRightMiddle.Height := 75
2376              else
2377                pnlRightMiddle.Height := pnlRight.Height - (pnlRight.Height div 2);
2378              pnlLeftBottom.Visible := false;
2379              splitter1.Visible := false;
2380              StatusText('Retrieving ' + tvReports.Selected.Text + '...');
2381              uReportInstruction := #13#10 + 'Retrieving data...';
2382              lvReports.SmallImages := uEmptyImageList;
2383              imgLblImages.ComponentImageListChanged;
2384              lvReports.Items.Clear;
2385              RowObjects.Clear;
2386              memText.Lines.Clear;
2387              if (length(piece(aHSTag,';',2)) > 0) then
2388                begin
2389                  if aCategory <> '0' then
2390                    begin
2391                      ListReportDateRanges(lstQualifier.Items);
2392                      aQualifierID := lstQualifier.ItemID;
2393                      if aQualifierID = '' then
2394                        begin
2395                          if aHDR = '1' then
2396                            lstQualifier.ItemIndex := lstQualifier.Items.Add('T-50000' + ';' + 'T+50000' + '^' + 'T-50000' + ' to ' + 'T+50000')
2397                          else
2398                            if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2399                          lstQualifierClick(self);
2400                        end
2401                      else
2402                        begin
2403                          GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
2404                          if aHDR = '1' then
2405                            lstQualifier.ItemIndex := lstQualifier.Items.Add('T-50000' + ';' + 'T+50000' + '^' + 'T-50000' + ' to ' + 'T+50000')
2406                          else
2407                            if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2408                          lstQualifierClick(self);
2409                        end;
2410                      lblQualifier.Caption := 'Date Range';
2411                      pnlLeftBottom.Visible := true;
2412                      splitter1.Visible := true;
2413                    end
2414                  else
2415                    begin
2416                      if not (aRemote = '2' ) then
2417                        GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
2418                      if not(piece(uRemoteType, '^', 9) = '1') then
2419                        begin
2420                          LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
2421                          LoadListView(uLocalReportData);
2422                        end;
2423                    end;
2424                end
2425              else
2426                begin
2427                  if (aRemote = '1') or (aRemote = '2') then
2428                    if TabControl1.Tabs.Count > 1 then
2429                      ShowTabControl;
2430                  sptHorzRight.Visible := false;
2431                  pnlRightMiddle.Visible := false;
2432                  GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
2433                  if not(piece(uRemoteType, '^', 9) = '1') then
2434                    LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
2435                  if uLocalReportData.Count < 1 then
2436                    uReportInstruction := '<No Report Available>'
2437                  else
2438                    begin
2439                      if TabControl1.TabIndex < 1 then
2440                        QuickCopy(uLocalReportData,memText);
2441                    end;
2442                  TabControl1.OnChange(nil);
2443                  if aCategory <> '0' then
2444                    begin
2445                      ListReportDateRanges(lstQualifier.Items);
2446                      if lstQualifier.ItemID = '' then
2447                        begin
2448                          lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2449                          lstQualifierClick(self);
2450                        end
2451                      else
2452                        lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2453  
2454                      lblQualifier.Caption := 'Date Range';
2455                      pnlLeftBottom.Visible := true;
2456                      splitter1.Visible := true;
2457                    end
2458                  else
2459                    begin
2460                      if uLocalReportData.Count < 1 then
2461                        begin
2462                          uReportInstruction := '<No Report Available>';
2463                          memText.Lines.Add(uReportInstruction);
2464                        end
2465                      else
2466                        begin
2467                          QuickCopy(uLocalReportData,memText);
2468                          TabControl1.OnChange(nil);
2469                        end;
2470                    end;
2471                end;
2472              StatusText('');
2473            end;
2474          QT_HSWPCOMPONENT:
2475            begin      //      = 6
2476              if Notifications.AlertData <> '' then
2477                pnlRightMiddle.Height := 75
2478              else
2479                pnlRightMiddle.Height := pnlRight.Height - (pnlRight.Height div 2);
2480              pnlLeftBottom.Visible := false;
2481              splitter1.Visible := false;
2482              StatusText('Retrieving ' + tvReports.Selected.Text + '...');
2483              uReportInstruction := #13#10 + 'Retrieving data...';
2484              TabControl1.OnChange(nil);
2485              RowObjects.Clear;
2486              memText.Lines.Clear;
2487              lvReports.SmallImages := uEmptyImageList;
2488              imgLblImages.ComponentImageListChanged;
2489              lvReports.Items.Clear;
2490              if (length(piece(aHSTag,';',2)) > 0) then
2491                begin
2492                  if aCategory <> '0' then
2493                    begin
2494                      ListReportDateRanges(lstQualifier.Items);
2495                      aQualifierID := lstQualifier.ItemID;
2496                      if aQualifierID = '' then
2497                        begin
2498                          if aHDR = '1' then
2499                            lstQualifier.ItemIndex := lstQualifier.Items.Add('T-50000' + ';' + 'T+50000' + '^' + 'T-50000' + ' to ' + 'T+50000')
2500                          else
2501                            if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2502                          lstQualifierClick(self);
2503                        end
2504                      else
2505                        begin
2506                          GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
2507                          if aHDR = '1' then
2508                            lstQualifier.ItemIndex := lstQualifier.Items.Add('T-50000' + ';' + 'T+50000' + '^' + 'T-50000' + ' to ' + 'T+50000')
2509                          else
2510                            if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2511                          lstQualifierClick(self);
2512                        end;
2513                      lblQualifier.Caption := 'Date Range';
2514                      pnlLeftBottom.Visible := true;
2515                      splitter1.Visible := true;
2516                    end
2517                  else
2518                    begin
2519                      GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
2520                      if not (aRemote = '2' ) and (not(piece(uRemoteType, '^', 9) = '1')) then
2521                        begin
2522                          LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
2523                          LoadListView(uLocalReportData);
2524                        end;
2525                    end;
2526                end
2527              else
2528                begin
2529                  if (aRemote = '1') or (aRemote = '2') then
2530                    ShowTabControl;
2531                  sptHorzRight.Visible := false;
2532                  pnlRightMiddle.Visible := false;
2533                  GoRemote(uRemoteReportData, aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
2534                  if not(piece(uRemoteType, '^', 9) = '1') then
2535                    LoadReportText(uLocalReportData, aID, aQualifier, aRPC, uHState);
2536                  if uLocalReportData.Count < 1 then
2537                    uReportInstruction := '<No Report Available>'
2538                  else
2539                    begin
2540                      if TabControl1.TabIndex < 1 then
2541                        QuickCopy(uLocalReportData,memText);
2542                    end;
2543                  TabControl1.OnChange(nil);
2544                  if aCategory <> '0' then
2545                    begin
2546  
2547                      ListReportDateRanges(lstQualifier.Items);
2548                      if lstQualifier.ItemID = '' then
2549                        begin
2550                          lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2551                          lstQualifierClick(self);
2552                        end
2553                      else
2554                        lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
2555  
2556                      lblQualifier.Caption := 'Date Range';
2557                      pnlLeftBottom.Visible := true;
2558                      splitter1.Visible := true;
2559                    end
2560                  else
2561                    begin
2562                      LoadListView(uLocalReportData);
2563                    end;
2564                end;
2565              StatusText('');
2566            end;
2567          QT_PROCEDURES:
2568            begin      //      = 19
2569              pnlLeftBottom.Visible := false;
2570              splitter1.Visible := false;
2571              ListProcedures(uLocalReportData);
2572              with lvReports do
2573                begin
2574                  Items.BeginUpdate;
2575                  ViewStyle := vsReport;
2576                  for i := 0 to uLocalReportData.Count - 1 do
2577                    begin
2578                      ListItem := Items.Add;
2579                      ListItem.Caption := piece(piece(uLocalReportData[i],'^',1),';',1);
2580                      if uColumns.Count > 1 then
2581                        for j := 2 to uColumns.Count do
2582                          ListItem.SubItems.Add(piece(uLocalReportData[i],'^',j));
2583                    end;
2584                  if lvReports.Columns.Count > 0 then lvReports.Columns[1].Width := 0;
2585                  Items.EndUpdate;
2586                end;
2587              if uLocalReportData.Count > 0
2588                then x := #13#10 + 'Select a procedure...'
2589                else x := #13#10 + 'No procedures found...';
2590              uReportInstruction := PChar(x);
2591              if WebBrowser1.Visible = true then
2592                begin
2593                  uHTMLDoc := HTML_PRE + uReportInstruction + HTML_POST;
2594                  BlankWeb;
2595                end;
2596              if WebBrowser1.Visible = true then BlankWeb;
2597            end;
2598          QT_SURGERY:
2599            begin      //      = 28
2600              pnlLeftBottom.Visible := false;
2601              splitter1.Visible := false;
2602              ListSurgeryReports(uLocalReportData);
2603              with lvReports do
2604                begin
2605                  Items.BeginUpdate;
2606                  ViewStyle := vsReport;
2607                  for i := 0 to uLocalReportData.Count - 1 do
2608                    begin
2609                      ListItem := Items.Add;
2610                      ListItem.Caption := piece(piece(uLocalReportData[i],'^',1),';',1);
2611                      if uColumns.Count > 1 then
2612                        for j := 2 to uColumns.Count do
2613                          ListItem.SubItems.Add(piece(uLocalReportData[i],'^',j));
2614                    end;
2615                  if lvReports.Columns.Count > 0 then lvReports.Columns[1].Width := 0;
2616                  Items.EndUpdate;
2617                end;
2618              if uLocalReportData.Count > 0
2619                then x := #13#10 + 'Select a surgery case...'
2620                else x := #13#10 + 'No surgery cases found...';
2621              uReportInstruction := PChar(x);
2622              memText.Lines.Add(uReportInstruction);
2623              uHTMLDoc := HTML_PRE + uReportInstruction + HTML_POST;
2624             if WebBrowser1.Visible = true then BlankWeb;
2625            end;
2626          else
2627            begin      //      = ?
2628              uQualifierType := QT_OTHER;
2629              pnlLeftBottom.Visible := false;
2630              splitter1.Visible := false;
2631              StatusText('Retrieving ' + tvReports.Selected.Text + '...');
2632              GoRemote(uRemoteReportData, aID, aRptCode, aRPC, uHState, aHDR, aFHIE);
2633              uReportInstruction := #13#10 + 'Retrieving data...';
2634              TabControl1.OnChange(nil);
2635              //LoadReportText(uLocalReportData, aID, aRptCode, aRPC, uHState);
2636              if not(piece(uRemoteType, '^', 9) = '1') then
2637                LoadReportText(uLocalReportData, aID, '', aRPC, uHState);
2638              if uLocalReportData.Count < 1 then
2639                uReportInstruction := '<No Report Available>'
2640              else
2641                begin
2642                  if TabControl1.TabIndex < 1 then
2643                    QuickCopy(uLocalReportData,memText);
2644                end;
2645              TabControl1.OnChange(nil);
2646              StatusText('');
2647            end;
2648          lstQualifier.Caption := lblQualifier.Caption;
2649        end;
2650      end;
2651    if not (aHDR = '1') then
2652      if aCategory <> '0' then
2653          DisplayHeading(uQualifier)
2654      else
2655        DisplayHeading('');
2656  
2657    SendMessage(tvReports.Handle, WM_HSCROLL, SB_THUMBTRACK, 0);
2658    RedrawActivate(tvReports.Handle);
2659    RedrawActivate(memText.Handle);
2660    if WebBrowser1.Visible = true then
2661      begin
2662        BlankWeb;
2663        WebBrowser1.BringToFront;
2664      end
2665    else if not GraphFormActive then
2666      begin
2667        memText.Visible := true;
2668        memText.TabStop := true;
2669        memText.BringToFront;
2670      end
2671    else
2672      begin
2673        GraphPanel(true);
2674        with GraphForm do
2675        begin
2676          lstDateRange.Items := cboDateRange.Items;
2677          lstDateRange.ItemIndex := cboDateRange.ItemIndex;
2678          ViewSelections;
2679          BringToFront;
2680        end;
2681      end;
2682    lvReports.Columns.BeginUpdate;
2683    lvReports.Columns.EndUpdate;
2684    Screen.Cursor := crDefault;
2685  end;