Procedure

TfrmLabs.DisplayPage

Directives

Override

Module

fLabs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public

Overrides

TfrmPage.DisplayPage

Owner

TfrmLabs

Declaration

procedure DisplayPage; override;

Calls Hierarchy


TfrmLabs.DisplayPage
 ├TfrmPage.DisplayPage
 ├TfrmPage.GetInitPage
 ├TfrmLabs.LoadTreeView
 │ ├TfrmLabs.BlankWeb
 │ ├ListLabReports
 │ │ └LoadTree
 │ │   └ExtractSection
 │ ├MakeReportTreeObject
 │ └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...
 ├TfrmPage.GetInitPatient
 ├TfrmLabs.tvReportsClick...
 ├TRemoteSite.ReportClear
 └TfrmLabs.ProcessNotifications
   ├TfrmLabs.DisplayHeading...
   ├TfrmLabs.FormResize...
   ├ResultOrder
   ├TNotifications.GetText
   ├TfrmLabs.tvReportsClick...
   ├TNotifications.GetFollowUp
   └TNotifications.Delete
     └DeleteAlert

Calls

Name Declaration Comments
TfrmPage.DisplayPage procedure DisplayPage; virtual; -
TfrmPage.GetInitPage function GetInitPage: Boolean; -
TfrmPage.GetInitPatient function GetInitPatient: Boolean; -
TfrmLabs.LoadTreeView procedure LoadTreeView; -
TfrmLabs.ProcessNotifications procedure ProcessNotifications; -
TRemoteSite.ReportClear procedure ReportClear; -
TfrmLabs.tvReportsClick procedure tvReportsClick(Sender: TObject); -


Source

500   procedure TfrmLabs.DisplayPage;
501   var
502     i: integer;
503   
504   begin
505     inherited DisplayPage;
506     frmFrame.mnuFilePrint.Tag := CT_LABS;
507     frmFrame.mnuFilePrint.Enabled := True;
508     frmFrame.mnuFilePrintSetup.Enabled := True;
509     memLab.SelStart := 0;
510     uHTMLPatient := '<DIV align left>'
511                     + '<TABLE width="75%" border="0" cellspacing="0" cellpadding="1">'
512                     + '<TR valign="bottom" align="left">'
513                     + '<TD nowrap><B>Patient: ' + Patient.Name + '</B></TD>'
514                     + '<TD nowrap><B>' + Patient.SSN + '</B></TD>'
515                     + '<TD nowrap><B>Age: ' + IntToStr(Patient.Age) + '</B></TD>'
516                     + '</TR></TABLE></DIV><HR>';
517                     //the preferred method would be to use headers and footers
518                     //so this is just an interim solution.
519     if InitPage then
520     begin
521       Splitter1.Visible := false;
522       pnlLeftBottom.Visible := false;
523       uColChange := '';
524       uMaxOcc := '';
525       LoadTreeView;
526     end;
527     if InitPatient and not (CallingContext = CC_NOTIFICATION) then
528     begin
529       uColChange := '';
530       if Patient.Inpatient then lstDates.ItemIndex := 2 else lstDates.ItemIndex := 4;
531       tvReports.Selected := tvReports.Items.GetFirstNode;
532       tvReportsClick(self);
533     end;
534     if InitPatient and not (CallingContext = CC_NOTIFICATION) then
535       begin
536         uColChange := '';
537         lstQualifier.Clear;
538         lvReports.SmallImages := uEmptyImageList;
539         lvReports.Items.Clear;
540         lvReports.Columns.Clear;
541         lblTitle.Caption := '';
542         lvReports.Caption := '';
543         Splitter1.Visible := false;
544         pnlLeftBottom.Visible := false;
545         memLab.Parent := pnlRightBottom;
546         memLab.Align := alClient;
547         memLab.Clear;
548         uReportInstruction := '';
549         uLocalReportData.Clear;
550         for i := 0 to RemoteSites.SiteList.Count - 1 do
551           TRemoteSite(RemoteSites.SiteList.Items[i]).ReportClear;
552         StatusText('');
553         with tvReports do
554           if Items.Count > 0 then
555             begin
556               tvReports.Selected := tvReports.Items.GetFirstNode;
557               tvReportsClick(self);
558             end;
559       end;
560     case CallingContext of
561       CC_INIT_PATIENT:  if not InitPatient then
562         begin
563           if Patient.Inpatient then lstDates.ItemIndex := 2 else lstDates.ItemIndex := 4;
564           tvReports.Selected := tvReports.Items.GetFirstNode;
565           tvReportsClick(self);
566           lvReports.SmallImages := uEmptyImageList;
567           lstQualifier.Clear;
568           //tvProcedures.Items.Clear;
569           //lblProcTypeMsg.Visible := FALSE;
570           lvReports.SmallImages := uEmptyImageList;
571           lvReports.Items.Clear;
572           Splitter1.Visible := false;
573           pnlLeftBottom.Visible := false;
574           with tvReports do
575             if Items.Count > 0 then
576               begin
577                 tvReports.Selected := tvReports.Items.GetFirstNode;
578                 tvReportsClick(self);
579               end;
580         end;
581       CC_NOTIFICATION:  ProcessNotifications;
582   
583       //This corrects the reload of the labs when switching back to the tab.
584       {This code was causing the processing of Lab notifications to display
585        the wrong set of labs for a given notification the 1st notification
586        after selecting/switching patients.  Upon checking the problem that
587        this code was trying to solve, we found that the problem no longer
588        exists, which may be a result of subsequent changes for similar
589        issues found during development/testing of V28 (CQ 18267, 18268)
590        CC_CLICK: if not InitPatient then
591         begin
592           //Clear our local variables
593           OrigReportCat := nil;
594           OrigDateIEN := -1;
595           OrigSelection := -1;
596           OrigDateItemID := '';
597   
598           //What was last selected before they switched tabs.
599           if tvReports.Selected <> nil then OrigReportCat := tvReports.Selected;
600           if lstDates.ItemIEN > 0 then OrigDateIEN := lstDates.ItemIEN;
601           if lvReports.Selected <> nil then OrigSelection := lvReports.Selected.Index;
602           if lstQualifier.ItemID <> '' then OrigDateItemID := lstQualifier.ItemID;
603   
604           //Load the tree and select the last selected
605           if OrigReportCat <> nil then begin
606            tvReports.Select(OrigReportCat);
607            tvReportsClick(self);
608           end;
609   
610           //Did they click on a date (lstDates box)
611           if OrigDateIEN > -1 then begin
612             lstDates.SelectByIEN(OrigDateIEN);
613             lstDatesClick(self);
614           end;
615   
616           //Did they click on a date (lstQualifier)
617           if OrigDateItemID <> '' then begin
618             lstQualifier.SelectByID(OrigDateItemID);
619             lstQualifierClick(self);
620           end;
621   
622           //Did they click on a lab
623           if OrigSelection > -1 then begin
624            lvReports.Selected := lvReports.Items[OrigSelection];
625            lvReportsSelectItem(self, lvReports.Selected, true);
626           end;
627         end; }
628     end;
629   end;