Procedure

TfrmNotes.LoadNotes

Module

fNotes

Last Modified

7/15/2014 3:26:38 PM

Comments

Added for treeview
===================  Added for sort/search enhancements ======================

Visibility

Private

Owner

TfrmNotes

Declaration

procedure LoadNotes;

Calls Hierarchy


TfrmNotes.LoadNotes
 ├KillDocTreeObjects
 │ └ResetDocTreeObjectStrings
 ├ListNotesForTree
 ├CreateListItemsForDocumentTree
 ├TfrmNotes.UpdateTreeView
 │ └BuildDocumentTree
 │   ├MakeNoteDisplayText
 │   ├MakeConsultNoteDisplayText
 │   ├MakeDCSummDisplayText
 │   ├MakeNoteTreeObject
 │   │ └MakeNoteDisplayText
 │   ├MakeConsultsNoteTreeObject
 │   │ ├MakeConsultNoteDisplayText
 │   │ └GetConsultOrderIEN
 │   ├MakeDCSummTreeObject
 │   │ └MakeDCSummDisplayText
 │   ├SetTreeNodeImagesAndFormatting
 │   │ ├ExternalName
 │   │ ├TextFound
 │   │ └MakeBold
 │   └..(rec)..
 ├TfrmNotes.SetNoteTreeLabel
 │ ├ExternalName
 │ └SetDateRangeText
 ├RemoveParentsWithNoChildren
 │ └KillDocTreeNode
 │   └ResetDocTreeObjectStrings
 └TfrmNotes.tvNotesChange
   ├CanBeAttached
   ├CanReceiveAttachment
   ├TraverseTree
   │ ├ContextMatch
   │ ├TextFound
   │ ├AddListViewItem
   │ └..(rec)..
   ├TfrmNotes.lvNotesSelectItem
   │ └TfrmNotes.lstNotesClick
   │   ├UpdateReminderFinish
   │   │ └TfrmRemDlg.UpdateButtons
   │   │   ├TfrmRemDlg.BackReminder
   │   │   │ └TfrmRemDlg.GetCurReminderList
   │   │   │   └TReminderDialog.GetIEN
   │   │   └TfrmRemDlg.NextReminder
   │   │     └TfrmRemDlg.GetCurReminderList...
   │   ├TfrmNotes.UpdateFormForInput
   │   │ └TimedOut
   │   ├LoadDocumentText
   │   ├TfrmReminderTree.EnableActions
   │   │ ├ReminderDialogActive
   │   │ ├NewRemCoverSheetListActive
   │   │ └CanEditAllRemCoverSheetLists
   │   │   └HasMenuOptionAccess
   │   ├TfrmNotes.DisplayPCE
   │   │ ├TPCEData.AddStrData
   │   │ │ ├Add
   │   │ │ ├TPCEData.StrVisitType
   │   │ │ │ ├GetPCEDataText
   │   │ │ │ │ └GetDiagnosisText
   │   │ │ │ ├TPCEProc.ModText
   │   │ │ │ │ └ModifierName
   │   │ │ │ │   └ModifierIdx
   │   │ │ │ │     ├TPCEData.VisitDateTime
   │   │ │ │ │     │ └TPCEData.IsSecondaryVisit
   │   │ │ │ │     ├FMToday
   │   │ │ │ │     │ └FMNow
   │   │ │ │ │     └MixedCaseModifier
   │   │ │ │ └TPCEData.StrVisitType
   │   │ │ │   └AddTxt
   │   │ │ ├TPCEData.StrDiagnoses
   │   │ │ │ └GetPCEDataText...
   │   │ │ ├TPCEData.StrProcedures
   │   │ │ │ ├GetPCEDataText...
   │   │ │ │ └TPCEProc.ModText...
   │   │ │ ├TPCEData.StrImmunizations
   │   │ │ │ └GetPCEDataText...
   │   │ │ ├TPCEData.StrSkinTests
   │   │ │ │ └GetPCEDataText...
   │   │ │ ├TPCEData.StrPatientEds
   │   │ │ │ └GetPCEDataText...
   │   │ │ ├TPCEData.StrHealthFactors
   │   │ │ │ └GetPCEDataText...
   │   │ │ └TPCEData.StrExams
   │   │ │   └GetPCEDataText...
   │   │ ├GetVitalsFromDate
   │   │ │ ├TPCEData.IsSecondaryVisit
   │   │ │ └GetVitalsFromEncDateTime
   │   │ ├TPCEData.AddVitalData
   │   │ │ └FormatVitalForNote
   │   │ │   └ConvertVitalData
   │   │ ├TfrmNotes.ShowPCEButtons
   │   │ │ ├TfrmFrame.GetTimedOut
   │   │ │ │ └TimedOut
   │   │ │ ├AnytimeEncounters
   │   │ │ ├CanEditPCE
   │   │ │ │ ├GetAskPCE
   │   │ │ │ └FutureEncounter
   │   │ │ │   └FMToday...
   │   │ │ └GetAskPCE
   │   │ ├TfrmNotes.ShowPCEControls
   │   │ ├InteractiveRemindersActive
   │   │ │ └GetRemindersActive
   │   │ ├GetReminderStatus
   │   │ ├FutureEncounter...
   │   │ ├TfrmDrawers.DisplayDrawers
   │   │ │ ├TfrmDrawers.EnableDrawers
   │   │ │ │ ├TfrmDrawers.EnableDrawer
   │   │ │ │ │ ├TfrmDrawers.GetDrawerControls
   │   │ │ │ │ ├TfrmDrawers.OpenDrawer
   │   │ │ │ │ │ ├TfrmDrawers.StartInternalResize
   │   │ │ │ │ │ ├TfrmDrawers.GetDrawerControls
   │   │ │ │ │ │ ├TfrmDrawers.SetSplitterActive
   │   │ │ │ │ │ ├TfrmDrawers.EndInternalResize
   │   │ │ │ │ │ └TfrmDrawers.ResizeToVisible
   │   │ │ │ │ │   ├AllCtrls
   │   │ │ │ │ │   │ └TfrmDrawers.GetDrawerControls
   │   │ │ │ │ │   ├TfrmDrawers.GetDrawerControls
   │   │ │ │ │ │   ├TfrmDrawers.ButtonHeights
   │   │ │ │ │ │   ├TfrmDrawers.MinDrawerControlHeight
   │   │ │ │ │ │   ├TfrmDrawers.StartInternalResize
   │   │ │ │ │ │   └TfrmDrawers.EndInternalResize
   │   │ │ │ │ └TfrmDrawers.ResizeToVisible...
   │   │ │ │ └TfrmDrawers.ResizeToVisible...
   │   │ │ ├TfrmDrawers.ShowDrawers
   │   │ │ │ ├TfrmDrawers.OpenDrawer...
   │   │ │ │ ├TfrmDrawers.GetDrawerControls
   │   │ │ │ ├TfrmDrawers.ResizeToVisible...
   │   │ │ │ ├NotifyWhenRemindersChange
   │   │ │ │ ├TfrmDrawers.RemindersChanged
   │   │ │ │ │ ├TfrmDrawers.EnableDrawer...
   │   │ │ │ │ ├GetReminderStatus
   │   │ │ │ │ ├BuildReminderTree
   │   │ │ │ │ │ ├GetImageIndex
   │   │ │ │ │ │ ├RemContextPopup
   │   │ │ │ │ │ │ ├ReminderMenu
   │   │ │ │ │ │ │ │ ├SetReminderPopupDlgRoutine
   │   │ │ │ │ │ │ │ │ └ReminderTreePopupDlg
   │   │ │ │ │ │ │ │ │   └ReminderMenuBuilder
   │   │ │ │ │ │ │ │ │     ├Add
   │   │ │ │ │ │ │ │ │     │ ├ReminderClinMaintClicked
   │   │ │ │ │ │ │ │ │     │ │ ├ReportBox
   │   │ │ │ │ │ │ │ │     │ │ │ └CreateReportBox
   │   │ │ │ │ │ │ │ │     │ │ │   └TfrmBase508Form.Create
   │   │ │ │ │ │ │ │ │     │ │ │     ├TfrmBase508Form.UpdateAccessibilityActions
   │   │ │ │ │ │ │ │ │     │ │ │     ├UnfocusableControlEnter
   │   │ │ │ │ │ │ │ │     │ │ │     └AdjustControls
   │   │ │ │ │ │ │ │ │     │ │ │       ├TfrmBase508Form.ModifyUnfocusableControl
   │   │ │ │ │ │ │ │ │     │ │ │       └..(rec)..
   │   │ │ │ │ │ │ │ │     │ │ ├DetailReminder
   │   │ │ │ │ │ │ │ │     │ │ │ └InteractiveRemindersActive...
   │   │ │ │ │ │ │ │ │     │ │ └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...
   │   │ │ │ │ │         ├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...
   │   │ │ │ │ │         │ │ ├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...
   │   │ │ │ │ │         │ │ │ ├TRemPrompt.GetValue...
   │   │ │ │ │ │         │ │ │ └TRemDlgElement.Historical
   │   │ │ │ │ │         │ │ └GetPCEDataText...
   │   │ │ │ │ │         │ ├TRemDlgElement.Historical
   │   │ │ │ │ │         │ └TPCEData.VisitDateTime...
   │   │ │ │ │ │         ├TRemDlgElement.ElemType
   │   │ │ │ │ │         └..(rec)..
   │   │ │ │ │ └TfrmDrawers.tvRemindersMouseUp
   │   │ │ │ │   ├ViewReminderDialog
   │   │ │ │ │   │ ├ViewRemDlg
   │   │ │ │ │   │ │ └ViewRemDlgFromForm
   │   │ │ │ │   │ │   ├TfrmNotes.AssignRemForm
   │   │ │ │ │   │ │   │ ├TfrmNotes.CanFinishReminder
   │   │ │ │ │   │ │   │ └TfrmNotes.DisplayPCE...
   │   │ │ │ │   │ │   ├FutureEncounter...
   │   │ │ │ │   │ │   ├TfrmConsults.AssignRemForm
   │   │ │ │ │   │ │   │ ├TfrmConsults.CanFinishReminder
   │   │ │ │ │   │ │   │ └TfrmConsults.DisplayPCE
   │   │ │ │ │   │ │   │   ├TPCEData.AddStrData...
   │   │ │ │ │   │ │   │   ├GetVitalsFromDate...
   │   │ │ │ │   │ │   │   ├TPCEData.AddVitalData...
   │   │ │ │ │   │ │   │   ├CanEditPCE...
   │   │ │ │ │   │ │   │   ├TfrmConsults.ShowPCEControls
   │   │ │ │ │   │ │   │   ├InteractiveRemindersActive...
   │   │ │ │ │   │ │   │   ├GetReminderStatus
   │   │ │ │ │   │ │   │   ├TfrmDrawers.DisplayDrawers...
   │   │ │ │ │   │ │   │   ├TfrmDrawers.DisplayDrawers
   │   │ │ │ │   │ │   │   │ └..(rec)..
   │   │ │ │ │   │ │   │   ├ActOnDocument
   │   │ │ │ │   │ │   │   ├TPCEData.PCEForNote
   │   │ │ │ │   │ │   │   │ ├TEncounter.GetVisitStr
   │   │ │ │ │   │ │   │   │ │ └TEncounter.GetVisitCategory
   │   │ │ │ │   │ │   │   │ ├VisitStrForNote
   │   │ │ │ │   │ │   │   │ ├TPCEData.GetVisitString
   │   │ │ │ │   │ │   │   │ │ └TPCEData.VisitDateTime...
   │   │ │ │ │   │ │   │   │ ├TPCEData.CopyPCEData
   │   │ │ │ │   │ │   │   │ │ ├TPCEData.Clear
   │   │ │ │ │   │ │   │   │ │ │ ├ClearList
   │   │ │ │ │   │ │   │   │ │ │ ├TPCEProc.Clear
   │   │ │ │ │   │ │   │   │ │ │ │ └TPCEItem.Clear
   │   │ │ │ │   │ │   │   │ │ │ │   └TPCEItem.SetComment
   │   │ │ │ │   │ │   │   │ │ │ └TPCEProviderList.Clear
   │   │ │ │ │   │ │   │   │ │ │   └TPCEProviderList.GetPrimaryIdx
   │   │ │ │ │   │ │   │   │ │ ├TPCEProc.CopyProc
   │   │ │ │ │   │ │   │   │ │ │ └TPCEItem.SetComment
   │   │ │ │ │   │ │   │   │ │ ├TPCEProviderList.Assign
   │   │ │ │ │   │ │   │   │ │ └TPCEData.CopyPCEItems
   │   │ │ │ │   │ │   │   │ │   └TPCEItem.Assign
   │   │ │ │ │   │ │   │   │ │     └TPCEItem.SetComment
   │   │ │ │ │   │ │   │   │ ├TPCEData.IsSecondaryVisit
   │   │ │ │ │   │ │   │   │ ├GetLocSecondaryVisitCode
   │   │ │ │ │   │ │   │   │ ├TPCEData.Clear...
   │   │ │ │ │   │ │   │   │ ├LoadPCEDataForNote
   │   │ │ │ │   │ │   │   │ ├ListVisitTypeByLoc
   │   │ │ │ │   │ │   │   │ ├SetRPCEncLocation
   │   │ │ │ │   │ │   │   │ ├SCCValue
   │   │ │ │ │   │ │   │   │ ├TPCEProviderList.Add
   │   │ │ │ │   │ │   │   │ │ ├TPCEProviderList.GetPrimaryIdx
   │   │ │ │ │   │ │   │   │ │ ├TPCEProviderList.IndexOfProvider
   │   │ │ │ │   │ │   │   │ │ └TPCEProviderList.SetPrimaryIdx
   │   │ │ │ │   │ │   │   │ │   ├TPCEProviderList.GetPrimaryIdx
   │   │ │ │ │   │ │   │   │ │   └TPCEProviderList.SetPrimary
   │   │ │ │ │   │ │   │   │ ├AppendComment
   │   │ │ │ │   │ │   │   │ ├TPCEDiag.SetFromString
   │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString
   │   │ │ │ │   │ │   │   │ │   └TPCEItem.SetComment
   │   │ │ │ │   │ │   │   │ ├TPCEProc.SetFromString
   │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
   │   │ │ │ │   │ │   │   │ ├TPCEImm.SetFromString
   │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
   │   │ │ │ │   │ │   │   │ ├TPCESkin.SetFromString
   │   │ │ │ │   │ │   │   │ │ ├TPCEItem.SetFromString...
   │   │ │ │ │   │ │   │   │ │ └StrToFMDateTime
   │   │ │ │ │   │ │   │   │ ├TPCEPat.SetFromString
   │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
   │   │ │ │ │   │ │   │   │ ├TPCEHealth.SetFromString
   │   │ │ │ │   │ │   │   │ │ └TPCEItem.SetFromString...
   │   │ │ │ │   │ │   │   │ └TPCEExams.SetFromString
   │   │ │ │ │   │ │   │   │   └TPCEItem.SetFromString...
   │   │ │ │ │   │ │   │   └GetVitalsFromNote
   │   │ │ │ │   │ │   │     ├TPCEData.IsSecondaryVisit
   │   │ │ │ │   │ │   │     ├GetVitalsFromEncDateTime
   │   │ │ │ │   │ │   │     └GetVitalFromNoteIEN
   │   │ │ │ │   │ │   ├TfrmBase508Form.Create...
   │   │ │ │ │   │ │   ├TfrmRemDlg.SetFontSize
   │   │ │ │ │   │ │   │ └TfrmRemDlg.BuildControls
   │   │ │ │ │   │ │   │   ├TfrmRemDlg.GetBox
   │   │ │ │ │   │ │   │   ├TfrmRemDlg.ClearControls
   │   │ │ │ │   │ │   │   │ ├WipeOutControls
   │   │ │ │ │   │ │   │   │ │ └..(rec)..
   │   │ │ │ │   │ │   │   │ └TfrmRemDlg.GetBox
   │   │ │ │ │   │ │   │   ├TReminderDialog.GetPrintName
   │   │ │ │ │   │ │   │   ├SetActiveVars
   │   │ │ │ │   │ │   │   │ └IsOnBox
   │   │ │ │ │   │ │   │   ├TReminderDialog.BuildControls
   │   │ │ │ │   │ │   │   │ ├TRemDlgElement.BuildControls
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.TrueIndent
   │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.Indent
   │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.Box
   │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.ChildrenIndent
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ElemType
   │   │ │ │ │   │ │   │   │ │ ├GetPanel
   │   │ │ │ │   │ │   │   │ │ │ ├GetDialogEntry
   │   │ │ │ │   │ │   │   │ │ │ │ └TTemplateDialogEntry.Create
   │   │ │ │ │   │ │   │   │ │ │ │   ├TDlgFieldPanel.Create
   │   │ │ │ │   │ │   │   │ │ │ │   ├GetTemplateField
   │   │ │ │ │   │ │   │   │ │ │ │   │ ├LoadTemplateFieldByIEN
   │   │ │ │ │   │ │   │   │ │ │ │   │ ├LoadTemplateField
   │   │ │ │ │   │ │   │   │ │ │ │   │ └TTemplateField.Create
   │   │ │ │ │   │ │   │   │ │ │ │   │   ├TemplateFieldCode2Field
   │   │ │ │ │   │ │   │   │ │ │ │   │   └TemplateDateCode2DateType
   │   │ │ │ │   │ │   │   │ │ │ │   ├TTemplateField.GetRequired
   │   │ │ │ │   │ │   │   │ │ │ │   └TTemplateField.CreateDialogControls
   │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogFieldEdit.Create
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ │     ├TTemplateField.GetRequired
   │   │ │ │ │   │ │   │   │ │ │ │     ├ht
   │   │ │ │ │   │ │   │   │ │ │ │     ├wdth
   │   │ │ │ │   │ │   │   │ │ │ │     ├TTemplateField.Width
   │   │ │ │ │   │ │   │   │ │ │ │     │ └StripEmbedded
   │   │ │ │ │   │ │   │   │ │ │ │     ├TTemplateDialogEntry.DoChange
   │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogComboBox.Create
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ │     ├StripEmbedded
   │   │ │ │ │   │ │   │   │ │ │ │     ├TfraTemplateFieldButton.Create
   │   │ │ │ │   │ │   │   │ │ │ │     │ ├TfraTemplateFieldButton.ButtonKeyDown
   │   │ │ │ │   │ │   │   │ │ │ │     │ │ └TfraTemplateFieldButton.pnlBtnMouseDown
   │   │ │ │ │   │ │   │   │ │ │ │     │ │   ├TfraTemplateFieldButton.GetButtonText
   │   │ │ │ │   │ │   │   │ │ │ │     │ │   └TfraTemplateFieldButton.SetButtonText
   │   │ │ │ │   │ │   │   │ │ │ │     │ ├TfraTemplateFieldButton.ButtonKeyUp
   │   │ │ │ │   │ │   │   │ │ │ │     │ │ └TfraTemplateFieldButton.pnlBtnMouseUp
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ │     ├TfraTemplateFieldButton.SetButtonText
   │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogCheckBox.Create
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ │     ├UpdateIndents
   │   │ │ │ │   │ │   │   │ │ │ │     │ └wdth
   │   │ │ │ │   │ │   │   │ │ │ │     ├StrToFMDateTime
   │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogDateCombo.Create
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogDateBox.Create
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogNumber.CreatePanel
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ │     ├TTemplateDialogEntry.UpDownChange
   │   │ │ │ │   │ │   │   │ │ │ │     │ ├EnsureText
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TTemplateDialogEntry.DoChange
   │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogHyperlinkLabel.Create
   │   │ │ │ │   │ │   │   │ │ │ │     │ ├TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogHyperlinkLabel.KeyPressed
   │   │ │ │ │   │ │   │   │ │ │ │     │   └TCPRSDialogHyperlinkLabel.Clicked
   │   │ │ │ │   │ │   │   │ │ │ │     │     └GotoWebPage
   │   │ │ │ │   │ │   │   │ │ │ │     ├TCPRSDialogHyperlinkLabel.Init
   │   │ │ │ │   │ │   │   │ │ │ │     │ └TCPRSDialogHyperlinkLabel.Clicked...
   │   │ │ │ │   │ │   │   │ │ │ │     └TCPRSDialogRichEdit.Create
   │   │ │ │ │   │ │   │   │ │ │ │       └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │ ├TTemplateDialogEntry.SetFieldValues
   │   │ │ │ │   │ │   │   │ │ │ │ └TTemplateDialogEntry.SetControlText
   │   │ │ │ │   │ │   │   │ │ │ │   └TfraTemplateFieldButton.SetButtonText
   │   │ │ │ │   │ │   │   │ │ │ ├TTemplateDialogEntry.SetAutoDestroyOnPanelFree
   │   │ │ │ │   │ │   │   │ │ │ │ └PanelDestroy
   │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.FieldPanelChange
   │   │ │ │ │   │ │   │   │ │ │ │ ├TReminderDialog.BeginTextChanged
   │   │ │ │ │   │ │   │   │ │ │ │ ├TTemplateDialogEntry.GetFieldValues
   │   │ │ │ │   │ │   │   │ │ │ │ │ └TTemplateDialogEntry.GetControlText
   │   │ │ │ │   │ │   │   │ │ │ │ │   ├GetTemplateField...
   │   │ │ │ │   │ │   │   │ │ │ │ │   ├GetOriginalItem
   │   │ │ │ │   │ │   │   │ │ │ │ │   │ ├GetTemplateField...
   │   │ │ │ │   │ │   │   │ │ │ │ │   │ └StripEmbedded
   │   │ │ │ │   │ │   │   │ │ │ │ │   └TfraTemplateFieldButton.GetButtonText
   │   │ │ │ │   │ │   │   │ │ │ │ └TReminderDialog.EndTextChanged
   │   │ │ │ │   │ │   │   │ │ │ └TTemplateDialogEntry.GetPanel
   │   │ │ │ │   │ │   │   │ │ │   ├Init
   │   │ │ │ │   │ │   │   │ │ │   │ ├TTemplateDialogEntry.KillLabels
   │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_CurrentCheckBox
   │   │ │ │ │   │ │   │   │ │ │   │   └ScreenReaderSystem_Stop
   │   │ │ │ │   │ │   │   │ │ │   │     ├UpdateCheckBox
   │   │ │ │ │   │ │   │   │ │ │   │     ├UpdatePending
   │   │ │ │ │   │ │   │   │ │ │   │     └ScreenReaderSystem_Clear
   │   │ │ │ │   │ │   │   │ │ │   ├Text508Work
   │   │ │ │ │   │ │   │   │ │ │   │ ├TTemplateDialogEntry.StripCode
   │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_Stop...
   │   │ │ │ │   │ │   │   │ │ │   │ ├StripSRCode
   │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_Continue
   │   │ │ │ │   │ │   │   │ │ │   ├TTemplateDialogEntry.StripCode
   │   │ │ │ │   │ │   │   │ │ │   ├NextLine
   │   │ │ │ │   │ │   │   │ │ │   ├DoLabel
   │   │ │ │ │   │ │   │   │ │ │   │ ├Add2TabOrder
   │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_CurrentLabel
   │   │ │ │ │   │ │   │   │ │ │   │ │ └ScreenReaderSystem_Stop...
   │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_AddText
   │   │ │ │ │   │ │   │   │ │ │   ├Ctrl508Work
   │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_CurrentLabel...
   │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_AddText
   │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_Stop...
   │   │ │ │ │   │ │   │   │ │ │   │ ├Add2TabOrder
   │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_CurrentComponent
   │   │ │ │ │   │ │   │   │ │ │   │   ├UpdateCheckBox
   │   │ │ │ │   │ │   │   │ │ │   │   ├UpdatePending
   │   │ │ │ │   │ │   │   │ │ │   │   └ScreenReaderSystem_Stop...
   │   │ │ │ │   │ │   │   │ │ │   ├TTemplateDialogEntry.SetFieldValues...
   │   │ │ │ │   │ │   │   │ │ │   └ScreenReaderSystem_Stop...
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.EntryID
   │   │ │ │ │   │ │   │   │ │ ├CRLFText
   │   │ │ │ │   │ │   │   │ │ │ └InitText
   │   │ │ │ │   │ │   │   │ │ ├UpdatePrompts
   │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.FieldPanelEntered
   │   │ │ │ │   │ │   │   │ │ │ │ └TDlgFieldPanel.SetTheFocus
   │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.FieldPanelExited
   │   │ │ │ │   │ │   │   │ │ │ │ └TDlgFieldPanel.SetTheFocus
   │   │ │ │ │   │ │   │   │ │ │ └AddPrompts
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.PromptOK
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemDlgElement.Historical
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.RemDataActive...
   │   │ │ │ │   │ │   │   │ │ │   │ └TRemPrompt.CompareActiveDate
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.Required
   │   │ │ │ │   │ │   │   │ │ │   │ └TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogFieldEdit.Create...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.GetValue...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.EditKeyPress
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.PromptChange
   │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.BeginTextChanged
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.GetValue...
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ ├FMToday...
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption
   │   │ │ │ │   │ │   │   │ │ │   │ │ └AssignFieldIDs
   │   │ │ │ │   │ │   │   │ │ │   │ │   └GetNewFieldID
   │   │ │ │ │   │ │   │   │ │ │   │ ├SelectDevice
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TfrmBase508Form.Create...
   │   │ │ │ │   │ │   │   │ │ │   │ │ └GetDefaultPrinter
   │   │ │ │ │   │ │   │   │ │ │   │ ├FMNow
   │   │ │ │ │   │ │   │   │ │ │   │ ├MHDLLFound
   │   │ │ │ │   │ │   │   │ │ │   │ │ └CheckforMHDll
   │   │ │ │ │   │ │   │   │ │ │   │ │   ├LoadMHDLL
   │   │ │ │ │   │ │   │   │ │ │   │ │   └UnloadMHDLL
   │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.BeginNeedRedraw
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.SetValue
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├FMToday...
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.GetValue...
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TPCEData.VisitDateTime...
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemData.InternalValue
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemDlgElement.Historical
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.RemDataActive...
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.RemDataChoiceActive
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├IsSyncPrompt
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPCERoot.Sync
   │   │ │ │ │   │ │   │   │ │ │   │ │ │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │ ├TRemPrompt.GetValue...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │ ├TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   │ │ │ ├TRemDlgElement.IsChecked
   │   │ │ │ │   │ │   │   │ │ │   │ │ │ ├TRemPrompt.SetValue...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │ └TRemDlgElement.cbClicked
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   ├TReminderDialog.BeginTextChanged
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   ├TReminderDialog.BeginNeedRedraw
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   ├TRemDlgElement.SetChecked
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├TRemDlgElement.GetData
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├GetDialogPrompts
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemDlgElement.Historical
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemDlgElement.FindingType
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ │ └TRemDlgElement.ElemType
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TReminderDialog.GetDlgSL
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ │ ├TReminderDialog.GetIEN
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ │ └GetDialogInfo
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ └TRemDlgElement.UpdateData
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TReminderDialog.GetDlgSL...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├Code2DataType
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├MHTestsOK
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.Create
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemData.Add2PN
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TPCEData.VisitDateTime...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemDlgElement.OneValidCode
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├TRemPrompt.Create
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ └TRemPrompt.CompareActiveDate
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemDlgElement.setActiveDates
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPCERoot.GetRoot
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemDlgElement.Historical
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├Code2VitalType
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├MHDLLFound...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├Code2PromptType
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.InitValue
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├TRemPrompt.InternalValue
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├GetPCECodes
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ │ ├LoadHistLocations
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ │ └CodeSetIndex
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ │   ├LoadImmSeriesItems
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ │   ├LoadImmReactionItems
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ │   ├LoadSkResultsItems
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ │   ├LoadPEDLevelItems
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ │   ├LoadHFLevelItems
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ │   └LoadXAMResultsItems
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├IsSyncPrompt
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├TRemPCERoot.GetValue
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ └TRemPrompt.SetValueFromParent
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │   └TRemPrompt.SetValue...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├PrepText4NextLine
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   └ExpandTIUObjects
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     ├TdmodShared.BoilerplateOK
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     │ ├ErrCount
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     │ ├AddErr
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     │ └TdmodShared.LoadTIUObjects
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     │   └GetObjectList
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │     └GetTemplateText
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │       └TEncounter.GetVisitStr...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├TRemDlgElement.Check4ChildrenSharedPrompts
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemDlgElement.ChildrenSharePrompts
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemDlgElement.GetData...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ └TRemPrompt.CanShare
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.Required...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   ├TRemPrompt.Add2PN
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ ├TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   │ └TRemPrompt.PromptOK...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │   └TRemPrompt.Caption...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├TRemDlgElement.ChildrenRequired
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├..(rec)..
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├UpdateForcedValues
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemDlgElement.IsChecked
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ ├TRemPrompt.SetValueFromParent...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ │ └..(rec)..
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├IsSyncPrompt
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │ └TRemPCERoot.UnSync
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   │   └TRemPrompt.Forced
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   ├TReminderDialog.EndNeedRedraw
   │   │ │ │ │   │ │   │   │ │ │   │ │ │   └TReminderDialog.EndTextChanged
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TReminderDialog.Visible
   │   │ │ │ │   │ │   │   │ │ │   │ │ │ └CurrentReminderInDialog
   │   │ │ │ │   │ │   │   │ │ │   │ │ ├TRemPrompt.VitalValue...
   │   │ │ │ │   │ │   │   │ │ │   │ │ └TRemPrompt.VitalUnitValue...
   │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.EndNeedRedraw
   │   │ │ │ │   │ │   │   │ │ │   │ └TReminderDialog.EndTextChanged
   │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogComboBox.Create...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.ComboBoxKeyDown
   │   │ │ │ │   │ │   │   │ │ │   ├GetComboBoxMinMax
   │   │ │ │ │   │ │   │   │ │ │   ├PCELoadORCombo
   │   │ │ │ │   │ │   │   │ │ │   │ └PCELoadORComboData
   │   │ │ │ │   │ │   │   │ │ │   │   ├GetPCECodes...
   │   │ │ │ │   │ │   │   │ │ │   │   └GetComboBoxMinMax
   │   │ │ │ │   │ │   │   │ │ │   ├GetDefLocations
   │   │ │ │ │   │ │   │   │ │ │   ├TRemData.DisplayWHResults
   │   │ │ │ │   │ │   │   │ │ │   ├NextLine
   │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogButton.Create
   │   │ │ │ │   │ │   │   │ │ │   │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.DoWHReport
   │   │ │ │ │   │ │   │   │ │ │   │ └ReportBox...
   │   │ │ │ │   │ │   │   │ │ │   ├ScreenReaderSupport
   │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_CurrentComponent...
   │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_Stop...
   │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogCheckBox.Create...
   │   │ │ │ │   │ │   │   │ │ │   ├ProcessLabel
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption...
   │   │ │ │ │   │ │   │   │ │ │   │ ├ScreenReaderSystem_CurrentLabel...
   │   │ │ │ │   │ │   │   │ │ │   │ └ScreenReaderSystem_AddText
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.ViewWHText
   │   │ │ │ │   │ │   │   │ │ │   │ └ReportBox...
   │   │ │ │ │   │ │   │   │ │ │   ├TCPRSDialogDateCombo.Create...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.Caption...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.ParentCBEnter
   │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.ParentCBExit
   │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.SubCommentChange
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption...
   │   │ │ │ │   │ │   │   │ │ │   │ └TRemPrompt.SetValue...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.VitalType...
   │   │ │ │ │   │ │   │   │ │ │   ├InitPainCombo
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.VitalValue...
   │   │ │ │ │   │ │   │   │ │ │   ├TVitalEdit.Create
   │   │ │ │ │   │ │   │   │ │ │   │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.VitalVerify
   │   │ │ │ │   │ │   │   │ │ │   │ ├ConvertHeight2Inches
   │   │ │ │ │   │ │   │   │ │ │   │ └VitalInvalid
   │   │ │ │ │   │ │   │   │ │ │   │   ├VerifyVital
   │   │ │ │ │   │ │   │   │ │ │   │   ├IsNumericWeight
   │   │ │ │ │   │ │   │   │ │ │   │   └VitalErrorText
   │   │ │ │ │   │ │   │   │ │ │   ├TVitalComboBox.Create
   │   │ │ │ │   │ │   │   │ │ │   │ └TCPRSDialogComponent.Create
   │   │ │ │ │   │ │   │   │ │ │   ├VitalControlTag
   │   │ │ │ │   │ │   │   │ │ │   ├TVitalComboBox.SelectByID
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.VitalUnitValue...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.Historical
   │   │ │ │ │   │ │   │   │ │ │   ├TPCEData.VisitDateTime...
   │   │ │ │ │   │ │   │   │ │ │   ├TReminderDialog.ComboBoxCheckedText
   │   │ │ │ │   │ │   │   │ │ │   ├TReminderDialog.ComboBoxResized
   │   │ │ │ │   │ │   │   │ │ │   ├MHDLLFound...
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.DoMHTest
   │   │ │ │ │   │ │   │   │ │ │   │ ├MHTestAuthorized
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemData.Narrative
   │   │ │ │ │   │ │   │   │ │ │   │ ├TReminderDialog.BeginTextChanged
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemDlgElement.IncludeMHTestInPN
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.GetValue...
   │   │ │ │ │   │ │   │   │ │ │   │ ├PerformMHTest
   │   │ │ │ │   │ │   │   │ │ │   │ │ └TfrmMHTest.CallMHDLL
   │   │ │ │ │   │ │   │   │ │ │   │ │   ├LoadMHDLL
   │   │ │ │ │   │ │   │   │ │ │   │ │   └UnloadMHDLL
   │   │ │ │ │   │ │   │   │ │ │   │ ├TimedOut
   │   │ │ │ │   │ │   │   │ │ │   │ ├GetMHResultText
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.SetValue...
   │   │ │ │ │   │ │   │   │ │ │   │ ├MentalHealthTestResults
   │   │ │ │ │   │ │   │   │ │ │   │ ├ExpandTIUObjects...
   │   │ │ │ │   │ │   │   │ │ │   │ └TReminderDialog.EndTextChanged
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.ForcedCaption
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.Caption...
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │   │   │ │ │   │ ├TRemPrompt.VitalType...
   │   │ │ │ │   │ │   │   │ │ │   │ └TRemData.Narrative
   │   │ │ │ │   │ │   │   │ │ │   ├GAFURL
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.GAFHelp
   │   │ │ │ │   │ │   │   │ │ │   │ ├GotoWebPage
   │   │ │ │ │   │ │   │   │ │ │   │ └GAFURL
   │   │ │ │ │   │ │   │   │ │ │   ├TRemPrompt.SameLine
   │   │ │ │ │   │ │   │   │ │ │   ├TRemDlgElement.TrueIndent...
   │   │ │ │ │   │ │   │   │ │ │   ├ScreenReaderSystem_CurrentComponent...
   │   │ │ │ │   │ │   │   │ │ │   ├ScreenReaderSystem_Stop...
   │   │ │ │ │   │ │   │   │ │ │   └TRemDlgElement.Enabled
   │   │ │ │ │   │ │   │   │ │ │     └TRemDlgElement.EnableChildren
   │   │ │ │ │   │ │   │   │ │ │       ├..(rec)..
   │   │ │ │ │   │ │   │   │ │ │       └TRemDlgElement.ElemType
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.cbClicked...
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.cbEntered
   │   │ │ │ │   │ │   │   │ │ │ └UnfocusableControlEnter
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ParentCBExit
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.FieldPanelKeyPress
   │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.FieldPanelOnClick
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.FieldPanelOnClick
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.FieldPanelLabelOnClick
   │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.FieldPanelOnClick
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ChildrenRequired
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ShowChildren
   │   │ │ │ │   │ │   │   │ │ │ ├TRemDlgElement.ElemType
   │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.HideChildren
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.Box
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.ChildrenIndent
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.BoxCaption
   │   │ │ │ │   │ │   │   │ │ │ └TRemDlgElement.Box
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.EnableChildren...
   │   │ │ │ │   │ │   │   │ │ ├..(rec)..
   │   │ │ │ │   │ │   │   │ │ ├AddPrompts...
   │   │ │ │ │   │ │   │   │ │ ├TRemDlgElement.SubCommentChange...
   │   │ │ │ │   │ │   │   │ │ └ScreenReaderSystem_Stop...
   │   │ │ │ │   │ │   │   │ └TReminderDialog.GetPrintName
   │   │ │ │ │   │ │   │   ├TfrmRemDlg.BoxUpdateDone
   │   │ │ │ │   │ │   │   │ └TfrmRemDlg.ClearControls...
   │   │ │ │ │   │ │   │   ├IsOnBox
   │   │ │ │ │   │ │   │   ├TfrmRemDlg.ControlsChanged
   │   │ │ │ │   │ │   │   │ └TfrmRemDlg.GetBox
   │   │ │ │ │   │ │   │   └TfrmRemDlg.UpdateText
   │   │ │ │ │   │ │   │     ├TReminderDialog.AddText
   │   │ │ │ │   │ │   │     │ ├TRemDlgElement.AddText
   │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.Add2PN...
   │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.IndentPNLevel
   │   │ │ │ │   │ │   │     │ │ │ ├..(rec)..
   │   │ │ │ │   │ │   │     │ │ │ └TRemDlgElement.IndentChildrenInPN
   │   │ │ │ │   │ │   │     │ │ ├CurrentReminderInDialog
   │   │ │ │ │   │ │   │     │ │ ├ResolveTemplateFields
   │   │ │ │ │   │ │   │     │ │ │ ├TTemplateDialogEntry.GetControlText...
   │   │ │ │ │   │ │   │     │ │ │ ├GetTemplateField...
   │   │ │ │ │   │ │   │     │ │ │ ├AddNewTxt
   │   │ │ │ │   │ │   │     │ │ │ └WordWrapText
   │   │ │ │ │   │ │   │     │ │ │   └WrappedText
   │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.GetFieldValues
   │   │ │ │ │   │ │   │     │ │ │ ├TRemDlgElement.ElemType
   │   │ │ │ │   │ │   │     │ │ │ └..(rec)..
   │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.GetTemplateFieldValues
   │   │ │ │ │   │ │   │     │ │ │ ├GetTemplateField...
   │   │ │ │ │   │ │   │     │ │ │ ├TTemplateField.GetTemplateFieldDefault
   │   │ │ │ │   │ │   │     │ │ │ │ └StripEmbedded
   │   │ │ │ │   │ │   │     │ │ │ └AddNewTxt
   │   │ │ │ │   │ │   │     │ │ ├StripScreenReaderCodes
   │   │ │ │ │   │ │   │     │ │ ├WordWrap
   │   │ │ │ │   │ │   │     │ │ │ ├StripScreenReaderCodes
   │   │ │ │ │   │ │   │     │ │ │ └InitText
   │   │ │ │ │   │ │   │     │ │ ├TRemDlgElement.ElemType
   │   │ │ │ │   │ │   │     │ │ └..(rec)..
   │   │ │ │ │   │ │   │     │ ├TReminderDialog.GetPrintName
   │   │ │ │ │   │ │   │     │ └StripScreenReaderCodes
   │   │ │ │ │   │ │   │     ├ClinRemText
   │   │ │ │ │   │ │   │     │ └GetProgressNoteHeader
   │   │ │ │ │   │ │   │     └TPCEData.StrVisitType...
   │   │ │ │ │   │ │   ├UpdateReminderFinish...
   │   │ │ │ │   │ │   ├TfrmRemDlg.ProcessTemplate
   │   │ │ │ │   │ │   │ ├TReminderDialog.Create
   │   │ │ │ │   │ │   │ │ └TReminderDialog.BaseCreate
   │   │ │ │ │   │ │   │ │   ├TReminderDialog.GetDlgSL...
   │   │ │ │ │   │ │   │ │   ├TRemDlgElement.Create
   │   │ │ │ │   │ │   │ │   ├TRemDlgElement.ElemType
   │   │ │ │ │   │ │   │ │   ├TRemDlgElement.Historical
   │   │ │ │ │   │ │   │ │   ├TRemDlgElement.FindingType...
   │   │ │ │ │   │ │   │ │   ├PrepText4NextLine
   │   │ │ │ │   │ │   │ │   ├ExpandTIUObjects...
   │   │ │ │ │   │ │   │ │   ├AssignFieldIDs...
   │   │ │ │ │   │ │   │ │   ├TRemDlgElement.SetChecked...
   │   │ │ │ │   │ │   │ │   └TRemDlgElement.UpdateData...
   │   │ │ │ │   │ │   │ ├TTemplate.ReminderWipe
   │   │ │ │ │   │ │   │ ├TfrmRemDlg.ClearControls...
   │   │ │ │ │   │ │   │ ├TfrmRemDlg.BuildControls...
   │   │ │ │ │   │ │   │ ├TfrmRemDlg.UpdateText...
   │   │ │ │ │   │ │   │ └TfrmRemDlg.UpdateButtons...
   │   │ │ │ │   │ │   └TfrmRemDlg.ProcessReminder
   │   │ │ │ │   │ │     ├GetReminder
   │   │ │ │ │   │ │     │ └TReminder.Create
   │   │ │ │ │   │ │     │   └TReminderDialog.BaseCreate...
   │   │ │ │ │   │ │     ├TReminderDialog.FinishProblems
   │   │ │ │ │   │ │     │ ├TReminderDialog.Processing...
   │   │ │ │ │   │ │     │ ├TRemDlgElement.FinishProblems
   │   │ │ │ │   │ │     │ │ ├TRemPrompt.GetValue...
   │   │ │ │ │   │ │     │ │ ├TRemPrompt.PromptType...
   │   │ │ │ │   │ │     │ │ ├TRemPrompt.PromptOK...
   │   │ │ │ │   │ │     │ │ ├TRemPrompt.Forced
   │   │ │ │ │   │ │     │ │ ├TRemPrompt.Required...
   │   │ │ │ │   │ │     │ │ ├WordWrap...
   │   │ │ │ │   │ │     │ │ ├TRemPrompt.ForcedCaption...
   │   │ │ │ │   │ │     │ │ ├TRemDlgElement.ElemType
   │   │ │ │ │   │ │     │ │ ├TRemDlgElement.ChildrenRequired
   │   │ │ │ │   │ │     │ │ ├TRemDlgElement.BoxCaption...
   │   │ │ │ │   │ │     │ │ └..(rec)..
   │   │ │ │ │   │ │     │ ├TRemDlgElement.GetFieldValues...
   │   │ │ │ │   │ │     │ ├TReminderDialog.AddText...
   │   │ │ │ │   │ │     │ └AreTemplateFieldsRequired
   │   │ │ │ │   │ │     │   ├GetTemplateField...
   │   │ │ │ │   │ │     │   ├TTemplateField.GetRequired
   │   │ │ │ │   │ │     │   └TTemplateDialogEntry.GetControlText...
   │   │ │ │ │   │ │     ├TfrmRemDlg.ClearControls...
   │   │ │ │ │   │ │     ├TfrmRemDlg.BuildControls...
   │   │ │ │ │   │ │     ├TfrmRemDlg.UpdateText...
   │   │ │ │ │   │ │     ├TfrmRemDlg.PositionTrees
   │   │ │ │ │   │ │     └TfrmRemDlg.UpdateButtons...
   │   │ │ │ │   │ └HideReminderDialog
   │   │ │ │ │   └ReminderNode
   │   │ │ │ ├NotifyWhenProcessingReminderChanges
   │   │ │ │ ├TfrmDrawers.PositionToReminder
   │   │ │ │ ├RemoveNotifyRemindersChange
   │   │ │ │ └RemoveNotifyWhenProcessingReminderChanges
   │   │ │ └TfrmDrawers.SetSplitterActive
   │   │ ├ActOnDocument
   │   │ ├TPCEData.PCEForNote...
   │   │ └GetVitalsFromNote...
   │   └NotifyOtherApps
   │     ├AppNotificationEnabled
   │     │ └TNotifyAppsThread.CreateThread
   │     └TNotifyAppsThread.ResumeIfIdle
   ├TfrmNotes.ShowPCEControls
   ├UpdateReminderFinish...
   ├TfrmNotes.ShowPCEButtons...
   └TfrmNotes.lstNotesClick...

