Procedure

TfrmFrame.SetUpCIRN

Module

fFrame

Last Modified

3/11/2015 8:41:44 AM

Comments

--------------------- CIRN-related procedures --------------------------------

Visibility

Public

Owner

TfrmFrame

Declaration

procedure SetUpCIRN;

Calls Hierarchy


TfrmFrame.SetUpCIRN
 ├TRemoteSiteList.ChangePatient
 │ ├TRemoteSiteList.Clear
 │ ├HasRemoteData
 │ └TRemoteSiteList.Add
 │   └TRemoteSite.Create
 │     └StrToFMDateTime
 ├AutoRDV
 └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.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
AutoRDV function AutoRDV: String; -
TRemoteSiteList.ChangePatient procedure ChangePatient(const DFN: string); -
TfrmFrame.lstCIRNLocationsClick procedure lstCIRNLocationsClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmFrame.SetupPatient procedure SetupPatient(AFlaggedList : TStringList = nil); -


Source

2929  procedure TfrmFrame.SetUpCIRN;
2930  var
2931    i: integer;
2932    aAutoQuery: string;
2933    ASite: TRemoteSite;
2934  begin
2935    uUseVistaWeb := false;
2936    with RemoteSites do
2937    begin
2938      ChangePatient(Patient.DFN);
2939      lblCIRN.Caption := ' Remote Data';
2940      lblCIRN.Alignment := taCenter;
2941      pnlVistaWeb.BevelOuter := bvRaised;
2942      if RemoteDataExists and (RemoteSites.Count > 0) then
2943        begin
2944          lblCIRN.Enabled     := True;
2945          pnlCIRN.TabStop     := True;
2946          lblCIRN.Font.Color  := Get508CompliantColor(clBlue);
2947          lstCIRNLocations.Font.Color  := Get508CompliantColor(clBlue);
2948          lblCIRN.Caption := 'Remote Data';
2949          pnlCIRN.Hint := 'Click to display other facilities having data for this patient.';
2950          lblVistaWeb.Font.Color := Get508CompliantColor(clBlue);
2951          pnlVistaWeb.Hint := 'Click to go to VistaWeb to see data from other facilities for this patient.';
2952          if RemoteSites.Count > 0 then
2953            lstCIRNLocations.Items.Add('0' + U + 'All Available Sites');
2954          for i := 0 to RemoteSites.Count - 1 do
2955            begin
2956              ASite := TRemoteSite(SiteList[i]);
2957              lstCIRNLocations.Items.Add(ASite.SiteID + U + ASite.SiteName + U +
2958                FormatFMDateTime('mmm dd yyyy hh:nn', ASite.LastDate));
2959            end;
2960        end
2961      else
2962        begin
2963          lblCIRN.Font.Color  := clWindowText;
2964          lblVistaWeb.Font.Color := clWindowText;
2965          lblCIRN.Enabled     := False;
2966          pnlCIRN.TabStop     := False;
2967          pnlCIRN.Hint := NoDataReason;
2968        end;
2969      aAutoQuery := AutoRDV;        //Check to see if Remote Queries should be used for all available sites
2970      if (aAutoQuery = '1') and (lstCIRNLocations.Count > 0) then
2971        begin
2972          lstCIRNLocations.ItemIndex := 1;
2973          lstCIRNLocations.Checked[1] := true;
2974          lstCIRNLocationsClick(self);
2975        end;
2976    end;
2977  end;