Procedure

TfrmFrame.lstCIRNLocationsClick

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Visibility

Public/Published

Owner

TfrmFrame

Declaration

procedure lstCIRNLocationsClick(Sender: TObject);

Calls Hierarchy


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


                  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
CheckHL7TCPLink function CheckHL7TCPLink: Boolean; -
TRemoteSite.LabClear procedure LabClear; -
TRemoteSite.ReportClear procedure ReportClear; -
TRemoteSite.SetSelected procedure SetSelected(Value: Boolean); -
TfrmReports.tvReportsClick procedure tvReportsClick(Sender: TObject); -
TfrmLabs.tvReportsClick procedure tvReportsClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmFrame.SetUpCIRN procedure SetUpCIRN; -


Source

2984  procedure TfrmFrame.lstCIRNLocationsClick(Sender: TObject);
2985  var
2986    iIndex,j,iAll,iCur: integer;
2987    aMsg,s: string;
2988    AccessStatus: integer;
2989  begin
2990    iAll := 1;
2991    AccessStatus := 0;
2992    iIndex := lstCIRNLocations.ItemIndex;
2993    if not CheckHL7TCPLink then
2994      begin
2995        InfoBox('Local HL7 TCP Link is down.' + CRLF + 'Unable to retrieve remote data.', TC_DGSR_ERR, MB_OK);
2996        lstCIRNLocations.Checked[iIndex] := false;
2997        Exit;
2998      end;
2999    if lstCIRNLocations.Items.Count > 1 then
3000      if piece(lstCIRNLocations.Items[1],'^',1) = '0' then
3001        iAll := 2;
3002    with frmReports do
3003      if piece(uRemoteType,'^',2) = 'V' then
3004        begin
3005          lvReports.Items.BeginUpdate;
3006          lvReports.Items.Clear;
3007          lvReports.Columns.Clear;
3008          lvReports.Items.EndUpdate;
3009        end;
3010    uReportInstruction := '';
3011    frmReports.TabControl1.Tabs.Clear;
3012    frmLabs.TabControl1.Tabs.Clear;
3013    frmReports.TabControl1.Tabs.AddObject('Local',nil);
3014    frmLabs.TabControl1.Tabs.AddObject('Local',nil);
3015    StatusText('Checking Remote Sites...');
3016    if piece(lstCIRNLocations.Items[iIndex],'^',1) = '0' then // All sites have been clicked
3017      if lstCIRNLocations.Checked[iIndex] = false then // All selection is being turned off
3018        begin
3019          with RemoteSites.SiteList do
3020          for j := 0 to Count - 1 do
3021            if lstCIRNLocations.Checked[j+1] = true then
3022              begin
3023                lstCIRNLocations.Checked[j+1] := false;
3024                TRemoteSite(RemoteSites.SiteList[j]).Selected := false;
3025                TRemoteSite(RemoteSites.SiteList[j]).ReportClear;
3026                TRemoteSite(RemoteSites.SiteList[j]).LabClear;
3027              end;
3028        end
3029      else
3030        begin
3031          with RemoteSites.SiteList do
3032          for j := 0 to Count - 1 do
3033              begin
3034                Screen.Cursor := crHourGlass;
3035                {CheckRemotePatient(aMsg, Patient.DFN + ';' + Patient.ICN,TRemoteSite(Items[j]).SiteID,
3036                  AccessStatus);}
3037                Screen.Cursor := crDefault;
3038                aMsg := aMsg + ' at site: ' + TRemoteSite(Items[j]).SiteName;
3039                s := lstCIRNLocations.Items[j+1];
3040                lstCIRNLocations.Items[j+1] := pieces(s, '^', 1, 3);
3041                case AccessStatus of
3042                DGSR_FAIL: begin
3043                             if piece(aMsg,':',1) = 'RPC name not found at site' then //Allow for backward compatibility
3044                               begin
3045                                 lstCIRNLocations.Checked[j+1] := true;
3046                                 TRemoteSite(RemoteSites.SiteList[j]).ReportClear;
3047                                 TRemoteSite(RemoteSites.SiteList[j]).LabClear;
3048                                 TRemoteSite(Items[j]).Selected := true;
3049                               end
3050                             else
3051                               begin
3052                                 InfoBox(aMsg, TC_DGSR_ERR, MB_OK);
3053                                 lstCIRNLocations.Checked[j+1] := false;
3054                                 lstCIRNLocations.Items[j+1] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_ERR;
3055                                 TRemoteSite(Items[j]).Selected := false;
3056                                 Continue;
3057                               end;
3058                           end;
3059                DGSR_NONE: begin
3060                             lstCIRNLocations.Checked[j+1] := true;
3061                             TRemoteSite(RemoteSites.SiteList[j]).ReportClear;
3062                             TRemoteSite(RemoteSites.SiteList[j]).LabClear;
3063                             TRemoteSite(Items[j]).Selected := true;
3064                           end;
3065                DGSR_SHOW: begin
3066                             InfoBox(AMsg, TC_DGSR_SHOW, MB_OK);
3067                             lstCIRNLocations.Checked[j+1] := true;
3068                             TRemoteSite(RemoteSites.SiteList[j]).ReportClear;
3069                             TRemoteSite(RemoteSites.SiteList[j]).LabClear;
3070                             TRemoteSite(Items[j]).Selected := true;
3071                           end;
3072                DGSR_ASK:  if InfoBox(AMsg + TX_DGSR_YESNO, TC_DGSR_SHOW, MB_YESNO or MB_ICONWARNING or
3073                             MB_DEFBUTTON2) = IDYES then
3074                             begin
3075                               lstCIRNLocations.Checked[j+1] := true;
3076                               TRemoteSite(RemoteSites.SiteList[j]).ReportClear;
3077                               TRemoteSite(RemoteSites.SiteList[j]).LabClear;
3078                               TRemoteSite(Items[j]).Selected := true;
3079                             end
3080                             else
3081                               begin
3082                                 lstCIRNLocations.Checked[j+1] := false;
3083                                 lstCIRNLocations.Items[j+1] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_SHOW;
3084                                 TRemoteSite(Items[j]).Selected := false;
3085                                 Continue;
3086                               end;
3087                else       begin
3088                             InfoBox(AMsg, TC_DGSR_DENY, MB_OK);
3089                             lstCIRNLocations.Checked[j+1] := false;
3090                             lstCIRNLocations.Items[j+1] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_DENY;
3091                             TRemoteSite(Items[j]).Selected := false;
3092                             Continue;
3093                           end;
3094                end;
3095              end;
3096        end
3097    else
3098      begin
3099        if iIndex > 0 then
3100          begin
3101            iCur := iIndex - iAll;
3102            TRemoteSite(RemoteSites.SiteList[iCur]).Selected :=
3103              lstCIRNLocations.Checked[iIndex];
3104            if lstCIRNLocations.Checked[iIndex] = true then
3105              with RemoteSites.SiteList do
3106              begin
3107                Screen.Cursor := crHourGlass;
3108                {CheckRemotePatient(aMsg, Patient.DFN + ';' + Patient.ICN,TRemoteSite(Items[iCur]).SiteID,
3109                  AccessStatus);}
3110                Screen.Cursor := crDefault;
3111                aMsg := aMsg + ' at site: ' + TRemoteSite(Items[iCur]).SiteName;
3112                s := lstCIRNLocations.Items[iIndex];
3113                lstCIRNLocations.Items[iIndex] := pieces(s, '^', 1, 3);
3114                case AccessStatus of
3115                DGSR_FAIL: begin
3116                             if piece(aMsg,':',1) = 'RPC name not found at site' then //Allow for backward compatibility
3117                               begin
3118                                 lstCIRNLocations.Checked[iIndex] := true;
3119                                 TRemoteSite(RemoteSites.SiteList[iCur]).ReportClear;
3120                                 TRemoteSite(RemoteSites.SiteList[iCur]).LabClear;
3121                                 TRemoteSite(Items[iCur]).Selected := true;
3122                               end
3123                             else
3124                               begin
3125                                 InfoBox(aMsg, TC_DGSR_ERR, MB_OK);
3126                                 lstCIRNLocations.Checked[iIndex] := false;
3127                                 lstCIRNLocations.Items[iIndex] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_ERR;
3128                                 TRemoteSite(Items[iCur]).Selected := false;
3129                               end;
3130                           end;
3131                DGSR_NONE: begin
3132                             lstCIRNLocations.Checked[iIndex] := true;
3133                             TRemoteSite(RemoteSites.SiteList[iCur]).ReportClear;
3134                             TRemoteSite(RemoteSites.SiteList[iCur]).LabClear;
3135                             TRemoteSite(Items[iCur]).Selected := true;
3136                           end;
3137                DGSR_SHOW: begin
3138                             InfoBox(AMsg, TC_DGSR_SHOW, MB_OK);
3139                             lstCIRNLocations.Checked[iIndex] := true;
3140                             TRemoteSite(RemoteSites.SiteList[iCur]).ReportClear;
3141                             TRemoteSite(RemoteSites.SiteList[iCur]).LabClear;
3142                             TRemoteSite(Items[iCur]).Selected := true;
3143                           end;
3144                DGSR_ASK:  if InfoBox(AMsg + TX_DGSR_YESNO, TC_DGSR_SHOW, MB_YESNO or MB_ICONWARNING or
3145                             MB_DEFBUTTON2) = IDYES then
3146                             begin
3147                               lstCIRNLocations.Checked[iIndex] := true;
3148                               TRemoteSite(RemoteSites.SiteList[iCur]).ReportClear;
3149                               TRemoteSite(RemoteSites.SiteList[iCur]).LabClear;
3150                               TRemoteSite(Items[iCur]).Selected := true;
3151                             end
3152                             else
3153                               begin
3154                                 lstCIRNLocations.Checked[iIndex] := false;
3155                                 lstCIRNLocations.Items[iIndex] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_SHOW;
3156                               end;
3157                else       begin
3158                             InfoBox(AMsg, TC_DGSR_DENY, MB_OK);
3159                             lstCIRNLocations.Checked[iIndex] := false;
3160                             lstCIRNLocations.Items[iIndex] := pieces(s, '^', 1, 3) + '^' + TC_DGSR_DENY;
3161                             TRemoteSite(Items[iCur]).Selected := false;
3162                           end;
3163                end;
3164                with frmReports do
3165                  if piece(uRemoteType,'^',1) = '1' then
3166                    if not(piece(uRemoteType,'^',2) = 'V') then
3167                      begin
3168                        TabControl1.Visible := true;
3169                        pnlRightTop.Height := lblTitle.Height + TabControl1.Height;
3170                      end;
3171                with frmLabs do
3172                  if piece(uRemoteType,'^',1) = '1' then
3173                    if not(piece(uRemoteType,'^',2) = 'V') then
3174                      begin
3175                        TabControl1.Visible := true;
3176                        pnlRightTop.Height := lblTitle.Height + TabControl1.Height;
3177                      end;
3178                  {if lstReports.ItemIndex > -1 then
3179                    if piece(lstReports.Items[lstReports.ItemIndex],'^',3) = '1' then
3180                      if not(piece(lstReports.Items[lstReports.ItemIndex],'^',5) = 'V') then
3181                        TabControl1.Visible := true;}
3182              end;
3183          end;
3184      end;
3185    with RemoteSites.SiteList do
3186      for j := 0 to Count - 1 do
3187        if TRemoteSite(Items[j]).Selected then
3188          begin
3189            frmReports.TabControl1.Tabs.AddObject(TRemoteSite(Items[j]).SiteName,
3190              TRemoteSite(Items[j]));
3191            frmLabs.TabControl1.Tabs.AddObject(TRemoteSite(Items[j]).SiteName,
3192              TRemoteSite(Items[j]));
3193          end;
3194    //uReportID, uLabRepID = Report ID's set when report is selected (from file 101.24)
3195    if not(Piece(uReportID,':',1) = 'OR_VWAL')
3196      and not(Piece(uReportID,':',1) = 'OR_VWRX')
3197      and not(Piece(uReportID,':',1) = 'OR_VWVS')
3198      and (frmReports.tvReports.SelectionCount > 0) then frmReports.tvReportsClick(self);
3199    if not(uLabRepID = '6:GRAPH') and not(uLabRepID = '5:WORKSHEET')
3200      and not(uLabRepID = '4:SELECTED TESTS BY DATE')
3201      and (frmLabs.tvReports.SelectionCount > 0) then frmLabs.tvReportsClick(self);
3202    //if frmLabs.lstReports.ItemIndex > -1 then frmLabs.ExtlstReportsClick(self, true);
3203    StatusText('');
3204  end;