Called-By Hierarchy


                                                     TfrmNotes.LoadNotes
                                             TfrmNotes.LstNotesToPrint┤ 
                            TfrmFrame.mnuFilePrintSelectedItemsClick┘ │ 
                                                TfrmNotes.mnuViewClick┤ 
                                            TfrmNotes.SetViewContext┤ │ 
                                             TfrmNotes.DisplayPage┤ │ │ 
                             TfrmNotes.mnuViewReturntoDefaultClick┘ │ │ 
                                 TfrmNotes.mnuViewSaveAsDefaultClick┘ │ 
                                                TfrmNotes.StartNewEdit┤ 
                                            TfrmNotes.mnuActNewClick┤ │ 
                                         TfrmNotes.cmdNewNoteClick┘ │ │ 
                                     TfrmNotes.mnuActAddIDEntryClick┤ │ 
                                         TfrmNotes.mnuActAddendClick┤ │ 
                                           TfrmNotes.mnuActEditClick┘ │ 
                               TfrmNotes.mnuActDetachFromIDParentClick┤ 
                                           TfrmNotes.mnuActDeleteClick┤ 
                                            TfrmNotes.SaveEditedNote┘ │ 
                                         TfrmNotes.SaveCurrentNote┘   │ 
                                    TfrmNotes.AllowContextChange┤     │ 
                               TfrmFrame.AllowContextChangeAll┘ │     │ 
                                    TfrmFrame.FormCloseQuery┤   │     │ 
                                  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.ctxContextorPending┤   │     │ 
                              TfrmFrame.StartCCOWContextor┘ │   │     │ 
                                    TfrmFrame.FormCreate┘   │   │     │ 
                             TfrmFrame.ctxContextorCommitted┤   │     │ 
                           TfrmFrame.StartCCOWContextor...┘ │   │     │ 
                      TfrmFrame.mnuFileResumeContextGetClick┤   │     │ 
                      TfrmFrame.mnuFileResumeContextSetClick┘   │     │ 
                                    TfrmNotes.LstNotesToPrint...┤     │ 
                                          TfrmNotes.RequestPrint┤     │ 
                                   TfrmFrame.mnuFilePrintClick┘ │     │ 
                                       TfrmNotes.mnuViewClick...┤     │ 
                                       TfrmNotes.StartNewEdit...┤     │ 
                         TfrmNotes.mnuActDetachFromIDParentClick┤     │ 
                                  TfrmNotes.mnuActDeleteClick...┤     │ 
                                       TfrmNotes.mnuActSaveClick┤     │ 
                                       TfrmNotes.mnuActSignClick┤     │ 
                                          TfrmNotes.SaveSignItem┤     │ 
                                         TfrmReview.cmdOKClick┘ │     │ 
                                               ReviewChanges┘   │     │ 
                        TfrmFrame.AllowContextChangeAll...┤     │     │ 
                                  TfrmFrame.FormCloseQuery┤     │     │ 
                              TfrmFrame.mnuFileReviewClick┤     │     │ 
                                           UpdateEncounter┘     │     │ 
                         TfrmFrame.mnuFileEncounterClick┤       │     │ 
                                 TfrmFrame.ViewInfo...┤ │       │     │ 
                    TfrmODMedIV.SetValuesFromResponses┤ │       │     │ 
                             TfrmODMedIV.SetupDialog┤ │ │       │     │ 
                   TfrmODMedIV.cboSolutionMouseClick┘ │ │       │     │ 
                       TfrmODMedIV.cboSolutionExit┘   │ │       │     │ 
                  TfrmODMedIV.cboSolutionMouseClick...┤ │       │     │ 
                     TfrmODMedIV.cboAdditiveMouseClick┤ │       │     │ 
                         TfrmODMedIV.cboAdditiveExit┘ │ │       │     │ 
                                TfrmODAuto.SetupDialog┤ │       │     │ 
                                   ActivateOrderDialog┤ │       │     │ 
                           TfrmRemDlg.btnFinishClick┤ │ │       │     │ 
           TfrmConsults.mnuActNewConsultRequestClick┤ │ │       │     │ 
                   TfrmConsults.cmdNewConsultClick┘ │ │ │       │     │ 
                TfrmConsults.mnuActNewProcedureClick┤ │ │       │     │ 
                      TfrmConsults.cmdNewProcClick┘ │ │ │       │     │ 
                                        ChangeOrders┤ │ │       │     │ 
                      TfrmOrders.mnuActChangeClick┤ │ │ │       │     │ 
                        TfrmMeds.mnuActChangeClick┘ │ │ │       │     │ 
                                     ChangeOrdersEvt┤ │ │       │     │ 
                                          CopyOrders┤ │ │       │     │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │     │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │     │ 
                           TfrmODActive.btnOKClick┘ │ │ │       │     │ 
                                      TransferOrders┤ │ │       │     │ 
                        TfrmOrders.mnuActCopyClick┤ │ │ │       │     │ 
                          TfrmMeds.mnuActCopyClick┤ │ │ │       │     │ 
                           TfrmODActive.btnOKClick┘ │ │ │       │     │ 
                            TfrmOrders.lstWriteClick┤ │ │       │     │ 
               TfrmOrders.PlaceOrderForDefaultDialog┤ │ │       │     │ 
                  TfrmOrders.DisplayDefaultDlgList┤ │ │ │       │     │ 
                       TfrmOrders.ResetOrderPage┘ │ │ │ │       │     │ 
               TfrmOrders.btnDelayedOrderClick┘   │ │ │ │       │     │ 
                                 DisplayEvntDialog┤ │ │ │       │     │ 
                             SetDelayEventForMed┘ │ │ │ │       │     │ 
                      TfrmMeds.mnuActCopyClick┘   │ │ │ │       │     │ 
                                 DisplayEvntDialog┤ │ │ │       │     │ 
                                  SetViewForCopy┘ │ │ │ │       │     │ 
                    TfrmOrders.mnuActCopyClick┘   │ │ │ │       │     │ 
                                 DisplayEvntDialog┘ │ │ │       │     │ 
                                ExecuteChangeEvt┘   │ │ │       │     │ 
                 TfrmOrders.mnuActChgEvntClick┘     │ │ │       │     │ 
                             TfrmMeds.mnuActNewClick┤ │ │       │     │ 
                           TfrmOMNavA.ActivateDialog┤ │ │       │     │ 
                         TfrmOMNavA.grdMenuKeyDown┤ │ │ │       │     │ 
                         TfrmOMNavA.grdMenuMouseUp┘ │ │ │       │     │ 
                                TfrmOMSet.DoNextItem┘ │ │       │     │ 
                              TfrmOMSet.InsertList┤   │ │       │     │ 
                               ActivateOrderList┘ │   │ │       │     │ 
                     TfrmRemDlg.btnFinishClick┤   │   │ │       │     │ 
                             ActivateOrderHTML┤   │   │ │       │     │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │     │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┘ │   │   │ │       │     │ 
                              ActivateOrderSet┤   │   │ │       │     │ 
                   TfrmRemDlg.btnFinishClick┤ │   │   │ │       │     │ 
