Procedure

TfrmReminderTree.RemindersChanged

Module

fReminderTree

Last Modified

7/15/2014 3:26:38 PM

Visibility

Protected

Owner

TfrmReminderTree

Declaration

procedure RemindersChanged(Sender: TObject);

Calls Hierarchy


TfrmReminderTree.RemindersChanged
 ├TfrmReminderTree.EnableActions
 │ ├ReminderDialogActive
 │ ├NewRemCoverSheetListActive
 │ └CanEditAllRemCoverSheetLists
 │   └HasMenuOptionAccess
 ├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

Called-By Hierarchy


TfrmReminderTree.RemindersChanged
    TfrmReminderTree.FormCreate┤ 
   TfrmReminderTree.FormDestroy┘ 

Calls

Name Declaration Comments
BuildReminderTree procedure BuildReminderTree(Tree: TORTreeView); -
TfrmReminderTree.EnableActions procedure EnableActions; -
GetReminderStatus function GetReminderStatus: TReminderStatus; -
TfrmReminderTree.LinkTopControls procedure LinkTopControls(FromTree: boolean); -
TfrmReminderTree.pnlTopResize procedure pnlTopResize(Sender: TObject); -
RemindersEvaluatingInBackground function RemindersEvaluatingInBackground: boolean; -
TfrmReminderTree.ResetlbItems procedure ResetlbItems(RootNode: TTreeNode); -
TfrmReminderTree.SyncTopControls procedure SyncTopControls(FromTree: boolean); -

Called-By

Name Declaration Comments
TfrmReminderTree.FormCreate procedure FormCreate(Sender: TObject); -
TfrmReminderTree.FormDestroy procedure FormDestroy(Sender: TObject); -


Source

194   procedure TfrmReminderTree.RemindersChanged(Sender: TObject);
195   const
196     ARTxt = 'Available Reminders';
197   
198   var
199     OldUpdating: boolean;
200   
201   begin
202     EnableActions;
203     if(GetReminderStatus = rsNone) then
204     begin
205       tvRem.Selected := nil;
206       Close;
207       exit;
208     end;
209     OldUpdating := FUpdating;
210     try
211       FUpdating := TRUE;
212       lbRem.Items.BeginUpdate;
213       try
214         try
215           BuildReminderTree(tvRem);
216           lbRem.Clear;
217           ResetlbItems(nil);
218           LinkTopControls(TRUE);
219           SyncTopControls(TRUE);
220           pnlTopResize(Self);
221         finally
222           FUpdating := FALSE;
223           tvRem.Invalidate;
224           lbRem.Invalidate;
225         end;
226         if(RemindersEvaluatingInBackground) then
227           hcRem.Sections[0].Text := ARTxt + ' (Evaluating Reminders...)'
228         else
229           hcRem.Sections[0].Text := ARTxt;
230       finally
231         lbRem.Items.EndUpdate;
232       end;
233     finally
234       FUpdating := OldUpdating;
235     end;
236   end;