Procedure

TfrmReports.ProcessNotifications

Module

fReports

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmReports

Declaration

procedure ProcessNotifications;

Calls Hierarchy


TfrmReports.ProcessNotifications
 ├TNotifications.GetFollowUp
 ├FindReport
 ├TNotifications.GetAlertData
 │ └GetXQAData
 ├TNotifications.Delete
 │ └DeleteAlert
 └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...
   ├TfrmReports.LoadListView...
   ├TfrmReports.ShowTabControl
   ├ListProcedures
   │ └ShortDateStrToDate
   ├ListSurgeryReports
   └TfrmGraphs.ViewSelections
     ├TfrmGraphs.chkDualViewsClick...
     ├TfrmGraphs.lstViewsBottomChange...
     └TfrmGraphs.lstViewsTopChange...

Called-By Hierarchy


TfrmReports.ProcessNotifications
       TfrmReports.DisplayPage┘ 

Calls

Name Declaration Comments
TNotifications.Delete procedure Delete; -
FindReport function FindReport(ReportID: string; var AnIndex: integer): boolean; overload; -
TNotifications.GetAlertData function GetAlertData: string; -
TNotifications.GetFollowUp function GetFollowUp: Integer; -
TfrmReports.tvReportsClick procedure tvReportsClick(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmReports.DisplayPage procedure DisplayPage; override; -


Source

1285  procedure TfrmReports.ProcessNotifications;
1286  var
1287    j, AnIndex, IDColumn: integer;
1288    SelectID: string;
1289    ListItem: TListItem;
1290    tmpRptID: string;
1291  
1292    function FindReport(QualType: integer; var AnIndex: integer): boolean; overload;
1293    var
1294      Found: boolean;
1295      i: integer;
1296    begin
1297      Found := False;
1298      with tvReports do
1299        begin
1300          for i := 0 to Items.Count -1 do
1301            if StrToIntDef(Piece(PReportTreeObject(tvReports.Items[i].Data)^.Qualifier,';',4),0) = QualType then
1302              begin
1303                Found := True;
1304                break;
1305              end;
1306        end;
1307      Result := Found ;
1308      AnIndex := i;
1309    end;
1310  
1311    function FindReport(ReportID: string; var AnIndex: integer): boolean; overload;
1312    var
1313      Found: boolean;
1314      i: integer;
1315    begin
1316      Found := False;
1317      with tvReports do
1318        begin
1319          for i := 0 to Items.Count -1 do
1320            if Piece(PReportTreeObject(tvReports.Items[i].Data)^.ID, ':', 1) = ReportID then
1321              begin
1322                Found := True;
1323                break;
1324              end;
1325        end;
1326      Result := Found ;
1327      AnIndex := i;
1328    end;
1329  
1330  begin
1331    IDColumn := 0;
1332    case Notifications.Followup of
1333      NF_IMAGING_RESULTS, NF_ABNORMAL_IMAGING_RESULTS, NF_IMAGING_RESULTS_AMENDED:
1334        begin
1335          if not FindReport(QT_IMAGING, AnIndex) then exit;
1336          tvReports.Selected := tvReports.Items[AnIndex];
1337          SelectID := 'i' + Piece(Notifications.AlertData, '~', 1) +
1338            '-' + Piece(Notifications.AlertData, '~', 2);
1339          IDColumn := 0;
1340          if tvReports.Selected <> tvReports.Items[AnIndex] then
1341            tvReports.Selected := tvReports.Items[AnIndex];
1342        end;
1343      NF_IMAGING_REQUEST_CHANGED:
1344        begin
1345          if not FindReport(QT_IMAGING, AnIndex) then exit;
1346          tvReports.Selected := tvReports.Items[AnIndex];
1347          SelectID := 'i' + Piece(Notifications.AlertData, '/', 2) +
1348            '-' + Piece(Notifications.AlertData, '/', 3);
1349          IDColumn := 0;
1350          if tvReports.Selected <> tvReports.Items[AnIndex] then
1351            tvReports.Selected := tvReports.Items[AnIndex];
1352        end;
1353      NF_STAT_RESULTS                  :
1354        begin
1355          if not FindReport(QT_IMAGING, AnIndex) then exit;
1356          tvReports.Selected := tvReports.Items[AnIndex];
1357          SelectID := 'i' + Piece(Notifications.AlertData, '~', 2) +
1358            '-' + Piece(Piece(Notifications.AlertData, '~', 3), '@', 1);
1359          IDColumn := 0;
1360          if tvReports.Selected <> tvReports.Items[AnIndex] then
1361            tvReports.Selected := tvReports.Items[AnIndex];
1362        end;
1363      NF_MAMMOGRAM_RESULTS            :
1364        begin
1365          if not FindReport('OR_R18', AnIndex) then exit;
1366          tvReports.Selected := tvReports.Items[AnIndex];
1367          SelectID := 'i' + Piece(Notifications.AlertData, '~', 1) +
1368            '-' + Piece(Notifications.AlertData, '~', 2);
1369          IDColumn := 8;
1370          if tvReports.Selected <> tvReports.Items[AnIndex] then
1371            tvReports.Selected := tvReports.Items[AnIndex];
1372        end;
1373      NF_ANATOMIC_PATHOLOGY_RESULTS    :
1374        //OR_SP^Surgical Pathology
1375        //OR_CY^Cytology
1376        //OR_EM^Electron Microscopy
1377        //OR_AU^Autopsy
1378        begin
1379          if Notifications.AlertData = '^1^^^0^0^0' then  //code snippet to handle the processing of v26 AP alerts in a v27 environment.
1380            begin
1381              if pnlRightMiddle.Visible then pnlRightMiddle.Visible := FALSE;
1382              InfoBox('This alert was generated in a v26 environment as an informational alert and'
1383              + CRLF + 'therefore cannot be processed as an action alert in a v27 environment.',
1384              'Unable to Process as Action Alert', MB_OK or MB_ICONWARNING);
1385              memText.Text := 'Unable to Process as an Action Alert. In order to view the associated Anatomic Pathology report, please manually'
1386              + CRLF + 'locate the appropriate report under the Anatomic Pathology section (also found under Laboratory, Clinical Reports).';
1387              Notifications.Delete;
1388              exit;
1389            end;
1390          tmpRptID := Piece(Notifications.AlertData, U, 1);
1391          //if tmpRptID = 'CY' then tmpRptID := 'APR';
1392          //if tmpRptID = 'EM' then tmpRptID := 'APR';
1393          //if tmpRptID = 'SP' then tmpRptID := 'APR';
1394          if not FindReport('OR_' + tmpRptID, AnIndex) then exit;
1395          tvReports.Selected := tvReports.Items[AnIndex];
1396          SelectID := Piece(Notifications.AlertData, U, 2);
1397          if (tmpRptID = 'CY') or (tmpRptID = 'EM') or (tmpRptID = 'SP') then
1398               IDColumn := 3;
1399          //if      tmpRptID = 'APR' then IDColumn := 3
1400          //else if tmpRptID = 'SP' then IDColumn := 3
1401          //else if tmpRptID = 'EM' then IDColumn := 3
1402          //else if tmpRptID = 'CY' then IDColumn := 3 ;
1403          if tvReports.Selected <> tvReports.Items[AnIndex] then
1404            tvReports.Selected := tvReports.Items[AnIndex];
1405        end;
1406      NF_PAP_SMEAR_RESULTS            :
1407        begin
1408          if not FindReport('OR_CY', AnIndex) then exit;
1409          tvReports.Selected := tvReports.Items[AnIndex];
1410          SelectID := Piece(Notifications.AlertData, U, 2);
1411          IDColumn := 3;
1412          if tvReports.Selected <> tvReports.Items[AnIndex] then
1413            tvReports.Selected := tvReports.Items[AnIndex];
1414        end;
1415      else with tvReports do if Items.Count > 0 then Selected := Items[0];
1416    end;
1417    if tvReports.Selected <> nil then
1418      begin
1419        tvReportsClick(Self);
1420        Application.ProcessMessages;
1421        for j := 0 to lvReports.Items.Count - 1 do
1422         begin
1423           ListItem := lvReports.Items[j];
1424           if ListItem.Subitems[IDColumn] = SelectID then
1425             begin
1426               lvReports.Selected := lvReports.Items[j];
1427               break;
1428             end;
1429         end;
1430        Notifications.Delete;
1431      end;
1432  end;