TfrmConsults.mnuActNewConsultRequestClick...┤ │   │   │ │       │     │ 
     TfrmConsults.mnuActNewProcedureClick...┤ │   │   │ │       │     │ 
                    TfrmOrders.lstWriteClick┤ │   │   │ │       │     │ 
    TfrmOrders.PlaceOrderForDefaultDialog...┤ │   │   │ │       │     │ 
                     TfrmMeds.mnuActNewClick┤ │   │   │ │       │     │ 
                TfrmOMNavA.ActivateDialog...┤ │   │   │ │       │     │ 
                     TfrmOMSet.DoNextItem...┘ │   │   │ │       │     │ 
                       TfrmOMNavA.DoSelectList┘   │   │ │       │     │ 
                     TfrmOMNavA.grdMenuKeyUp┤     │   │ │       │     │ 
                   TfrmOMNavA.grdMenuMouseUp┘     │   │ │       │     │ 
                                        SkipToNext┤   │ │       │     │ 
                         TfrmOMSet.DoNextItem...┘ │   │ │       │     │ 
                            TfrmOMSet.UMDelayEvent┘   │ │       │     │ 
                               TfrmOMSet.InsertList...┤ │       │     │ 
                                TfrmODMeds.SetupDialog┤ │       │     │ 
                             TfrmODMeds.btnSelectClick┤ │       │     │ 
                             TfrmODMeds.UMDelayClick┘ │ │       │     │ 
                                    ExecuteRenewOrders┘ │       │     │ 
                         TfrmOrders.mnuActRenewClick┤   │       │     │ 
                           TfrmMeds.mnuActRenewClick┘   │       │     │ 
                                        EncounterPresent┤       │     │ 
                                      ReadyForNewOrder┤ │       │     │ 
                           TfrmRemDlg.btnFinishClick┤ │ │       │     │ 
        TfrmConsults.mnuActNewConsultRequestClick...┤ │ │       │     │ 
             TfrmConsults.mnuActNewProcedureClick...┤ │ │       │     │ 
                                     ChangeOrders...┤ │ │       │     │ 
                                     ChangeOrdersEvt┤ │ │       │     │ 
                                       CopyOrders...┤ │ │       │     │ 
                                   TransferOrders...┤ │ │       │     │ 
                            TfrmOrders.lstWriteClick┤ │ │       │     │ 
                             TfrmMeds.mnuActNewClick┘ │ │       │     │ 
                                     ReadyForNewOrder1┤ │       │     │ 
            TfrmOrders.PlaceOrderForDefaultDialog...┘ │ │       │     │ 
                              TfrmOrders.mnuActDCClick┤ │       │     │ 
                             TfrmOrders.mnuActRelClick┤ │       │     │ 
                            TfrmOrders.mnuActHoldClick┤ │       │     │ 
                          TfrmOrders.mnuActUnholdClick┤ │       │     │ 
                           TfrmOrders.mnuActRenewClick┤ │       │     │ 
                         TfrmOrders.mnuActReleaseClick┤ │       │     │ 
                         TfrmOrders.mnuActOnChartClick┤ │       │     │ 
                            TfrmOrders.mnuActSignClick┤ │       │     │ 
                                TfrmMeds.mnuActDCClick┤ │       │     │ 
                              TfrmMeds.mnuActHoldClick┤ │       │     │ 
                             TfrmMeds.mnuActRenewClick┤ │       │     │ 
                            TfrmMeds.mnuActUnholdClick┤ │       │     │ 
                              TfrmMeds.mnuActCopyClick┤ │       │     │ 
                            TfrmMeds.mnuActRefillClick┘ │       │     │ 
                                     EncounterPresentEDO┤       │     │ 
                                   ReadyForNewOrder...┤ │       │     │ 
                         TfrmOrders.mnuActChgEvntClick┤ │       │     │ 
                          TfrmOrders.mnuActChangeClick┤ │       │     │ 
                            TfrmOrders.mnuActCopyClick┤ │       │     │ 
                       TfrmOrders.btnDelayedOrderClick┤ │       │     │ 
                            TfrmMeds.mnuActChangeClick┤ │       │     │ 
                              TfrmMeds.mnuActCopyClick┘ │       │     │ 
                                             UpdateVisit┤       │     │ 
                                           EditPCEData┤ │       │     │ 
                             TfrmSurgery.cmdPCEClick┤ │ │       │     │ 
                                 UpdateEncounterInfo┘ │ │       │     │ 
                             TfrmNotes.cmdPCEClick┘   │ │       │     │ 
                        TfrmVitals.btnEnterVitalsClick┘ │       │     │ 
                                             UpdateVisit┤       │     │ 
                                        EncounterPresent┘       │     │ 
                         TfrmProblems.lstProbActsClick┘         │     │ 
                     TfrmProblems.wgProbDataDblClick┤           │     │ 
                           TfrmProblems.lstViewClick┘           │     │ 
                   TfrmProblems.HighlightDuplicate┘             │     │ 
                         TfrmProblems.AddProblem┤               │     │ 
              TfrmProblems.lstProbActsClick...┤ │               │     │ 
                 TfrmProblems.lstProbPickClick┤ │               │     │ 
              TfrmProblems.lstProbPickDblClick┤ │               │     │ 
              TfrmProblems.edProbEntKeyPress┘ │ │               │     │ 
                      TfrmProblems.UMPLLexicon┘ │               │     │ 
                   TfrmdlgProb.bbChangeProbClick┘               │     │ 
                                             TfrmNotes.FormClose┤     │ 
                        TfrmNotes.mnuActIdentifyAddlSignersClick┤     │ 
                            TfrmNotes.popNoteMemoAddlSignClick┘ │     │ 
                                  TfrmNotes.ProcessNotifications┤     │ 
                                         TfrmNotes.DisplayPage┘ │     │ 
                                     TfrmNotes.SetViewContext...┤     │ 
                                       TfrmNotes.tvNotesDragDrop┤     │ 
                           TfrmNotes.mnuActAttachtoIDParentClick┘     │ 
                                             TfrmNotes.mnuActSaveClick┤ 
                                             TfrmNotes.mnuActSignClick┤ 
                                             TfrmNotes.SaveSignItem...┤ 
                           TfrmNotes.mnuActIdentifyAddlSignersClick...┤ 
                                 TfrmNotes.mnuActAttachtoIDParentClick┤ 
                                             TfrmNotes.DoAttachIDChild┘ 
                                           TfrmNotes.tvNotesDragDrop┤   
                               TfrmNotes.mnuActAttachtoIDParentClick┘   

