Procedure

TfrmLabs.tvReportsClick

Module

fLabs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLabs

Declaration

procedure tvReportsClick(Sender: TObject);

Calls Hierarchy


TfrmLabs.tvReportsClick
 ├SaveColumnSizes
 ├TfrmLabs.HideTabControl
 ├TfrmLabs.ShowTabControl
 ├TfrmLabs.BlankWeb
 ├TfrmLabs.DisplayHeading
 │ └ValidDateTimeStr
 ├ColumnHeaders
 ├TLabRowObject.Clear
 ├TRemoteSite.LabClear
 ├TfrmLabs.CommonComponentVisible
 ├TfrmLabs.ChkBrowser
 │ └TfrmLabs.BlankWeb
 ├TfrmLabs.FormResize
 │ └TfrmLabs.AlignList
 ├TfrmLabs.cmdRecentClick
 │ ├TfrmLabs.GetInterimGrid
 │ │ ├GetNewestOldest
 │ │ ├InterimGrid
 │ │ ├LabPatchInstalled
 │ │ │ └ServerHasPatch
 │ │ ├TfrmLabs.FillGrid
 │ │ └TfrmLabs.FillComments
 │ └FMToday
 │   └FMNow
 ├SelectTests
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ ├SetFormPosition
 │ │ └TSizeHolder.GetSize
 │ └TfrmLabTests.lstListClick
 ├TfrmLabs.lstDatesClick
 │ ├TfrmLabs.DisplayHeading...
 │ ├TfrmLabs.ChkBrowser...
 │ ├TfrmLabs.FMToDateTime
 │ ├FMToday...
 │ ├TfrmLabs.BeginEndDates
 │ │ ├TfrmLabs.FMToDateTime
 │ │ └FMToday...
 │ ├TfrmLabs.BlankWeb
 │ ├TfrmLabs.GoRemoteOld
 │ │ ├TRemoteSite.LabClear
 │ │ ├TfrmLabs.UpdateRemoteStatus
 │ │ ├GetRemoteData
 │ │ ├RemoteLabReports
 │ │ ├RemoteLabCumulative
 │ │ ├RemoteLabInterim
 │ │ ├RemoteLabMicro
 │ │ └RemoteLab
 │ ├Cumulative
 │ ├Interim
 │ ├InterimSelect
 │ ├Worksheet
 │ ├TfrmLabs.HGrid
 │ │ └LabPatchInstalled...
 │ ├TfrmLabs.VGrid
 │ │ └LabPatchInstalled...
 │ ├TfrmLabs.GraphList
 │ ├TfrmLabs.GridComments
 │ ├TfrmLabs.ragCorGClick
 │ │ ├TfrmLabs.chk3DClick
 │ │ ├TfrmLabs.chkValuesClick
 │ │ └TfrmLabs.lstTestGraphClick
 │ │   └TfrmLabs.WorksheetChart
 │ │     ├TfrmLabs.GetStartStop
 │ │     ├OkFloatValue
 │ │     └TfrmLabs.FMToDateTime
 │ ├TfrmLabs.chkGraphZoomClick
 │ ├GetChart
 │ ├TfrmLabs.GraphChart
 │ │ └TfrmLabs.FMToDateTime
 │ ├Micro
 │ └Reports
 ├..(rec)..
 ├SelectTestGroups
 │ ├TfrmBase508Form.Create...
 │ └TfrmLabTestGroups.lstListClick
 │   └TfrmLabTestGroups.TestGroupEnable
 ├TfrmFrame.mnuToolsGraphingClick
 │ ├TfrmBase508Form.Create...
 │ ├TfrmGraphs.Initialize
 │ │ ├TfrmGraphs.InitialData
 │ │ │ ├FMNow
 │ │ │ ├GraphTurboOn
 │ │ │ ├TfrmGraphs.Switch
 │ │ │ │ ├rpcFastItems
 │ │ │ │ │ └onoff
 │ │ │ │ ├rpcFastData
 │ │ │ │ │ └onoff
 │ │ │ │ ├rpcFastLabs
 │ │ │ │ │ └onoff
 │ │ │ │ └TfrmGraphs.FastLab
 │ │ │ │   └TfrmGraphs.SaveTestData
 │ │ │ │     ├TfrmGraphs.ItemName
 │ │ │ │     └TfrmGraphs.LabData
 │ │ │ │       ├rpcGetItemData
 │ │ │ │       │ └onoff
 │ │ │ │       ├TfrmGraphs.SpecRefCheck
 │ │ │ │       │ └TfrmGraphs.RefUnits
 │ │ │ │       │   └TfrmGraphs.SelectRef
 │ │ │ │       │     └CheckRef
 │ │ │ │       ├TfrmGraphs.SpecRefSet
 │ │ │ │       │ └MultiRef
 │ │ │ │       ├TfrmGraphs.FileNameX
 │ │ │ │       ├TfrmGraphs.LabCheck
 │ │ │ │       ├TfrmGraphs.DateRangeMultiItems
 │ │ │ │       └TfrmGraphs.LabAdd
 │ │ │ ├TfrmGraphs.TypeIsLoaded
 │ │ │ └rpcGetItems
 │ │ │   └onoff
 │ │ ├TfrmGraphs.SourceContext
 │ │ ├TfrmGraphs.LoadListView
 │ │ │ ├TfrmGraphs.FileNameX
 │ │ │ ├TfrmGraphs.UpdateView
 │ │ │ ├TfrmGraphs.lvwItemsTopColumnClick
 │ │ │ └TfrmGraphs.lvwItemsBottomColumnClick
 │ │ ├rpcReportParams
 │ │ │ └onoff
 │ │ ├TfrmGraphs.chkDualViewsClick
 │ │ │ ├TfrmGraphs.lvwItemsTopClick
 │ │ │ │ ├GraphTurboOn
 │ │ │ │ ├TfrmGraphs.Switch...
 │ │ │ │ └TfrmGraphs.ItemsClick
 │ │ │ │   ├TfrmGraphs.CheckExpandedLabs
 │ │ │ │   │ └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.MakeSeparate
 │ │ │ │   │   │ │ ├TfrmGraphs.chartBaseMouseMove
 │ │ │ │   │   │ │ │ └TfrmGraphs.InactivateHint
 │ │ │ │   │   │ │ ├TfrmGraphs.MakeSeparateItems
 │ │ │ │   │   │ │ │ ├TfrmGraphs.GraphTypeNum
 │ │ │ │   │   │ │ │ ├TfrmGraphs.TitleInfo
 │ │ │ │   │   │ │ │ │ └TfrmGraphs.RefUnits...
 │ │ │ │   │   │ │ │ ├TfrmGraphs.MakeChart
 │ │ │ │   │   │ │ │ │ ├TfrmGraphs.HideDates
 │ │ │ │   │   │ │ │ │ ├TfrmGraphs.ChartOnZoom
 │ │ │ │   │   │ │ │ │ │ ├TfrmGraphs.SizeDates
 │ │ │ │   │   │ │ │ │ │ │ ├TfrmGraphs.GraphFooter
 │ │ │ │   │   │ │ │ │ │ │ └TfrmGraphs.SeriesForLabels
 │ │ │ │   │   │ │ │ │ │ └TfrmGraphs.ZoomUpdateInfo
 │ │ │ │   │   │ │ │ │ │   ├TfrmGraphs.InfoMessage
 │ │ │ │   │   │ │ │ │ │   └TfrmGraphs.MergedLabsSelected
 │ │ │ │   │   │ │ │ │ ├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.LabData...
 │ │ │ │   │   │ │ │ │ │     │ └rpcGetItemData...
 │ │ │ │   │   │ │ │ │ │     ├TfrmGraphs.TempData
 │ │ │ │   │   │ │ │ │ │     │ ├TfrmGraphs.ItemName
 │ │ │ │   │   │ │ │ │ │     │ └TfrmGraphs.SetRef...
 │ │ │ │   │   │ │ │ │ │     └ReportBox
 │ │ │ │   │   │ │ │ │ │       └CreateReportBox
 │ │ │ │   │   │ │ │ │ │         └TfrmBase508Form.Create...
 │ │ │ │   │   │ │ │ │ ├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...
 │ │ │ │   │   │   │   ├TfrmGraphs.TypeIsDisplayed
 │ │ │ │   │   │   │   └TfrmGraphs.DisplayType
 │ │ │ │   │   │   │     └TfrmGraphs.FileNameX
 │ │ │ │   │   │   ├TfrmGraphs.cboDateRangeChange...
 │ │ │ │   │   │   ├TfrmGraphs.ViewDefinition
 │ │ │ │   │   │   ├TfrmGraphs.AssignProfile...
 │ │ │ │   │   │   ├TfrmGraphs.lvwItemsTopColumnClick
 │ │ │ │   │   │   ├TfrmGraphs.lvwItemsBottomColumnClick
 │ │ │ │   │   │   └TfrmGraphs.AutoSelect
 │ │ │ │   │   │     ├TfrmGraphs.lvwItemsTopClick...
 │ │ │ │   │   │     └TfrmGraphs.lvwItemsBottomClick
 │ │ │ │   │   │       ├GraphTurboOn
 │ │ │ │   │   │       ├TfrmGraphs.Switch...
 │ │ │ │   │   │       └TfrmGraphs.ItemsClick...
 │ │ │ │   │   └TfrmGraphs.lstViewsBottomChange
 │ │ │ │   │     └TfrmGraphs.ViewsChange...
 │ │ │ │   ├TfrmGraphs.HideGraphs
 │ │ │ │   ├TfrmGraphs.CheckToAddData...
 │ │ │ │   ├TfrmGraphs.DisplayData...
 │ │ │ │   └TfrmGraphs.ZoomUpdate
 │ │ │ │     ├TfrmGraphs.ZoomTo
 │ │ │ │     │ └TfrmGraphs.SizeDates...
 │ │ │ │     └TfrmGraphs.ZoomUpdateInfo...
 │ │ │ └TfrmGraphs.lvwItemsBottomClick...
 │ │ ├TfrmGraphs.lstViewsTopChange...
 │ │ ├TfrmGraphs.lvwItemsTopClick...
 │ │ ├TfrmGraphs.lstViewsBottomChange...
 │ │ ├TfrmGraphs.lvwItemsBottomClick...
 │ │ └TfrmGraphs.cboDateRangeChange...
 │ ├TfrmGraphs.InitialRetain
 │ └..(rec)..
 ├SelectTest
 │ └TfrmBase508Form.Create...
 ├TfrmLabs.chkGraphZoomClick
 ├TfrmLabs.chkGraph3DClick
 ├TfrmLabs.chkGraphValuesClick
 ├TfrmLabs.GoRemoteOld...
 ├Reports
 ├TfrmLabs.GoRemote
 │ ├HDRActive
 │ ├StrToFMDateTime
 │ ├TRemoteSite.SetSelected
 │ ├TRemoteSite.ReportClear
 │ ├TfrmLabs.UpdateRemoteStatus
 │ ├TfrmLabs.LoadListView
 │ │ ├TLabRowObject.Add
 │ │ │ ├TCellObject.Create
 │ │ │ └TCellObject.Add
 │ │ └TUser.HasKey
 │ │   └HasSecurityKey
 │ ├GetRemoteData
 │ ├DirectQuery
 │ └RemoteQuery
 ├LoadReportText
 │ └StrToFMDateTime
 ├ListReportDateRanges
 │ └LoadReportLists
 │   └ExtractSection
 ├TfrmLabs.lstQualifierClick
 │ ├TfrmLabs.DisplayHeading...
 │ ├TfrmLabs.FMToDateTime
 │ ├FMToday...
 │ ├TfrmLabs.BeginEndDates...
 │ ├TfrmLabs.BlankWeb
 │ ├TRemoteSite.ReportClear
 │ ├TLabRowObject.Clear
 │ ├TfrmLabs.GoRemote...
 │ ├LoadReportText...
 │ ├TfrmLabs.LoadListView...
 │ ├TfrmLabs.ShowTabControl
 │ ├TfrmLabs.GoRemoteOld...
 │ ├Cumulative
 │ ├Interim
 │ ├InterimSelect
 │ ├Worksheet
 │ ├TfrmLabs.HGrid...
 │ ├TfrmLabs.VGrid...
 │ ├TfrmLabs.GraphList
 │ ├TfrmLabs.GridComments
 │ ├TfrmLabs.ragCorGClick...
 │ ├TfrmLabs.chkGraphZoomClick
 │ ├GetChart
 │ ├TfrmLabs.GraphChart...
 │ ├Micro
 │ └Reports
 └TfrmLabs.LoadListView...

