Procedure

TfrmReports.LoadTreeView

Module

fReports

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReports

Declaration

procedure LoadTreeView;

Calls Hierarchy


TfrmReports.LoadTreeView
 ├TfrmReports.BlankWeb
 ├ListReports
 │ └LoadTree
 │   └ExtractSection
 ├MakeReportTreeObject
 ├HealthSummaryCheck
 │ └ListHealthSummaryTypes
 │   └LoadReportLists
 │     └ExtractSection
 └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...
   ├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.LoadTreeView
                TfrmReports.DisplayPage┤ 
   TfrmOptionsReportsDefault.btnOKClick┤ 
TfrmOptionsReportsDefault.btnResetClick┤ 
 TfrmOptionsReportsCustom.btnApplyClick┘ 
  TfrmOptionsReportsCustom.btnOKClick┘   

Calls

Name Declaration Comments
TfrmReports.BlankWeb procedure BlankWeb; -
HealthSummaryCheck procedure HealthSummaryCheck(Dest: TStrings; aQualifier: string); -
ListReports procedure ListReports(Dest: TStrings); -
MakeReportTreeObject function MakeReportTreeObject(x: string): PReportTreeObject; -
TfrmReports.tvReportsClick procedure tvReportsClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmOptionsReportsCustom.btnApplyClick procedure btnApplyClick(Sender: TObject); -
TfrmOptionsReportsDefault.btnOKClick procedure btnOKClick(Sender: TObject); -
TfrmOptionsReportsDefault.btnResetClick procedure btnResetClick(Sender: TObject); -
TfrmReports.DisplayPage procedure DisplayPage; override; -


Source

616   procedure TfrmReports.LoadTreeView;
617   var
618     i,j: integer;
619     currentNode, parentNode, grandParentNode, gtGrandParentNode: TTreeNode;
620     x: string;
621     addchild, addgrandchild, addgtgrandchild: boolean;
622   begin
623     tvReports.Items.Clear;
624     memText.Clear;
625     uHTMLDoc := '';
626     BlankWeb;
627     tvProcedures.Items.Clear;
628     lblProcTypeMsg.Visible := FALSE;
629     lvReports.SmallImages := uEmptyImageList;
630     imgLblImages.ComponentImageListChanged;
631     lvReports.Items.Clear;
632     uTreeStrings.Clear;
633     lblTitle.Caption := '';
634     lvReports.Caption := '';
635     ListReports(uTreeStrings);
636     addchild := false;
637     addgrandchild := false;
638     addgtgrandchild := false;
639     parentNode := nil;
640     grandParentNode := nil;
641     gtGrandParentNode := nil;
642     currentNode := nil;
643     for i := 0 to uTreeStrings.Count - 1 do
644       begin
645         x := uTreeStrings[i];
646         if UpperCase(Piece(x,'^',1))='[PARENT END]' then
647           begin
648             if addgtgrandchild = true then
649               begin
650                 currentNode := gtgrandParentNode;
651                 addgtgrandchild := false;
652               end
653             else
654               if addgrandchild = true then
655                 begin
656                   currentNode := grandParentNode;
657                   addgrandchild := false;
658                 end
659               else
660                 begin
661                   currentNode := parentNode;
662                   addchild := false;
663                 end;
664             continue;
665           end;
666         if UpperCase(Piece(x,'^',1))='[PARENT START]' then
667           begin
668             if addgtgrandchild = true then
669               currentNode := tvReports.Items.AddChildObject(gtGrandParentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,21)))
670             else
671               if addgrandchild = true then
672                 begin
673                   currentNode := tvReports.Items.AddChildObject(grandParentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,21)));
674                   addgtgrandchild := true;
675                   gtgrandParentNode := currentNode;
676                 end
677               else
678                 if addchild = true then
679                   begin
680                     currentNode := tvReports.Items.AddChildObject(parentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,21)));
681                     addgrandchild := true;
682                     grandParentNode := currentNode;
683                   end
684                 else
685                   begin
686                     currentNode := tvReports.Items.AddObject(currentNode,Piece(x,'^',3),MakeReportTreeObject(Pieces(x,'^',2,21)));
687                     parentNode := currentNode;
688                     addchild := true;
689                   end;
690           end
691         else
692           if addchild = false then
693             begin
694               currentNode := tvReports.Items.AddObject(currentNode,Piece(x,'^',2),MakeReportTreeObject(x));
695               parentNode := currentNode;
696             end
697           else
698             begin
699               if addgtgrandchild = true then
700                   currentNode := tvReports.Items.AddChildObject(gtGrandParentNode,Piece(x,'^',2),MakeReportTreeObject(x))
701               else
702                 if addgrandchild = true then
703                     currentNode := tvReports.Items.AddChildObject(grandParentNode,Piece(x,'^',2),MakeReportTreeObject(x))
704                 else
705                     currentNode := tvReports.Items.AddChildObject(parentNode,Piece(x,'^',2),MakeReportTreeObject(x));
706             end;
707       end;
708     for i := 0 to tvReports.Items.Count - 1 do
709       if Piece(PReportTreeObject(tvReports.Items[i].Data)^.Qualifier,';',4) = '1' then
710         begin
711           HealthSummaryCheck(uHSAll,'1');
712           for j := 0 to uHSAll.Count - 1 do
713             tvReports.Items.AddChildObject(tvReports.Items[i],Piece(uHSAll[j],'^',2),MakeReportTreeObject(uHSAll[j]));
714         end;
715     if tvReports.Items.Count > 0 then begin
716       tvReports.Selected := tvReports.Items.GetFirstNode;
717       tvReportsClick(self);
718     end;
719   end;