Procedure

TfrmReminderTree.FormDestroy

Module

fReminderTree

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReminderTree

Declaration

procedure FormDestroy(Sender: TObject);

Calls Hierarchy


TfrmReminderTree.FormDestroy
 ├TfrmReminderTree.ProcessedRemindersChanged
 │ └TfrmReminderTree.EnableActions
 │   ├ReminderDialogActive
 │   ├NewRemCoverSheetListActive
 │   └CanEditAllRemCoverSheetLists
 │     └HasMenuOptionAccess
 ├RemoveNotifyRemindersChange
 └TfrmReminderTree.RemindersChanged
   ├TfrmReminderTree.EnableActions...
   ├GetReminderStatus
   ├BuildReminderTree
   │ ├GetImageIndex
   │ ├RemContextPopup
   │ │ ├ReminderMenu
   │ │ │ ├SetReminderPopupDlgRoutine
   │ │ │ │ └ReminderTreePopupDlg
   │ │ │ │   └ReminderMenuBuilder
   │ │ │ │     ├Add
   │ │ │ │     │ ├ReminderClinMaintClicked
   │ │ │ │     │ │ ├ReportBox
   │ │ │ │     │ │ │ └CreateReportBox
   │ │ │ │     │ │ │   └TfrmBase508Form.Create
   │ │ │ │     │ │ │     ├TfrmBase508Form.UpdateAccessibilityActions
   │ │ │ │     │ │ │     ├UnfocusableControlEnter
   │ │ │ │     │ │ │     └AdjustControls
   │ │ │ │     │ │ │       ├TfrmBase508Form.ModifyUnfocusableControl
   │ │ │ │     │ │ │       └..(rec)..
   │ │ │ │     │ │ ├DetailReminder
   │ │ │ │     │ │ │ └InteractiveRemindersActive
   │ │ │ │     │ │ │   └GetRemindersActive
   │ │ │ │     │ │ └ReminderName
   │ │ │ │     │ │   └TReminderDialog.GetPrintName
   │ │ │ │     │ ├ReminderEduClicked
   │ │ │ │     │ │ ├ReportBox...
   │ │ │ │     │ │ └EducationTopicDetail
   │ │ │ │     │ ├ReminderInqClicked
   │ │ │ │     │ │ ├ReportBox...
   │ │ │ │     │ │ ├ReminderInquiry
   │ │ │ │     │ │ └ReminderName...
   │ │ │ │     │ ├ReminderWebClicked
   │ │ │ │     │ │ ├GotoWebPage
   │ │ │ │     │ │ └GetWebPageAddress
   │ │ │ │     │ ├ReminderEvalClicked
   │ │ │ │     │ │ └EvalReminder
   │ │ │ │     │ │   ├EvaluateReminder
   │ │ │ │     │ │   │ └EvaluateReminders
   │ │ │ │     │ │   ├ReminderEvaluated
   │ │ │ │     │ │   └ReminderName...
   │ │ │ │     │ ├ReminderViewFolderClicked
   │ │ │ │     │ │ ├GetRemFolders
   │ │ │ │     │ │ │ └GetReminderFolders
   │ │ │ │     │ │ └SetRemFolders
   │ │ │ │     │ │   ├BeginReminderUpdate
   │ │ │ │     │ │   ├SetReminderFolders
   │ │ │ │     │ │   └EndReminderUpdate
   │ │ │ │     │ ├GetRemFolders...
   │ │ │ │     │ └ReminderIconLegendClicked
   │ │ │ │     │   └ShowIconLegend
   │ │ │ │     │     ├TfrmBase508Form.Create...
   │ │ │ │     │     ├TfrmFrame.TabExists
   │ │ │ │     │     ├TfrmIconLegend.ShowTab
   │ │ │ │     │     └TfrmIconLegend.SetFontSize
   │ │ │ │     │       └TfrmIconLegend.SnapLabels
   │ │ │ │     ├GetEducationTopics
   │ │ │ │     │ ├GetEducationTopicsForReminder
   │ │ │ │     │ └GetEducationSubtopics
   │ │ │ │     ├AddEducationTopics
   │ │ │ │     │ ├GetEducationTopics...
   │ │ │ │     │ ├Add...
   │ │ │ │     │ └..(rec)..
   │ │ │ │     ├GetWebPages
   │ │ │ │     │ └GetReminderWebPages
   │ │ │ │     └AddWebPages
   │ │ │ │       ├Add...
   │ │ │ │       └GetWebPageName
   │ │ │ └SetReminderPopupRoutine
   │ │ │   └ReminderTreePopup
   │ │ │     └ReminderMenuBuilder...
   │ │ └EvaluateCategoryClicked
   │ │   ├BeginReminderUpdate
   │ │   ├CheckReminders
   │ │   │ ├EvaluateReminders
   │ │   │ └ReminderEvaluated
   │ │   └EndReminderUpdate
   │ ├GetRemFolders...
   │ ├Add2Tree
   │ │ └GetRemFolders...
   │ ├TReminderDialog.GetIEN
   │ ├TReminderDialog.GetPrintName
   │ ├TReminder.GetDueDateStr
   │ ├TReminder.GetLastDateStr
   │ ├TReminder.GetStatus
   │ └TReminderDialog.Processing
   │   └CheckItem
   │     ├ChildrenChecked
   │     │ └CheckItem...
   │     └TRemDlgElement.Add2PN
   │       ├TRemDlgElement.ElemType
   │       └TRemDlgElement.AddData
   │         ├TRemDlgElement.Historical
   │         ├TPCEData.VisitDateTime
   │         │ └TPCEData.IsSecondaryVisit
   │         ├TRemData.AddData
   │         │ ├Add
   │         │ │ ├Code2DataType
   │         │ │ ├TRemDlgElement.Historical
   │         │ │ ├TRemPrompt.GetValue
   │         │ │ │ ├TRemDlgElement.Historical
   │         │ │ │ ├TPCEData.VisitDateTime...
   │         │ │ │ ├TRemPrompt.RemDataActive
   │         │ │ │ │ └TRemPrompt.CompareActiveDate
   │         │ │ │ └TRemPrompt.RemDataChoiceActive
   │         │ │ ├TPCEData.VisitDateTime...
   │         │ │ ├ValidateGAFDate
   │         │ │ │ ├TPatient.GetDateDied
   │         │ │ │ │ └DateOfDeath
   │         │ │ │ └FMToday
   │         │ │ │   └FMNow
   │         │ │ ├TPCEProviderList.PCEProvider
   │         │ │ │ ├Check
   │         │ │ │ │ └TPCEProviderList.IndexOfProvider
   │         │ │ │ └TPCEProviderList.PrimaryIEN
   │         │ │ │   └TPCEProviderList.GetPrimaryIdx
   │         │ │ ├AddPrompt
   │         │ │ │ ├TRemPrompt.PromptType
   │         │ │ │ │ └Code2PromptType
   │         │ │ │ ├TPCEProviderList.PCEProvider...
   │         │ │ │ ├TPCEData.VisitDateTime...
   │         │ │ │ ├TRemPrompt.VitalValue
   │         │ │ │ │ └TRemPrompt.GetValue...
   │         │ │ │ ├TRemPrompt.VitalType
   │         │ │ │ │ ├Code2VitalType
   │         │ │ │ │ └TRemData.InternalValue
   │         │ │ │ ├TRemPrompt.VitalUnitValue
   │         │ │ │ │ ├TRemPrompt.VitalType...
   │         │ │ │ │ └TRemPrompt.GetValue...
   │         │ │ │ ├ConvertVital
   │         │ │ │ ├FormatVitalForNote
   │         │ │ │ │ └ConvertVitalData
   │         │ │ │ ├TRemPrompt.GetValue...
   │         │ │ │ └TRemDlgElement.Historical
   │         │ │ └GetPCEDataText
   │         │ │   └GetDiagnosisText
   │         │ ├TRemDlgElement.Historical
   │         │ └TPCEData.VisitDateTime...
   │         ├TRemDlgElement.ElemType
   │         └..(rec)..
   ├TfrmReminderTree.ResetlbItems
   │ └IsVis
   ├TfrmReminderTree.LinkTopControls
   ├TfrmReminderTree.SyncTopControls
   ├TfrmReminderTree.pnlTopResize
   │ └TfrmReminderTree.SetRemHeaderSectionWidth
   └RemindersEvaluatingInBackground

Calls

Name Declaration Comments
TfrmReminderTree.ProcessedRemindersChanged procedure ProcessedRemindersChanged(Sender: TObject); -
TfrmReminderTree.RemindersChanged procedure RemindersChanged(Sender: TObject); -
RemoveNotifyRemindersChange procedure RemoveNotifyRemindersChange(Proc: TNotifyEvent); -


Source

656   procedure TfrmReminderTree.FormDestroy(Sender: TObject);
657   begin
658     frmReminderTree := nil;
659     ProcessedReminders.Notifier.RemoveNotify(ProcessedRemindersChanged);
660   //  RemoveNotifyWhenProcessingReminderChanges(PositionToReminder);
661     RemoveNotifyRemindersChange(RemindersChanged);
662     RemTreeDlgLeft   := Self.Left;
663     RemTreeDlgTop    := Self.Top;
664     RemTreeDlgWidth  := Self.Width;
665     RemTreeDlgHeight := Self.Height;
666   end;