Called-By Hierarchy


                            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┘       

Calls

Name Declaration Comments
TfrmLabs.BlankWeb procedure BlankWeb; -
TfrmLabs.ChkBrowser procedure ChkBrowser; -
TfrmLabs.chkGraph3DClick procedure chkGraph3DClick(Sender: TObject); -
TfrmLabs.chkGraphValuesClick procedure chkGraphValuesClick(Sender: TObject); -
TfrmLabs.chkGraphZoomClick procedure chkGraphZoomClick(Sender: TObject); -
TLabRowObject.Clear procedure Clear; -
TfrmLabs.cmdRecentClick procedure cmdRecentClick(Sender: TObject); -
ColumnHeaders procedure ColumnHeaders(Dest: TStrings; AReportType: String); -
TfrmLabs.CommonComponentVisible procedure CommonComponentVisible(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12: Boolean); -
TfrmLabs.DisplayHeading procedure DisplayHeading(aRanges: string); -
TfrmLabs.FormResize procedure FormResize(Sender: TObject); -
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.HideTabControl procedure HideTabControl; -
TRemoteSite.LabClear procedure LabClear; -
ListReportDateRanges procedure ListReportDateRanges(Dest: TStrings); -
TfrmLabs.LoadListView procedure LoadListView(aReportData: TStringList); -
LoadReportText procedure LoadReportText(Dest: TStrings; ReportType: string; const Qualifier: string; ARpc, AHSTag: string); -
TfrmLabs.lstDatesClick procedure lstDatesClick(Sender: TObject); -
TfrmLabs.lstQualifierClick procedure lstQualifierClick(Sender: TObject); -
TfrmFrame.mnuToolsGraphingClick procedure mnuToolsGraphingClick(Sender: TObject); -
Reports procedure Reports(Dest: TStrings; const PatientDFN: string; reportid, hstype, ADate, section: string; Adate1, Adate2: TFMDateTime; ARpc: string); -
SaveColumnSizes procedure SaveColumnSizes(aColumn: String); -
SelectTest procedure SelectTest(FontSize: Integer); -
SelectTestGroups procedure SelectTestGroups(FontSize: Integer); -
SelectTests procedure SelectTests(FontSize: Integer); -
TfrmLabs.ShowTabControl procedure ShowTabControl; -
TfrmLabs.tvReportsClick procedure tvReportsClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmLabs.chkMaxFreqClick procedure chkMaxFreqClick(Sender: TObject); -
TfrmLabs.cmdOtherTestsClick procedure cmdOtherTestsClick(Sender: TObject); -
TfrmLabs.DisplayPage procedure DisplayPage; override; -
TfrmLabs.LoadTreeView procedure LoadTreeView; -
TfrmFrame.lstCIRNLocationsClick procedure lstCIRNLocationsClick(Sender: TObject); -
TfrmLabs.ProcessNotifications procedure ProcessNotifications; -
TfrmLabs.tvReportsClick procedure tvReportsClick(Sender: TObject); -
TfrmLabs.tvReportsKeyDown procedure tvReportsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); -


