Procedure

TfrmReminderTree.FormCreate

Module

fReminderTree

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReminderTree

Declaration

procedure FormCreate(Sender: TObject);

Calls Hierarchy


TfrmReminderTree.FormCreate
 ├SetReminderMenuSelectRoutine
 │ └ReminderMenuItemSelect
 │   └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
 ├NotifyWhenRemindersChange
 ├TfrmReminderTree.RemindersChanged
 │ ├TfrmReminderTree.EnableActions
 │ │ ├ReminderDialogActive
 │ │ ├NewRemCoverSheetListActive
 │ │ └CanEditAllRemCoverSheetLists
 │ │   └HasMenuOptionAccess
 │ ├GetReminderStatus
 │ ├BuildReminderTree
 │ │ ├GetImageIndex
 │ │ ├RemContextPopup
 │ │ │ ├ReminderMenu
 │ │ │ │ ├SetReminderPopupDlgRoutine
 │ │ │ │ │ └ReminderTreePopupDlg
 │ │ │ │ │   └ReminderMenuBuilder...
 │ │ │ │ └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
 ├TfrmReminderTree.ProcessedRemindersChanged
 │ └TfrmReminderTree.EnableActions...
 ├TfrmReminderTree.SetFontSize
 │ ├TfrmReminderTree.SetRemHeaderSectionWidth
 │ └TfrmReminderTree.pnlTopResize...
 ├SetReminderFormBounds
 └TtvRem508Manager.Create

Calls

Name Declaration Comments
TtvRem508Manager.Create constructor Create; override; -
NotifyWhenRemindersChange procedure NotifyWhenRemindersChange(Proc: TNotifyEvent); -
TfrmReminderTree.ProcessedRemindersChanged procedure ProcessedRemindersChanged(Sender: TObject); -
TfrmReminderTree.RemindersChanged procedure RemindersChanged(Sender: TObject); -
TfrmReminderTree.SetFontSize procedure SetFontSize( NewFontSize: integer); -
SetReminderFormBounds procedure SetReminderFormBounds(Frm: TForm; DefX, DefY, DefW, DefH, ALeft, ATop, AWidth, AHeight: integer); -
SetReminderMenuSelectRoutine procedure SetReminderMenuSelectRoutine(Menu: TMenuItem); -


Source

135   procedure TfrmReminderTree.FormCreate(Sender: TObject);
136   begin
137     FixHeaderControlDelphi2006Bug(hcRem);
138     memView := TORMenuItem.Create(mmMain);
139     memView.Caption := '&View';
140     memView.Add(TORMenuItem.Create(memView));
141     mmMain.Items.Insert(0, memView);
142   
143     bvlGap.Height := GetSystemMetrics(SM_CYHSCROLL);
144     FSortOrder := -1;
145     FSortAssending := TRUE;
146     SetReminderMenuSelectRoutine(memView);
147     NotifyWhenRemindersChange(RemindersChanged);
148   //  NotifyWhenProcessingReminderChanges(PositionToReminder);
149     ProcessedReminders.Notifier.NotifyWhenChanged(ProcessedRemindersChanged);
150     SetFontSize(MainFontSize);
151     SetReminderFormBounds(Self, 0, 0, Self.Width, Self.Height,
152                           RemTreeDlgLeft, RemTreeDlgTop, RemTreeDlgWidth, RemTreeDlgHeight);
153     tvRem508Manager := TtvRem508Manager.Create;
154     amgrMain.ComponentManager[tvRem] := tvRem508Manager;
155   end;