Calls

Name Declaration Comments
CreateListItemsForDocumentTree procedure CreateListItemsForDocumentTree(Dest, Source: TStrings; Context: integer; GroupBy: string; Ascending: boolean; TabIndex: integer); -
KillDocTreeObjects procedure KillDocTreeObjects(TreeView: TORTreeView); -
ListNotesForTree procedure ListNotesForTree(Dest: TStrings; Context: Integer; Early, Late: TFMDateTime; Person: int64; OccLim: Integer; SortAscending: Boolean); -
RemoveParentsWithNoChildren procedure RemoveParentsWithNoChildren(Tree: TTreeView; Context: TTIUContext); -
TfrmNotes.SetNoteTreeLabel function SetNoteTreeLabel(AContext: TTIUContext): string; -
TfrmNotes.tvNotesChange procedure tvNotesChange(Sender: TObject; Node: TTreeNode); -
TfrmNotes.UpdateTreeView procedure UpdateTreeView(DocList: TStringList; Tree: TORTreeView); -

Called-By

Name Declaration Comments
TfrmNotes.DoAttachIDChild procedure DoAttachIDChild(AChild, AParent: TORTreeNode); -
TfrmNotes.LstNotesToPrint procedure LstNotesToPrint; -
TfrmNotes.mnuActAttachtoIDParentClick procedure mnuActAttachtoIDParentClick(Sender: TObject); -
TfrmNotes.mnuActDeleteClick procedure mnuActDeleteClick(Sender: TObject); -
TfrmNotes.mnuActDetachFromIDParentClick procedure mnuActDetachFromIDParentClick(Sender: TObject); -
TfrmNotes.mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); -
TfrmNotes.mnuActSaveClick procedure mnuActSaveClick(Sender: TObject); -
TfrmNotes.mnuActSignClick procedure mnuActSignClick(Sender: TObject); -
TfrmNotes.mnuViewClick procedure mnuViewClick(Sender: TObject); -
TfrmNotes.SaveSignItem procedure SaveSignItem(const ItemID, ESCode: string); -
TfrmNotes.StartNewEdit function StartNewEdit(NewNoteType: integer): Boolean; -