Source

3385  procedure TfrmLabs.tvReportsClick(Sender: TObject);
3386  var
3387    i: integer;
3388    aHeading, aReportType, aRPC, aQualifier, aStartTime, aStopTime, aMax, aRptCode, aRemote, aCategory, aSortOrder, aDaysBack, x, x1, x2: string;
3389    aIFN, aOldID: integer;
3390    aID, aHSTag, aColChange, aDirect, aHDR, aFHIE, aFHIEONLY, aQualifierID: string;
3391    CurrentNode: TTreeNode;
3392  begin
3393    inherited;
3394    lblHeading.Caption := '';
3395    lvReports.Hint := 'To sort, click on column headers|';
3396    tvReports.TopItem := tvReports.Selected;
3397    uRemoteCount := 0;
3398    Timer1.Interval := 3000;
3399    uReportInstruction := '';
3400    aHeading    :=  PReportTreeObject(tvReports.Selected.Data)^.Heading;
3401    aRemote     :=  PReportTreeObject(tvReports.Selected.Data)^.Remote;
3402    aReportType :=  PReportTreeObject(tvReports.Selected.Data)^.RptType;
3403    aQualifier  :=  PReportTreeObject(tvReports.Selected.Data)^.Qualifier;
3404    aID         :=  PReportTreeObject(tvReports.Selected.Data)^.ID;
3405    aRPC        :=  PReportTreeObject(tvReports.Selected.Data)^.RPCName;
3406    aHSTag      :=  PReportTreeObject(tvReports.Selected.Data)^.HSTag;
3407    aCategory   :=  PReportTreeObject(tvReports.Selected.Data)^.Category;
3408    aSortOrder  :=  PReportTreeObject(tvReports.Selected.Data)^.SortOrder;
3409    aDaysBack   :=  PReportTreeObject(tvReports.Selected.Data)^.MaxDaysBack;
3410    aIFN        :=  StrToIntDef(PReportTreeObject(tvReports.Selected.Data)^.IFN,0);
3411    aDirect     :=  PReportTreeObject(tvReports.Selected.Data)^.Direct;
3412    aHDR        :=  PReportTreeObject(tvReports.Selected.Data)^.HDR;
3413    aFHIE       :=  PReportTreeObject(tvReports.Selected.Data)^.FHIE;
3414    aFHIEONLY   :=  PReportTreeObject(tvReports.Selected.Data)^.FHIEONLY;
3415    aStartTime  :=  Piece(aQualifier,';',1);
3416    aStopTime   :=  Piece(aQualifier,';',2);
3417    aMax        :=  Piece(aQualifier,';',3);
3418    aRptCode    :=  Piece(aQualifier,';',4);
3419    aQualifierID:= '';
3420    lstQualifier.ItemIndex := -1;
3421    if length(uColChange) > 0 then
3422      begin
3423        aColChange := '';
3424        for i := 0 to lvReports.Columns.Count - 1 do
3425          aColChange := aColChange + IntToStr(lvReports.Column[i].width) + ',';
3426        if (Length(aColChange) > 0) and (aColChange <> piece(uColchange,'^',2)) then
3427          SaveColumnSizes(piece(uColChange,'^',1) + '^' + aColChange);
3428        uColChange := '';
3429      end;
3430    if (aReportType <> 'M') and (aRPC = '') and (CharAt(aID,1) = 'H') then
3431      begin
3432        aReportType :=  'R';
3433        aRptCode    :=  LowerCase(CharAt(aID,1)) + Copy(aID, 2, Length(aID));
3434        aID         :=  '1';
3435        aRPC        :=  'ORWRP REPORT TEXT';
3436        aHSTag      :=  '';
3437      end;
3438    uLabLocalReportData.Clear;
3439    uLabRemoteReportData.Clear;
3440    if aReportType = '' then aReportType := 'R';
3441    uReportRPC := aRPC;
3442    uRptID := aID;
3443    uLabRepID := aID;
3444    uDirect := aDirect;
3445    uReportType := aReportType;
3446    uQualifier := aQualifier;
3447    uSortOrder := aSortOrder;
3448    uRemoteType := aRemote + '^' + aReportType + '^' + IntToStr(aIFN) + '^' + aHeading + '^' + aRptCode + '^' + aDaysBack + '^' + aHDR + '^' + aFHIE + '^' + aFHIEONLY;
3449    pnlRightTop.Height := lblTitle.Height;  // see below
3450    RedrawSuspend(tvReports.Handle);
3451    RedrawSuspend(memLab.Handle);
3452    uHState := aHSTag;
3453    Timer1.Enabled := False;
3454    HideTabControl;
3455    sptHorzRight.Visible := true;
3456    lvReports.Visible := false;
3457    if (aRemote = '1') or (aRemote = '2') then
3458      if not(uReportType = 'V') then
3459        ShowTabControl;
3460    StatusText('');
3461    uHTMLDoc := '';
3462    BlankWeb;
3463    memLab.Lines.Clear;
3464    memLab.Parent := pnlRightBottom;
3465    memLab.Align := alClient;
3466    lvReports.SmallImages := uEmptyImageList;
3467    lvReports.Items.Clear;
3468    lvReports.Columns.Clear;
3469    DisplayHeading('');
3470    if uReportType = 'H' then
3471      begin
3472        lvReports.Visible := false;
3473        pnlRightBottom.Visible := true;
3474        WebBrowser1.Visible := true;
3475        WebBrowser1.TabStop := true;
3476        BlankWeb;
3477        WebBrowser1.BringToFront;                 
3478        memLab.Visible := false;
3479        memLab.TabStop := false;
3480      end
3481    else
3482      if uReportType = 'V' then
3483        begin
3484          with lvReports do
3485            begin
3486              RedrawSuspend(lvReports.Handle);
3487              Columns.BeginUpdate;
3488              ViewStyle := vsReport;
3489              ColumnHeaders(uColumns, IntToStr(aIFN));
3490              for i := 0 to uColumns.Count -1 do
3491                begin
3492                  uNewColumn := Columns.Add;
3493                  uNewColumn.Caption := piece(uColumns.Strings[i],'^',1);
3494                  if length(uColChange) < 1 then uColChange := IntToStr(aIFN) + '^';
3495                  if piece(uColumns.Strings[i],'^',2) = '1' then
3496                    begin
3497                      uNewColumn.Width := 0;
3498                      uColChange := uColChange + '0,';
3499                    end
3500                  else
3501                    if length(piece(uColumns.Strings[i],'^',10)) > 0 then
3502                      begin
3503                        uColChange := uColChange + piece(uColumns.Strings[i],'^',10) + ',';
3504                        uNewColumn.Width := StrToInt(piece(uColumns.Strings[i],'^',10))
3505                      end
3506                    else
3507                      uNewColumn.Width := ColumnHeaderWidth;  //ColumnTextWidth for width of text
3508                  if (i = 0) and (((aRemote <> '2') and (aRemote <> '1')) or ((TabControl1.Tabs.Count < 2) and (not (aHDR = '1')))) then
3509                    uNewColumn.Width := 0;
3510                end;
3511              Columns.EndUpdate;
3512              RedrawActivate(lvReports.Handle);
3513            end;
3514          lvReports.Visible := true;
3515          sptHorzRight.Visible := true;
3516          WebBrowser1.Visible := false;
3517          WebBrowser1.TabStop := false;
3518          pnlRightBottom.Visible := true;
3519          memLab.Visible := true;
3520          memLab.TabStop := true;
3521          memLab.BringToFront;
3522          RedrawActivate(memLab.Handle);
3523        end
3524      else
3525        begin
3526          lvReports.Visible := true;
3527          sptHorzRight.Visible := false;
3528          WebBrowser1.Visible := false;
3529          WebBrowser1.TabStop := false;
3530          pnlRightBottom.Visible := True;
3531          memLab.Visible := true;
3532          memLab.TabStop := true;
3533          memLab.BringToFront;
3534          RedrawActivate(memLab.Handle);
3535        end;
3536    uLocalReportData.Clear;
3537    LabRowObjects.Clear;
3538    uRemoteReportData.Clear;
3539    lstHeaders.Visible := false;
3540    lstHeaders.TabStop := false;
3541    lblHeaders.Visible := false;
3542    lstHeaders.Clear;
3543    for i := 0 to RemoteSites.SiteList.Count - 1 do
3544      TRemoteSite(RemoteSites.SiteList.Items[i]).LabClear;
3545    if uFrozen = True then
3546      begin
3547        memo1.visible := False;
3548        memo1.TabStop := False;
3549      end;
3550    Screen.Cursor := crHourGlass;
3551    if aReportType = 'M' then
3552      begin
3553        pnlLeftBottom.Visible := false;
3554        splitter1.Visible := false;
3555        CommonComponentVisible(false,false,false,false,false,false,false,false,false,false,false,false);
3556        memLab.Clear;
3557        ChkBrowser;
3558        pnlHeader.Visible := false;
3559        sptHorzRight.Visible := true;
3560        lvReports.Visible := false;
3561        pnlRighttop.Height := lblHeading.Height;
3562        memLab.Height := pnlRight.Height - (lblHeading.Height + lblTitle.Height);
3563        pnlRightTop.Visible := true;
3564        memLab.Align := alClient;
3565        FormResize(self);
3566      end
3567    else
3568      begin
3569       uQualifierType := StrToIntDef(aRptCode,0);
3570        case uQualifierType of
3571          QT_OTHER:
3572            begin      //      = 0
3573              memLab.Lines.Clear;
3574              If aID = '1:MOST RECENT' then
3575                     begin
3576                        CommonComponentVisible(false,false,false,false,false,true,true,false,true,false,false,false);
3577                        pnlRightTop.Height := pnlLeft.Height - (pnlLeft.Height div 5);
3578                        pnlRightTop.Visible := true;
3579                        pnlButtons.Visible := true;
3580                        pnlWorksheet.Visible := false;
3581                        pnlGraph.Visible := false;
3582                        memLab.Align := alBottom;
3583                        pnlRightTop.Align := alTop;
3584                        pnlRightBottom.Align := alclient;
3585                        sptHorzRight.Visible := true;
3586                        pnlRightBottom.Visible := true;
3587                        pnlRightBottom.Height := pnlLeft.Height div 5;
3588                        memLab.Height := pnlLeft.Height div 5;
3589                        grdLab.Align := alTop;
3590                        memLab.Clear;
3591                        if uReportType = 'H' then
3592                         begin
3593                           BlankWeb;
3594                           WebBrowser1.Align := alBottom;
3595                           WebBrowser1.Height := pnlLeft.Height div 5;
3596                           WebBrowser1.Visible := true;
3597                           WebBrowser1.BringToFront;
3598                           memLab.Visible := false;
3599                         end
3600                        else
3601                        begin
3602                          WebBrowser1.Visible := false;
3603                          WebBrowser1.SendToBack;
3604                          memLab.Visible := true;
3605                          memLab.BringToFront;
3606                        end; 
3607                        FormResize(self);
3608                        cmdRecentClick(self);
3609                        uPrevReportNode := tvReports.Selected;
3610                     end
3611              else if aID = '4:SELECTED TESTS BY DATE' then
3612                    begin               // Interim for Selected Tests
3613                      if uPrevReportNode <> tvReports.Selected then
3614                      begin
3615                       lstTests.Clear;
3616                       lblSpecimen.Caption := '';
3617                      end;
3618                      SelectTests(Font.Size);
3619                      if lstTests.Items.Count > 0 then
3620                      begin
3621                       CommonComponentVisible(false,false,true,true,true,false,false,false,true,false,false,false);
3622                       pnlRighttop.Height := lblHeading.Height + lblTitle.Height;
3623                       pnlRightTop.Visible := false;
3624                       memLab.Clear;
3625                       ChkBrowser;
3626                       FormResize(self);
3627                       RedrawActivate(memLab.Handle);
3628                       lstDatesClick(self);
3629                       //lstQualifierClick(self);
3630                       cmdOtherTests.SetFocus;
3631                       cmdOtherTests.Default := true;
3632                       uPrevReportNode := tvReports.Selected;
3633                      end
3634                      else
3635                        begin
3636                          uPrevReportNode := tvReports.Items.GetFirstNode;
3637                          tvReports.Selected := uPrevReportNode;
3638                          tvReportsClick(self);
3639                        end;
3640                    end
3641              else if aID = '5:WORKSHEET' then
3642                    begin               // Worksheet
3643                      if uPrevReportNode <> tvReports.Selected then
3644                      begin
3645                       lstTests.Clear;
3646                       lblSpecimen.Caption := '';
3647                      end;
3648                      SelectTestGroups(Font.Size);
3649                      if lstTests.Items.Count > 0 then
3650                      begin
3651                       CommonComponentVisible(false,false,true,true,true,true,true,false,false,false,false,false);
3652                       pnlRighttop.Height := pnlRight.Height - (pnlRight.Height div 4);
3653                       pnlRightTop.Visible := true;
3654                       pnlHeader.Align := alTop;
3655                       pnlChart.Align := alTop;
3656                       sptHorzRight.Visible := true;
3657                       chtChart.Visible := true;
3658                       memLab.Visible := false;
3659                       pnlButtons.Visible := false;
3660                       pnlWorksheet.Visible := true;
3661                       pnlGraph.Visible := false;
3662                       lstTestGraph.Width := 97;
3663                       ragCorG.ItemIndex := 0;
3664                       FormResize(self);
3665                       lblFooter.Caption := '  KEY: "L" = Abnormal Low, "H" = Abnormal High, "*" = Critical Value, "**" = Comments on Specimen';
3666                       cmdOtherTests.SetFocus;
3667                       cmdOtherTests.Default := true;
3668                       uPrevReportNode := tvReports.Selected;
3669                       if lstDates.ItemIndex = -1 then
3670                        if Patient.Inpatient then lstDates.ItemIndex := 2
3671                        else lstDates.ItemIndex := 4;
3672                       lstDatesClick(self);
3673                       if ScreenReaderSystemActive then
3674                         grdLab.SetFocus;
3675                      end
3676                      else
3677                        begin
3678                          uPrevReportNode := tvReports.Items.GetFirstNode;
3679                          tvReports.Selected := uPrevReportNode;
3680                          tvReportsClick(self);
3681                        end;
3682                    end
3683  
3684              else if aID = '6:GRAPH' then
3685                    begin               // Graph
3686                      // do if graphing is activiated
3687                      if uGraphingActivated then
3688                      begin
3689                       memLab.Clear;
3690                       ChkBrowser;
3691                       FormResize(self);
3692                       memLab.Align := alClient;
3693                       CommonComponentVisible(false,false,false,false,false,false,false,false,false,false,false,false);
3694                       pnlRightTop.Visible := false;
3695                       RedrawActivate(memLab.Handle);
3696                       StatusText('');
3697                       memLab.Lines.Insert(0, ' ');
3698                       memLab.Lines.Insert(1, 'Graphing activated');
3699                       memLab.SelStart := 0;
3700                       frmFrame.mnuToolsGraphingClick(self);  // make it just lab tests ??
3701                      end
3702                      else  // otherwise, do lab graph
3703                      begin
3704                       if uPrevReportNode <> tvReports.Selected then
3705                       begin
3706                         lblSingleTest.Caption := '';
3707                         lblSpecimen.Caption := '';
3708                       end;
3709                       SelectTest(Font.Size);
3710                       if (length(lblSingleTest.Caption) > 2) and (length(lblSpecimen.Caption) > 2) then
3711                       begin
3712                         CommonComponentVisible(false,false,true,true,true,true,false,false,true,false,false,false);
3713                         pnlChart.Visible := true;
3714                         chtChart.Visible := true;
3715                         pnlButtons.Visible := false;
3716                         pnlWorksheet.Visible := false;
3717                         pnlGraph.Visible := true;
3718                         memLab.Height := pnlRight.Height div 5;
3719                         memLab.Clear;
3720                         if uReportType = 'H' then
3721                         begin
3722                           WebBrowser1.Visible := true;
3723                           BlankWeb;
3724                           WebBrowser1.Height := pnlRight.Height div 5;
3725                           WebBrowser1.BringToFront;
3726                           memLab.Visible := false;
3727                         end
3728                         else
3729                         begin
3730                           WebBrowser1.Visible := false;
3731                           WebBrowser1.SendToBack;
3732                           memLab.Visible := true;
3733                           memLab.BringToFront;
3734                         end; 
3735                         lstTestGraph.Items.Clear;
3736                         lstTestGraph.Width := 0;
3737                         FormResize(self);
3738                         RedrawActivate(memLab.Handle);
3739                         lblFooter.Caption := '';
3740                         chkGraphZoom.Checked := false;
3741                         chkGraphZoomClick(self);
3742                         chkGraph3DClick(self);
3743                         chkGraphValuesClick(self);
3744                         lstDatesClick(self);
3745                         cmdOtherTests.SetFocus;
3746                         cmdOtherTests.Default := true;
3747                         uPrevReportNode := tvReports.Selected;
3748                       end
3749                       else
3750                         tvReports.Selected := uPrevReportNode; 
3751                      end;
3752                    end
3753  
3754              else if (aID = '9:MICROBIOLOGY') or (aID = '20:ANATOMIC PATHOLOGY') or (aID = '2:BLOOD BANK') or (aID = '10:LAB STATUS') or (aID = '3:ALL TESTS BY DATE') or (aID = '21:CUMULATIVE') or (aID = '27:AUTOPSY') then
3755                    begin
3756                      //added to deal with other reports from file 101.24
3757                      memLab.Clear;
3758                      ChkBrowser;
3759                      pnlHeader.Visible := false;
3760                      pnlRightTop.Visible := false;
3761                      pnlRightBottom.Visible := false;
3762                      sptHorzRight.Visible := false;
3763                      pnlRightTop.Height := lblHeading.Height;
3764                      if ((aRemote = '1') or (aRemote = '2')) then
3765                        ShowTabControl;
3766                      pnlRightTopHeader.Align := alTop;
3767                      pnlRightTop.Align := alTop;
3768                      TabControl1.Align := alTop;
3769                      pnlRightBottom.Align := alclient;
3770                      sptHorzRight.Visible := true;
3771                      pnlRightBottom.Visible := true;
3772                      lvReports.Visible := false;
3773                      memLab.Align := alClient;
3774                      if lstDates.ItemIndex = -1 then
3775                        if Patient.Inpatient then lstDates.ItemIndex := 2
3776                        else lstDates.ItemIndex := 4;
3777                      FormResize(self);
3778                      aOldID := 1;
3779                      if aID = '9:MICROBIOLOGY' then aOldID := 4;
3780                      //if aID = '20:ANATOMIC PATHOLOGY' then AOldID := 8;
3781                      if aID = '2:BLOOD BANK' then AOldID := 9;
3782                      if aID = '10:LAB STATUS' then AOldID := 10;
3783                      if aID = '3:ALL TESTS BY DATE' then AOldID := 3;
3784                      if aID = '21:CUMULATIVE' then AOldID := 2;
3785                      case StrToInt(aCategory) of
3786                                    {Categories of reports:
3787                                        0:Fixed
3788                                        1:Fixed w/Dates
3789                                        2:Fixed w/Headers
3790                                        3:Fixed w/Dates & Headers
3791                                        4:Specialized
3792                                        5:Graphic}
3793  
3794                        0: begin
3795                            CommonComponentVisible(false,false,false,false,false,false,false,false,false,false,false,false);
3796                            StatusText('Retrieving data...');
3797                            GoRemoteOld(uLabRemoteReportData,StrToInt(Piece(aID,':',1)),aOldID,'',uReportRPC,'0','9999','1',0,0);
3798                            //GoRemote(uRemoteReportData, aID, aRptCode, aRPC, uHState, aHDR, aFHIE);
3799                            TabControl1.OnChange(nil);
3800                            Reports(uLabLocalReportData,Patient.DFN, 'L:' + Piece(aID,':',1), '0', '9999', '1', 0, 0, uReportRPC);
3801                            if TabControl1.TabIndex < 1 then
3802                              QuickCopy(uLabLocalReportData,memLab);
3803                            RedrawActivate(memLab.Handle);
3804                            StatusText('');
3805                            memLab.Lines.Insert(0,' ');
3806                            memLab.Lines.Delete(0);
3807                            memLab.SelStart := 0;
3808                            if uReportType = 'R' then
3809                            uHTMLDoc := HTML_PRE + uLabLocalReportData.Text + HTML_POST
3810                            else
3811                            uHTMLDoc := uHTMLPatient + uLabLocalReportData.Text;
3812                            if WebBrowser1.Visible = true then BlankWeb;
3813                           end;
3814                        1: begin
3815                            CommonComponentVisible(false,false,false,true,true,false,false,false,false,false,false,false);
3816                            memLab.Repaint;
3817                            lstDatesClick(self);
3818                           end;
3819                        2: begin
3820                            CommonComponentVisible(true,true,false,false,false,false,false,false,false,false,false,false);
3821                            lstHeaders.Clear;
3822                            StatusText('Retrieving data...');
3823                            GoRemoteOld(uLabRemoteReportData,StrToInt(Piece(aID,':',1)),aOldID,'',uReportRPC,'0','9999','1',0,0);
3824                            TabControl1.OnChange(nil);
3825                            Reports(uLabLocalReportData,Patient.DFN, Piece(aID,':',1), '0', '9999', '1', 0, 0, uReportRPC);
3826                            if uLabLocalReportData.Count > 0 then
3827                            begin
3828                             TabControl1.OnChange(nil);
3829                             if lstHeaders.Items.Count > 0 then lstHeaders.ItemIndex := 0;
3830                            end;
3831                            RedrawActivate(memLab.Handle);
3832                            StatusText('');
3833                            memLab.Lines.Insert(0,' ');
3834                            memLab.Lines.Delete(0);
3835                            if uReportType = 'R' then
3836                             uHTMLDoc := HTML_PRE + uLabLocalReportData.Text + HTML_POST
3837                            else
3838                             uHTMLDoc := uHTMLPatient + uLabLocalReportData.Text;
3839                            if WebBrowser1.Visible = true then BlankWeb;
3840                           end;
3841                        3: begin
3842                            CommonComponentVisible(true,true,false,true,true,false,false,false,true,false,false,false);
3843                            lstDatesClick(self);
3844                            memLab.Lines.Insert(0,' ');
3845                            memLab.Lines.Delete(0);
3846                           end;
3847                      end;
3848                      uPrevReportNode := tvReports.Selected;
3849                    end
3850  
3851              //else if aID = '20:ANATOMIC PATHOLOGY' then
3852  
3853              //else if aID = '2:BLOOD BANK' then
3854  
3855              //else if aID = '10:LAB STATUS' then
3856  
3857  
3858              else
3859                begin
3860                  pnlLeftBottom.Visible := false;
3861                  splitter1.Visible := false;
3862                  CommonComponentVisible(true,true,false,false,false,false,false,false,false,false,false,false);
3863                  pnlRightTop.Visible := true;
3864                  StatusText('Retrieving ' + tvReports.Selected.Text + '...');
3865                  GoRemote(uRemoteReportData, 'L:' + aID, aRptCode, aRPC, uHState, aHDR, aFHIE);
3866                  uReportInstruction := #13#10 + 'Retrieving data...';
3867                  TabControl1.OnChange(nil);
3868                  if not(piece(uRemoteType, '^', 9) = '1') then
3869                    LoadReportText(uLocalReportData, 'L:' + aID, aRptCode, aRPC, uHState);
3870                  QuickCopy(uLocalReportData, memLab);
3871                  if uLocalReportData.Count > 0 then
3872                      TabControl1.OnChange(nil);
3873                  StatusText('');
3874                  uPrevReportNode := tvReports.Selected;
3875                end;
3876            end;
3877          QT_DATERANGE:
3878            begin      //      = 2
3879  
3880              ListReportDateRanges(lstQualifier.Items);
3881                if lstQualifier.ItemID = '' then
3882                  begin
3883                    lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
3884                    lvReports.SmallImages := uEmptyImageList;
3885                    lvReports.Items.Clear;
3886                    lstQualifierClick(self);
3887                  end
3888                else
3889                  lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
3890  
3891              lblQualifier.Caption := 'Date Range';
3892              pnlLeftBottom.Visible := true;
3893              splitter1.Visible := true;
3894              uPrevReportNode := tvReports.Selected;
3895            end;
3896          QT_HSCOMPONENT:
3897            begin      //      = 5
3898              pnlRightTop.Height := pnlRight.Height - (pnlRight.Height div 4);
3899              pnlLeftBottom.Visible := false;
3900              splitter1.Visible := false;
3901              StatusText('Retrieving ' + tvReports.Selected.Text + '...');
3902              uReportInstruction := #13#10 + 'Retrieving data...';
3903              CommonComponentVisible(false,false,false,false,false,false,false,false,false,false,true,true);
3904              pnlRightTop.Visible := true;
3905              lvReports.Visible := true;
3906              lvReports.SmallImages := uEmptyImageList;
3907              lvReports.Items.Clear;
3908              LabRowObjects.Clear;
3909              memLab.Lines.Clear;
3910              if (length(piece(aHSTag,';',2)) > 0) then
3911                begin
3912                  if aCategory <> '0' then
3913                    begin
3914                      ListReportDateRanges(lstQualifier.Items);
3915                      aQualifierID := lstQualifier.ItemID;
3916                      if aQualifierID = '' then
3917                        begin
3918                          if aHDR = '1' then
3919                            lstQualifier.ItemIndex := lstQualifier.Items.Add('T-50000' + ';' + 'T+50000' + '^' + 'T-50000' + ' to ' + 'T+50000')
3920                          else
3921                            if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
3922                          lstQualifierClick(self);
3923                        end
3924                      else
3925                        begin
3926                          GoRemote(uRemoteReportData, 'L:' + aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
3927                          if aHDR = '1' then
3928                            lstQualifier.ItemIndex := lstQualifier.Items.Add('T-50000' + ';' + 'T+50000' + '^' + 'T-50000' + ' to ' + 'T+50000')
3929                          else
3930                            if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
3931                          lstQualifierClick(self);
3932                        end;
3933                      lblQualifier.Caption := 'Date Range';
3934                      pnlLeftBottom.Visible := true;
3935                      splitter1.Visible := true;
3936                    end
3937                  else
3938                    begin
3939                      if not (aRemote = '2' ) then
3940                        GoRemote(uRemoteReportData, 'L:' + aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
3941                      if not(piece(uRemoteType, '^', 9) = '1') then
3942                        begin
3943                          LoadReportText(uLocalReportData, 'L:' + aID, aQualifier, aRPC, uHState);
3944                          LoadListView(uLocalReportData);
3945                        end;
3946                    end;
3947                end
3948              else
3949                begin
3950                  if (aRemote = '1') or (aRemote = '2') then
3951                    if TabControl1.Tabs.Count > 1 then
3952                      ShowTabControl;
3953                  GoRemote(uRemoteReportData, 'L:' + aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
3954                  if not(piece(uRemoteType, '^', 9) = '1') then
3955                    LoadReportText(uLocalReportData, 'L:' + aID, aQualifier, aRPC, uHState);
3956                  if uLocalReportData.Count < 1 then
3957                    uReportInstruction := '<No Report Available>'
3958                  else
3959                    begin
3960                      if TabControl1.TabIndex < 1 then
3961                        QuickCopy(uLocalReportData,memLab);
3962                    end;
3963                  TabControl1.OnChange(nil);
3964                  if aCategory <> '0' then
3965                    begin
3966                      ListReportDateRanges(lstQualifier.Items);
3967                      if lstQualifier.ItemID = '' then
3968                        begin
3969                          lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
3970                          lstQualifierClick(self);
3971                        end
3972                      else
3973                        lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
3974  
3975                      lblQualifier.Caption := 'Date Range';
3976                      pnlLeftBottom.Visible := true;
3977                      splitter1.Visible := true;
3978                    end
3979                  else
3980                    begin
3981                      if uLocalReportData.Count < 1 then
3982                        begin
3983                          uReportInstruction := '<No Report Available>';
3984                          memLab.Lines.Add(uReportInstruction);
3985                        end
3986                      else
3987                        begin
3988                          QuickCopy(uLocalReportData,memLab);
3989                          TabControl1.OnChange(nil);
3990                        end;
3991                    end;
3992                end;
3993              StatusText('');
3994              uPrevReportNode := tvReports.Selected;
3995            end;
3996          QT_HSWPCOMPONENT:
3997            begin      //      = 6
3998              pnlRightTop.Height := pnlRight.Height - (pnlRight.Height div 2);
3999              sptHorzRight.top := pnlRightTop.Height;
4000              uScreenSplitLoc := sptHorzRight.Top;
4001              pnlLeftBottom.Visible := false;
4002              splitter1.Visible := false;
4003              StatusText('Retrieving ' + tvReports.Selected.Text + '...');
4004              uReportInstruction := #13#10 + 'Retrieving data...';
4005              CommonComponentVisible(false,false,false,false,false,false,false,false,false,false,false,false);
4006              pnlRightTop.Visible := true;
4007              lvReports.Visible := true;
4008              sptHorzRight.Visible := true;
4009              memLab.Visible := true;
4010              TabControl1.OnChange(nil);
4011              LabRowObjects.Clear;
4012              memLab.Lines.Clear;
4013              lvReports.SmallImages := uEmptyImageList;
4014              lvReports.Items.Clear;
4015              memLab.Repaint;
4016              if (length(piece(aHSTag,';',2)) > 0) then
4017                begin
4018                  if aCategory <> '0' then
4019                    begin
4020                      ListReportDateRanges(lstQualifier.Items);
4021                      aQualifierID := lstQualifier.ItemID;
4022                      if aQualifierID = '' then
4023                        begin
4024                          if aHDR = '1' then
4025                            lstQualifier.ItemIndex := lstQualifier.Items.Add('T-50000' + ';' + 'T+50000' + '^' + 'T-50000' + ' to ' + 'T+50000')
4026                          else
4027                            if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
4028                          lstQualifierClick(self);
4029                        end
4030                      else
4031                        begin
4032                          GoRemote(uRemoteReportData, 'L:' + aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
4033                          if aHDR = '1' then
4034                            lstQualifier.ItemIndex := lstQualifier.Items.Add('T-50000' + ';' + 'T+50000' + '^' + 'T-50000' + ' to ' + 'T+50000')
4035                          else
4036                            if length(aStartTime) > 0 then lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
4037                          lstQualifierClick(self);
4038                        end;
4039                      lblQualifier.Caption := 'Date Range';
4040                      CommonComponentVisible(false,false,false,false,false,false,false,false,false,true,true,true);
4041                      pnlLeftBottom.Visible := true;
4042                      splitter1.Visible := true;
4043                    end
4044                  else
4045                    begin
4046                      GoRemote(uRemoteReportData, 'L:' + aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
4047                      if not (aRemote = '2' ) and (not(piece(uRemoteType, '^', 9) = '1')) then
4048                        begin
4049                          LoadReportText(uLocalReportData, 'L:' + aID, aQualifier, aRPC, uHState);
4050                          LoadListView(uLocalReportData);
4051                        end;
4052                    end;
4053                end
4054              else
4055                begin
4056                  if (aRemote = '1') or (aRemote = '2') then
4057                    ShowTabControl;
4058                  GoRemote(uRemoteReportData, 'L:' + aID, aQualifier, aRPC, uHState, aHDR, aFHIE);
4059                  if not(piece(uRemoteType, '^', 9) = '1') then
4060                    LoadReportText(uLocalReportData, 'L:' + aID, aQualifier, aRPC, uHState);
4061                  if uLocalReportData.Count < 1 then
4062                    uReportInstruction := '<No Report Available>'
4063                  else
4064                    begin
4065                      if TabControl1.TabIndex < 1 then
4066                        QuickCopy(uLocalReportData,memLab);
4067                    end;
4068                  TabControl1.OnChange(nil);
4069                  if aCategory <> '0' then
4070                    begin
4071  
4072                      ListReportDateRanges(lstQualifier.Items);
4073                      if lstQualifier.ItemID = '' then
4074                        begin
4075                          lstQualifier.ItemIndex := lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
4076                          lstQualifierClick(self);
4077                        end
4078                      else
4079                        lstQualifier.Items.Add(aStartTime + ';' + aStopTime + '^' + aStartTime + ' to ' + aStopTime);
4080  
4081                      lblQualifier.Caption := 'Date Range';
4082                      pnlLeftBottom.Visible := true;
4083                      splitter1.Visible := true;
4084                    end
4085                  else
4086                    begin
4087                      LoadListView(uLocalReportData);
4088                    end;
4089                end;
4090              StatusText('');
4091              uPrevReportNode := tvReports.Selected;
4092            end;
4093          else
4094            begin      //      = ?
4095              uQualifierType := QT_OTHER;
4096              pnlLeftBottom.Visible := false;
4097              splitter1.Visible := false;
4098              StatusText('Retrieving ' + tvReports.Selected.Text + '...');
4099              GoRemote(uRemoteReportData, 'L:' + aID, aRptCode, aRPC, uHState, aHDR, aFHIE);
4100              uReportInstruction := #13#10 + 'Retrieving data...';
4101              TabControl1.OnChange(nil);
4102              if not(piece(uRemoteType, '^', 9) = '1') then
4103                LoadReportText(uLocalReportData, 'L:' + aID, '', aRPC, uHState);
4104              if uLocalReportData.Count < 1 then
4105                uReportInstruction := '<No Report Available>'
4106              else
4107                begin
4108                  if TabControl1.TabIndex < 1 then
4109                    QuickCopy(uLocalReportData,memLab);
4110                end;
4111              TabControl1.OnChange(nil);
4112              StatusText('');
4113              uPrevReportNode := tvReports.Selected;
4114            end;
4115          lstQualifier.Caption := lblQualifier.Caption;
4116        end;
4117      end;
4118    if lstQualifier.ItemIndex > -1 then
4119      begin
4120      if not (aHDR = '1') then
4121        if (aCategory <> '0') and (WebBrowser1.Visible = false) then
4122            DisplayHeading(uQualifier)
4123        else
4124          DisplayHeading('');
4125      end
4126    else
4127      begin
4128        if not (aHDR = '1') then
4129          if (aCategory <> '0') and (WebBrowser1.Visible = false) then
4130            begin
4131              x := lstDates.DisplayText[lstDates.ItemIndex];
4132              x1 := piece(x,' ',1);
4133              x2 := piece(x,' ',2);
4134              if (Uppercase(Copy(x1,1,1)) = 'T') and (Uppercase(Copy(x2,1,1)) = 'T') then
4135                DisplayHeading(piece(x,' ',1) + ';' + piece(x,' ',2))
4136              else
4137                DisplayHeading('d' + lstDates.ItemID);
4138            end
4139          else
4140            DisplayHeading('');
4141      end;
4142    SendMessage(tvReports.Handle, WM_HSCROLL, SB_THUMBTRACK, 0);
4143    RedrawActivate(tvReports.Handle);
4144    if WebBrowser1.Visible = true then
4145      begin
4146        BlankWeb;
4147        WebBrowser1.BringToFront;
4148        lstHeaders.Visible := false;
4149        lblHeaders.Visible := false;
4150        lstHeaders.TabStop := false;
4151        pnlLefTop.Height := frmLabs.Height;
4152        pnlLeftBottom.Visible := false;
4153        Splitter1.Visible := false;
4154      end
4155    else
4156      begin
4157        memLab.Visible := true;
4158        memLab.TabStop := true;
4159        memLab.BringToFront;
4160        RedrawActivate(memLab.Handle);
4161      end;       
4162    lvReports.Columns.BeginUpdate;
4163    lvReports.Columns.EndUpdate;
4164    Screen.Cursor := crDefault;
4165  end;