Procedure

TfrmOptionsReportsDefault.btnResetClick

Module

fOptionsReportsDefault

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsReportsDefault

Declaration

procedure btnResetClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsReportsDefault.btnResetClick
 ├rpcRetrieveDefaultSetting
 ├FMToday
 │ └FMNow
 ├rpcDeleteUserLevelReportsSetting
 ├rpcSetDefaultReportsSetting
 ├rpcActiveDefaultSetting
 ├TfrmOptionsReportsDefault.fillLabelText
 ├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...
 └TfrmReports.tvReportsClick...

Calls

Name Declaration Comments
TfrmOptionsReportsDefault.fillLabelText procedure fillLabelText; -
FMToday function FMToday: TFMDateTime; -
TfrmReports.LoadTreeView procedure LoadTreeView; -
rpcActiveDefaultSetting procedure rpcActiveDefaultSetting; -
rpcDeleteUserLevelReportsSetting procedure rpcDeleteUserLevelReportsSetting; -
rpcRetrieveDefaultSetting procedure rpcRetrieveDefaultSetting(var int1: integer; var int2: integer; var int3: integer; var msg: string); -
rpcSetDefaultReportsSetting procedure rpcSetDefaultReportsSetting(aString: string); -
TfrmReports.tvReportsClick procedure tvReportsClick(Sender: TObject); -


Source

138   procedure TfrmOptionsReportsDefault.btnResetClick(Sender: TObject);
139   var
140     startD,endD,maxOc: integer;
141     values,msg,stdate,endate: string;
142     today: TFMDateTime;
143   begin
144     rpcRetrieveDefaultSetting(startD,endD,maxOc,msg);
145     today := FMToday;
146     if msg = 'NODEFAULT' then
147     begin
148       InfoBox('No default report settings are available', 'Warning', MB_OK or MB_ICONWARNING);
149       Exit;
150     end;
151     //if (startD=startDate) and (endD=endDate) and (maxOc=maxOcurs) then
152     //  Exit;
153     stdate := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, startD)));
154     endate := DateToStr(FMDateTimeToDateTime(FMDateTimeOffsetBy(today, endD)));
155     if InfoBox('Do you really want to change all of the reports settings to the default values as following?'
156       +#13#13' Start date: ' + stdate
157       +#13' End date: ' + endate
158       +#13' Max occurences: ' + IntToStr(maxOc)
159       +#13#13' Click Yes, all of the CPRS reports except for health summary reports will have these same settings.',
160       'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
161     begin
162       rpcDeleteUserLevelReportsSetting;
163       odcDfStart.Text := stdate;
164       odcDfStop.Text := endate;
165       edtDefaultMax.Text := inttostr(maxOc);
166       values := odcDfStart.RelativeTime + ';' + odcDfStop.RelativeTime + ';' + edtDefaultMax.Text;
167       rpcSetDefaultReportsSetting(values);
168       rpcActiveDefaultSetting;
169       sDate := odcDfStart.Text;
170       eDate := odcDfStop.Text;
171       startDate := startD;
172       endDate := endD;
173       maxOcurs := maxOc;
174       fillLabelText;
175       frmReports.LoadTreeView;
176       with frmReports.tvReports do
177        begin
178          if Items.Count > 0 then
179            Selected := Items.GetFirstNode;
180          frmReports.tvReportsClick(Selected);
181        end;
182     end;
183   end;