Source

2885  procedure TfrmNotes.LoadNotes;
2886  const
2887    INVALID_ID = -1;
2888    INFO_ID = 1;
2889  var
2890    tmpList: TStringList;
2891    ANode: TORTreeNode;
2892    x,xx,noteId: integer;   // Text Search CQ: HDS00002856
2893    Dest: TStrings;  // Text Search CQ: HDS00002856
2894    KeepFlag: Boolean;  // Text Search CQ: HDS00002856
2895    NoteCount, NoteMatches: integer;  // Text Search CQ: HDS00002856
2896  begin
2897    tmpList := TStringList.Create;
2898    try
2899      FDocList.Clear;
2900      uChanging := True;
2901      RedrawSuspend(memNote.Handle);
2902      RedrawSuspend(lvNotes.Handle);
2903      tvNotes.Items.BeginUpdate;
2904      lstNotes.Items.Clear;
2905      KillDocTreeObjects(tvNotes);
2906      tvNotes.Items.Clear;
2907      tvNotes.Items.EndUpdate;
2908      lvNotes.Items.Clear;
2909      memNote.Clear;
2910      memNote.Invalidate;
2911      lblTitle.Caption := '';
2912      lvNotes.Caption := '';
2913      with FCurrentContext do
2914        begin
2915          if Status <> IntToStr(NC_UNSIGNED) then
2916            begin
2917              ListNotesForTree(tmpList, NC_UNSIGNED, 0, 0, 0, 0, TreeAscending);
2918              if tmpList.Count > 0 then
2919                begin
2920                  CreateListItemsForDocumentTree(FDocList, tmpList, NC_UNSIGNED, GroupBy, TreeAscending, CT_NOTES);
2921                  UpdateTreeView(FDocList, tvNotes);
2922                end;
2923              tmpList.Clear;
2924              FDocList.Clear;
2925            end;
2926          if Status <> IntToStr(NC_UNCOSIGNED) then
2927            begin
2928              ListNotesForTree(tmpList, NC_UNCOSIGNED, 0, 0, 0, 0, TreeAscending);
2929              if tmpList.Count > 0 then
2930                begin
2931                  CreateListItemsForDocumentTree(FDocList, tmpList, NC_UNCOSIGNED, GroupBy, TreeAscending, CT_NOTES);
2932                  UpdateTreeView(FDocList, tvNotes);
2933                end;
2934              tmpList.Clear;
2935              FDocList.Clear;
2936            end;
2937          ListNotesForTree(tmpList, StrToIntDef(Status, 0), FMBeginDate, FMEndDate, Author, MaxDocs, TreeAscending);
2938          CreateListItemsForDocumentTree(FDocList, tmpList, StrToIntDef(Status, 0), GroupBy, TreeAscending, CT_NOTES);
2939  
2940          // Text Search CQ: HDS00002856 ---------------------------------------
2941          if FCurrentContext.SearchString<>''  then   // Text Search CQ: HDS00002856
2942            begin
2943              NoteMatches := 0;
2944              Dest:=TStringList.Create;
2945              NoteCount:=FDocList.Count-1;
2946              if FDocList.Count>0 then
2947                for x := FDocList.Count-1 downto 1 do begin;  // Don't do 0, because it's informational
2948                  KeepFlag:=False;
2949                  lblNotes.Caption:='Scanning '+IntToStr(NoteCount-x+1)+' of '+IntToStr(NoteCount)+', '+IntToStr(NoteMatches);
2950                  If NoteMatches=1 then lblNotes.Caption:=lblNotes.Caption+' match' else
2951                                        lblNotes.Caption:=lblNotes.Caption+' matches';
2952                  frmSearchStop.lblSearchStatus.Caption := lblNotes.Caption;
2953                  frmSearchStop.lblSearchStatus.Repaint;
2954                  lblNotes.Repaint;
2955                  // Free up some ticks so they can click the "Stop" button
2956                  application.processmessages;
2957                  application.processmessages;
2958                  application.processmessages;
2959                  If SearchTextStopFlag = False then begin
2960                    noteId := StrToIntDef(Piece(FDocList.Strings[x],'^',1),-1);
2961                    if (noteId = INVALID_ID) or (noteId = INFO_ID) then
2962                      Continue;
2963                    CallV('TIU GET RECORD TEXT', [Piece(FDocList.Strings[x],'^',1)]);
2964                    FastAssign(RPCBrokerV.Results, Dest);
2965                    If Dest.Count > 0 then
2966                       for xx := 0 to Dest.Count-1 do
2967                       begin
2968                        //Dest.Strings[xx] := StringReplace(Dest.Strings[xx],'#13',' ',[rfReplaceAll, rfIgnoreCase]);
2969                        if Pos(Uppercase(FCurrentContext.SearchString),Uppercase(Dest.Strings[xx]))>0 then
2970                          keepflag:=true;
2971                       end;
2972                    If KeepFlag=False then begin;
2973                      if FDocList.Count >= x then
2974                        FDocList.Delete(x);
2975                      if (tmpList.Count >= x) and (x > 0) then
2976                        tmpList.Delete(x-1);
2977                    end else
2978                      Inc(NoteMatches);
2979                  end;
2980                end;
2981              Dest.Free;
2982            end else
2983            //Reset the caption
2984            lblNotes.Caption := SetNoteTreeLabel(FCurrentContext);
2985            NoteTotal := sCallV('ORCNOTE GET TOTAL', [Patient.DFN]);
2986            lblNotes.Caption := lblNotes.Caption + ' (Total: ' + NoteTotal + ')';
2987          // Text Search CQ: HDS00002856 ---------------------------------------
2988  
2989          UpdateTreeView(FDocList, tvNotes);
2990        end;
2991      with tvNotes do
2992        begin
2993          uChanging := True;
2994          tvNotes.Items.BeginUpdate;
2995          RemoveParentsWithNoChildren(tvNotes, FCurrentContext);  // moved here in v15.9 (RV)
2996          if FLastNoteID <> '' then
2997            Selected := FindPieceNode(FLastNoteID, 1, U, nil);
2998          if Selected = nil then
2999            begin
3000              if (FCurrentContext.GroupBy <> '') or (FCurrentContext.Filtered) then
3001                begin
3002                  ANode := TORTreeNode(Items.GetFirstNode);
3003                  while ANode <> nil do
3004                    begin
3005                      ANode.Expand(False);
3006                      Selected := ANode;
3007                      ANode := TORTreeNode(ANode.GetNextSibling);
3008                    end;
3009                end
3010              else
3011                begin
3012                  ANode := tvNotes.FindPieceNode(FCurrentContext.Status, 1, U, nil);
3013                  if ANode <> nil then ANode.Expand(False);
3014                  ANode := tvNotes.FindPieceNode(IntToStr(NC_UNSIGNED), 1, U, nil);
3015                  if ANode = nil then
3016                    ANode := tvNotes.FindPieceNode(IntToStr(NC_UNCOSIGNED), 1, U, nil);
3017                  if ANode = nil then
3018                    ANode := tvNotes.FindPieceNode(FCurrentContext.Status, 1, U, nil);
3019                  if ANode <> nil then
3020                    begin
3021                      if ANode.getFirstChild <> nil then
3022                        Selected := ANode.getFirstChild
3023                      else
3024                        Selected := ANode;
3025                    end;
3026                end;
3027            end;
3028          memNote.Clear;
3029          with lvNotes do
3030            begin
3031              Selected := nil;
3032              if FCurrentContext.SortBy <> '' then
3033                ColumnToSort := Pos(FCurrentContext.SortBy, 'RDSAL') - 1;
3034              if not FCurrentContext.ShowSubject then
3035                begin
3036                  Columns[1].Width := 2 * (Width div 5);
3037                  Columns[2].Width := 0;
3038                end
3039              else
3040                begin
3041                  Columns[1].Width := Width div 5;
3042                  Columns[2].Width := Columns[1].Width;
3043                end;
3044            end;
3045          //RemoveParentsWithNoChildren(tvNotes, FCurrentContext);  // moved FROM here in v15.9 (RV)
3046          tvNotes.Items.EndUpdate;
3047          uChanging := False;
3048          SendMessage(tvNotes.Handle, WM_VSCROLL, SB_TOP, 0);
3049          if Selected <> nil then tvNotesChange(Self, Selected);
3050        end;
3051    finally
3052      RedrawActivate(memNote.Handle);
3053      RedrawActivate(lvNotes.Handle);
3054      tmpList.Free;
3055    end;
3056  end;