Procedure

TRemPrompt.DoMHTest

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Visibility

Protected

Owner

TRemPrompt

Declaration

procedure DoMHTest(Sender: TObject);

Calls Hierarchy


TRemPrompt.DoMHTest
 ├MHTestAuthorized
 ├TRemData.Narrative
 ├TReminderDialog.BeginTextChanged
 ├TRemDlgElement.IncludeMHTestInPN
 ├TRemPrompt.GetValue
 │ ├TRemDlgElement.Historical
 │ ├TPCEData.VisitDateTime
 │ │ └TPCEData.IsSecondaryVisit
 │ ├TRemPrompt.RemDataActive
 │ │ └TRemPrompt.CompareActiveDate
 │ └TRemPrompt.RemDataChoiceActive
 ├PerformMHTest
 │ └TfrmMHTest.CallMHDLL
 │   ├LoadMHDLL
 │   └UnloadMHDLL
 ├TimedOut
 ├GetMHResultText
 ├TRemPrompt.SetValue
 │ ├TRemPrompt.Forced
 │ ├TRemPrompt.PromptType
 │ │ └Code2PromptType
 │ ├FMToday
 │ │ └FMNow
 │ ├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
 │ │   │ │   │ └CheckforMHDll
 │ │   │ │   │   ├LoadMHDLL
 │ │   │ │   │   └UnloadMHDLL
 │ │   │ │   ├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
 │ │   │ │         └TEncounter.GetVisitCategory
 │ │   │ ├TRemDlgElement.Check4ChildrenSharedPrompts
 │ │   │ │ ├TRemDlgElement.ChildrenSharePrompts
 │ │   │ │ ├TRemDlgElement.GetData...
 │ │   │ │ └TRemPrompt.CanShare
 │ │   │ │   ├TRemPrompt.Forced
 │ │   │ │   ├TRemPrompt.Required
 │ │   │ │   │ └TRemPrompt.PromptType...
 │ │   │ │   ├TRemPrompt.PromptType...
 │ │   │ │   ├TRemPrompt.Add2PN
 │ │   │ │   │ ├TRemPrompt.Forced
 │ │   │ │   │ └TRemPrompt.PromptOK
 │ │   │ │   │   ├TRemPrompt.PromptType...
 │ │   │ │   │   ├TRemDlgElement.Historical
 │ │   │ │   │   ├TRemPrompt.RemDataActive...
 │ │   │ │   │   └TRemPrompt.CompareActiveDate
 │ │   │ │   └TRemPrompt.Caption
 │ │   │ │     └AssignFieldIDs
 │ │   │ │       └GetNewFieldID
 │ │   │ ├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.GetValue...
 │ └TRemPrompt.VitalUnitValue
 │   ├TRemPrompt.VitalType
 │   │ ├Code2VitalType
 │   │ └TRemData.InternalValue
 │   └TRemPrompt.GetValue...
 ├MentalHealthTestResults
 ├ExpandTIUObjects...
 └TReminderDialog.EndTextChanged

Called-By Hierarchy


                                                                                         TRemPrompt.DoMHTest
                                                                                                AddPrompts┘ 
                                                                                           UpdatePrompts┤   
                                                                          TRemDlgElement.BuildControls┘ │   
                                                                       TReminderDialog.BuildControls┤   │   
                                                                          TfrmRemDlg.BuildControls┘ │   │   
                                                                      TfrmRemDlg.ProcessReminder┤   │   │   
                                                                            ViewRemDlgFromForm┤ │   │   │   
                                                                                  ViewRemDlg┤ │ │   │   │   
                                                                        ViewReminderDialog┤ │ │ │   │   │   
                                                          TfrmDrawers.tvRemindersMouseUp┤ │ │ │ │   │   │   
                                                          TfrmDrawers.RemindersChanged┘ │ │ │ │ │   │   │   
                                                             TfrmDrawers.ShowDrawers┘   │ │ │ │ │   │   │   
                                                         TfrmDrawers.CreateDrawers┤     │ │ │ │ │   │   │   
                                                           TfrmDCSumm.FormCreate┤ │     │ │ │ │ │   │   │   
                                                         TfrmConsults.FormCreate┤ │     │ │ │ │ │   │   │   
                                                          TfrmSurgery.FormCreate┤ │     │ │ │ │ │   │   │   
                                                            TfrmNotes.FormCreate┘ │     │ │ │ │ │   │   │   
                                                        TfrmDrawers.DisplayDrawers┘     │ │ │ │ │   │   │   
                                                         TfrmConsults.DisplayPCE┤       │ │ │ │ │   │   │   
                                                 TfrmConsults.lstConsultsClick┤ │       │ │ │ │ │   │   │   
                                               TfrmConsults.tvConsultsChange┘ │ │       │ │ │ │ │   │   │   
                                TfrmConsults.mnuActDetachFromIDParentClick┤   │ │       │ │ │ │ │   │   │   
                                                  TfrmConsults.NotifyOrder┤   │ │       │ │ │ │ │   │   │   
                                                    TfrmFrame.UMNewOrder┘ │   │ │       │ │ │ │ │   │   │   
                                    TfrmConsults.mnuActDisplayDetailsClick┤   │ │       │ │ │ │ │   │   │   
                               TfrmConsults.mnuActIdentifyAddlSignersClick┤   │ │       │ │ │ │ │   │   │   
                                   TfrmConsults.popNoteMemoAddlSignClick┘ │   │ │       │ │ │ │ │   │   │   
                                         TfrmConsults.ProcessNotifications┤   │ │       │ │ │ │ │   │   │   
                                                TfrmConsults.DisplayPage┘ │   │ │       │ │ │ │ │   │   │   
                                                 TfrmConsults.LoadConsults┤   │ │       │ │ │ │ │   │   │   
                                                 TfrmConsults.UpdateList┤ │   │ │       │ │ │ │ │   │   │   
                                             TfrmConsults.mnuViewClick┤ │ │   │ │       │ │ │ │ │   │   │   
                                         TfrmConsults.SetViewContext┘ │ │ │   │ │       │ │ │ │ │   │   │   
                                          TfrmConsults.DisplayPage┤   │ │ │   │ │       │ │ │ │ │   │   │   
                          TfrmConsults.mnuViewReturntoDefaultClick┘   │ │ │   │ │       │ │ │ │ │   │   │   
                                    TfrmConsults.mnuActNoteDeleteClick┤ │ │   │ │       │ │ │ │ │   │   │   
                                      TfrmConsults.SaveEditedConsult┘ │ │ │   │ │       │ │ │ │ │   │   │   
                                      TfrmConsults.SaveCurrentNote┘   │ │ │   │ │       │ │ │ │ │   │   │   
                                 TfrmConsults.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┘   │     │ │ │   │ │       │ │ │ │ │   │   │   
                                  TfrmConsults.SetViewContext...┤     │ │ │   │ │       │ │ │ │ │   │   │   
                                    TfrmConsults.mnuViewClick...┤     │ │ │   │ │       │ │ │ │ │   │   │   
                      TfrmConsults.mnuActDetachFromIDParentClick┤     │ │ │   │ │       │ │ │ │ │   │   │   
                           TfrmConsults.mnuActNoteDeleteClick...┤     │ │ │   │ │       │ │ │ │ │   │   │   
                           TfrmConsults.mnuActSignatureSaveClick┤     │ │ │   │ │       │ │ │ │ │   │   │   
                           TfrmConsults.mnuActSignatureSignClick┤     │ │ │   │ │       │ │ │ │ │   │   │   
                                       TfrmConsults.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┘               │     │ │ │   │ │       │ │ │ │ │   │   │   
                                 TfrmConsults.mnuActConsultClick┤     │ │ │   │ │       │ │ │ │ │   │   │   
                                       TfrmConsults.RequestPrint┤     │ │ │   │ │       │ │ │ │ │   │   │   
                            TfrmConsults.mnuActPrintSF513Click┤ │     │ │ │   │ │       │ │ │ │ │   │   │   
                                   TfrmFrame.mnuFilePrintClick┘ │     │ │ │   │ │       │ │ │ │ │   │   │   
                          TfrmConsults.mnuActDisplayResultsClick┤     │ │ │   │ │       │ │ │ │ │   │   │   
                          TfrmConsults.ProcessNotifications...┘ │     │ │ │   │ │       │ │ │ │ │   │   │   
                            TfrmConsults.mnuActDisplaySF513Click┤     │ │ │   │ │       │ │ │ │ │   │   │   
                              TfrmConsults.mnuActPrintSF513Click┤     │ │ │   │ │       │ │ │ │ │   │   │   
                          TfrmConsults.mnuActDisplayDetailsClick┤     │ │ │   │ │       │ │ │ │ │   │   │   
                                          TfrmConsults.FormClose┤     │ │ │   │ │       │ │ │ │ │   │   │   
                  TfrmConsults.mnuActIdentifyAddlSignersClick...┤     │ │ │   │ │       │ │ │ │ │   │   │   
                            TfrmConsults.ProcessNotifications...┤     │ │ │   │ │       │ │ │ │ │   │   │   
                               TfrmConsults.mnuActNotePrintClick┤     │ │ │   │ │       │ │ │ │ │   │   │   
                            TfrmConsults.popNoteMemoPrintClick┘ │     │ │ │   │ │       │ │ │ │ │   │   │   
                                       TfrmConsults.StartNewEdit┤     │ │ │   │ │       │ │ │ │ │   │   │   
                              TfrmConsults.mnuActCompleteClick┤ │     │ │ │   │ │       │ │ │ │ │   │   │   
                            TfrmConsults.mnuActAddIDEntryClick┤ │     │ │ │   │ │       │ │ │ │ │   │   │   
                          TfrmConsults.mnuActMakeAddendumClick┤ │     │ │ │   │ │       │ │ │ │ │   │   │   
                              TfrmConsults.mnuActNoteEditClick┘ │     │ │ │   │ │       │ │ │ │ │   │   │   
                            TfrmConsults.mnuActCompleteClick┘   │     │ │ │   │ │       │ │ │ │ │   │   │   
                                TfrmConsults.tvCsltNotesDragDrop┤     │ │ │   │ │       │ │ │ │ │   │   │   
                               TfrmConsults.tvCsltNotesStartDrag┤     │ │ │   │ │       │ │ │ │ │   │   │   
                        TfrmConsults.mnuActAttachtoIDParentClick┤     │ │ │   │ │       │ │ │ │ │   │   │   
                                 TfrmConsults.LstConsultsToPrint┘     │ │ │   │ │       │ │ │ │ │   │   │   
                      TfrmFrame.mnuFilePrintSelectedItemsClick┘       │ │ │   │ │       │ │ │ │ │   │   │   
                                 TfrmConsults.mnuActSignatureSaveClick┤ │ │   │ │       │ │ │ │ │   │   │   
                                 TfrmConsults.mnuActSignatureSignClick┤ │ │   │ │       │ │ │ │ │   │   │   
                                          TfrmConsults.SaveSignItem...┤ │ │   │ │       │ │ │ │ │   │   │   
                                       TfrmConsults.mnuActConsultClick┤ │ │   │ │       │ │ │ │ │   │   │   
                                           TfrmConsults.NotifyOrder...┤ │ │   │ │       │ │ │ │ │   │   │   
                                               TfrmConsults.UMNewOrder┤ │ │   │ │       │ │ │ │ │   │   │   
                                        TfrmConsults.ProcessMedResults┘ │ │   │ │       │ │ │ │ │   │   │   
                                   TfrmConsults.mnuActAttachMedClick┤   │ │   │ │       │ │ │ │ │   │   │   
                                   TfrmConsults.mnuActRemoveMedClick┘   │ │   │ │       │ │ │ │ │   │   │   
                                    TfrmConsults.mnuActEditResubmitClick┤ │   │ │       │ │ │ │ │   │   │   
                                     TfrmConsults.cmdEditResubmitClick┘ │ │   │ │       │ │ │ │ │   │   │   
                                      TfrmConsults.LstConsultsToPrint...┘ │   │ │       │ │ │ │ │   │   │   
                                              TfrmConsults.tvConsultsClick┤   │ │       │ │ │ │ │   │   │   
                                            TfrmConsults.mnuViewClick...┤ │   │ │       │ │ │ │ │   │   │   
                              TfrmConsults.mnuActDetachFromIDParentClick┤ │   │ │       │ │ │ │ │   │   │   
                                   TfrmConsults.mnuActNoteDeleteClick...┤ │   │ │       │ │ │ │ │   │   │   
                                   TfrmConsults.mnuActSignatureSaveClick┤ │   │ │       │ │ │ │ │   │   │   
                                   TfrmConsults.mnuActSignatureSignClick┤ │   │ │       │ │ │ │ │   │   │   
                                            TfrmConsults.SaveSignItem...┤ │   │ │       │ │ │ │ │   │   │   
                                         TfrmConsults.mnuActConsultClick┤ │   │ │       │ │ │ │ │   │   │   
                                 TfrmConsults.mnuActEditResubmitClick...┤ │   │ │       │ │ │ │ │   │   │   
                                            TfrmConsults.StartNewEdit...┤ │   │ │       │ │ │ │ │   │   │   
                                       TfrmConsults.ProcessMedResults...┤ │   │ │       │ │ │ │ │   │   │   
                                TfrmConsults.mnuActAttachtoIDParentClick┘ │   │ │       │ │ │ │ │   │   │   
                                              TfrmConsults.DoAttachIDChild┤   │ │       │ │ │ │ │   │   │   
                                        TfrmConsults.tvCsltNotesDragDrop┤ │   │ │       │ │ │ │ │   │   │   
                                TfrmConsults.mnuActAttachtoIDParentClick┘ │   │ │       │ │ │ │ │   │   │   
                                              TfrmConsults.tvConsultsKeyUp┘   │ │       │ │ │ │ │   │   │   
                                                      TfrmConsults.cmdPCEClick┤ │       │ │ │ │ │   │   │   
                                                    TfrmConsults.lstNotesClick┤ │       │ │ │ │ │   │   │   
                                                TfrmConsults.CompleteConsult┤ │ │       │ │ │ │ │   │   │   
                                          TfrmConsults.mnuActCompleteClick┤ │ │ │       │ │ │ │ │   │   │   
                                        TfrmConsults.mnuActAddIDEntryClick┘ │ │ │       │ │ │ │ │   │   │   
                                                 TfrmConsults.InsertAddendum┤ │ │       │ │ │ │ │   │   │   
                                      TfrmConsults.mnuActMakeAddendumClick┘ │ │ │       │ │ │ │ │   │   │   
                                                    TfrmConsults.LoadForEdit┤ │ │       │ │ │ │ │   │   │   
                                       TfrmConsults.mnuActNoteEditClick...┘ │ │ │       │ │ │ │ │   │   │   
                                                                 SaveOrAbort┤ │ │       │ │ │ │ │   │   │   
                                         TfrmConsults.SaveEditedConsult...┘ │ │ │       │ │ │ │ │   │   │   
                                           TfrmConsults.SaveEditedConsult...┤ │ │       │ │ │ │ │   │   │   
                                       TfrmConsults.mnuActSignatureSignClick┤ │ │       │ │ │ │ │   │   │   
                                                TfrmConsults.SaveSignItem...┤ │ │       │ │ │ │ │   │   │   
                              TfrmConsults.mnuActIdentifyAddlSignersClick...┤ │ │       │ │ │ │ │   │   │   
                                              TfrmConsults.tvCsltNotesChange┘ │ │       │ │ │ │ │   │   │   
                                         TfrmConsults.SaveEditedConsult...┤   │ │       │ │ │ │ │   │   │   
                                     TfrmConsults.mnuActSignatureSignClick┤   │ │       │ │ │ │ │   │   │   
                                      TfrmConsults.ProcessNotifications...┘   │ │       │ │ │ │ │   │   │   
                                                    TfrmConsults.AssignRemForm┘ │       │ │ │ │ │   │   │   
                                                       ViewRemDlgFromForm...┘   │       │ │ │ │ │   │   │   
                                                          TfrmSurgery.DisplayPCE┤       │ │ │ │ │   │   │   
                                                       TfrmSurgery.cmdPCEClick┤ │       │ │ │ │ │   │   │   
                                                   TfrmSurgery.tvSurgeryChange┤ │       │ │ │ │ │   │   │   
                                                  TfrmSurgery.SaveEditedNote┤ │ │       │ │ │ │ │   │   │   
                                               TfrmSurgery.SaveCurrentNote┘ │ │ │       │ │ │ │ │   │   │   
                                          TfrmSurgery.AllowContextChange┤   │ │ │       │ │ │ │ │   │   │   
                                    TfrmFrame.AllowContextChangeAll...┘ │   │ │ │       │ │ │ │ │   │   │   
                                              TfrmSurgery.SetViewContext┤   │ │ │       │ │ │ │ │   │   │   
                                               TfrmSurgery.DisplayPage┤ │   │ │ │       │ │ │ │ │   │   │   
                               TfrmSurgery.mnuViewReturntoDefaultClick┘ │   │ │ │       │ │ │ │ │   │   │   
                                                TfrmSurgery.RequestPrint┤   │ │ │       │ │ │ │ │   │   │   
                                           TfrmFrame.mnuFilePrintClick┘ │   │ │ │       │ │ │ │ │   │   │   
                                                TfrmSurgery.mnuViewClick┤   │ │ │       │ │ │ │ │   │   │   
                                         TfrmSurgery.SetViewContext...┘ │   │ │ │       │ │ │ │ │   │   │   
                                                TfrmSurgery.StartNewEdit┤   │ │ │       │ │ │ │ │   │   │   
                                            TfrmSurgery.mnuActNewClick┤ │   │ │ │       │ │ │ │ │   │   │   
                                         TfrmSurgery.cmdNewNoteClick┘ │ │   │ │ │       │ │ │ │ │   │   │   
                                         TfrmSurgery.mnuActAddendClick┤ │   │ │ │       │ │ │ │ │   │   │   
                                           TfrmSurgery.mnuActEditClick┘ │   │ │ │       │ │ │ │ │   │   │   
                                           TfrmSurgery.mnuActDeleteClick┤   │ │ │       │ │ │ │ │   │   │   
                                         TfrmSurgery.SaveEditedNote...┘ │   │ │ │       │ │ │ │ │   │   │   
                                             TfrmSurgery.mnuActSaveClick┤   │ │ │       │ │ │ │ │   │   │   
                                             TfrmSurgery.mnuActSignClick┤   │ │ │       │ │ │ │ │   │   │   
                                                TfrmSurgery.SaveSignItem┤   │ │ │       │ │ │ │ │   │   │   
                                              TfrmReview.cmdOKClick...┘ │   │ │ │       │ │ │ │ │   │   │   
                                                   TfrmSurgery.FormClose┤   │ │ │       │ │ │ │ │   │   │   
                              TfrmSurgery.mnuActIdentifyAddlSignersClick┤   │ │ │       │ │ │ │ │   │   │   
                                  TfrmSurgery.popNoteMemoAddlSignClick┘ │   │ │ │       │ │ │ │ │   │   │   
                                        TfrmSurgery.ProcessNotifications┘   │ │ │       │ │ │ │ │   │   │   
                                               TfrmSurgery.DisplayPage┘     │ │ │       │ │ │ │ │   │   │   
                                                 TfrmSurgery.mnuActSignClick┤ │ │       │ │ │ │ │   │   │   
                                              TfrmSurgery.mnuViewDetailClick┤ │ │       │ │ │ │ │   │   │   
                                         TfrmSurgery.ProcessNotifications...┤ │ │       │ │ │ │ │   │   │   
                                                TfrmSurgery.LoadSurgeryCases┘ │ │       │ │ │ │ │   │   │   
                                               TfrmSurgery.mnuViewClick...┤   │ │       │ │ │ │ │   │   │   
                                               TfrmSurgery.StartNewEdit...┤   │ │       │ │ │ │ │   │   │   
                                          TfrmSurgery.mnuActDeleteClick...┤   │ │       │ │ │ │ │   │   │   
                                               TfrmSurgery.mnuActSaveClick┤   │ │       │ │ │ │ │   │   │   
                                               TfrmSurgery.mnuActSignClick┤   │ │       │ │ │ │ │   │   │   
                                               TfrmSurgery.SaveSignItem...┤   │ │       │ │ │ │ │   │   │   
                             TfrmSurgery.mnuActIdentifyAddlSignersClick...┘   │ │       │ │ │ │ │   │   │   
                                                     TfrmSurgery.lstNotesClick┘ │       │ │ │ │ │   │   │   
                                                   TfrmSurgery.InsertNewNote┤   │       │ │ │ │ │   │   │   
                                             TfrmSurgery.mnuActNewClick...┘ │   │       │ │ │ │ │   │   │   
                                                  TfrmSurgery.InsertAddendum┤   │       │ │ │ │ │   │   │   
                                             TfrmSurgery.mnuActAddendClick┘ │   │       │ │ │ │ │   │   │   
                                                     TfrmSurgery.LoadForEdit┤   │       │ │ │ │ │   │   │   
                                               TfrmSurgery.mnuActEditClick┘ │   │       │ │ │ │ │   │   │   
                                               TfrmSurgery.SaveEditedNote...┤   │       │ │ │ │ │   │   │   
                                                 TfrmSurgery.mnuActSignClick┤   │       │ │ │ │ │   │   │   
                                                 TfrmSurgery.SaveSignItem...┤   │       │ │ │ │ │   │   │   
                               TfrmSurgery.mnuActIdentifyAddlSignersClick...┤   │       │ │ │ │ │   │   │   
                                              TfrmSurgery.tvSurgeryChange...┘   │       │ │ │ │ │   │   │   
                                                            TfrmNotes.DisplayPCE┘       │ │ │ │ │   │   │   
                                                       TfrmNotes.lstNotesClick┤         │ │ │ │ │   │   │   
                                                     TfrmNotes.InsertNewNote┤ │         │ │ │ │ │   │   │   
                                                  TfrmNotes.mnuActNewClick┤ │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.cmdNewNoteClick┘ │ │ │         │ │ │ │ │   │   │   
                                           TfrmNotes.mnuActAddIDEntryClick┘ │ │         │ │ │ │ │   │   │   
                                                    TfrmNotes.InsertAddendum┤ │         │ │ │ │ │   │   │   
                                               TfrmNotes.mnuActAddendClick┘ │ │         │ │ │ │ │   │   │   
                                                       TfrmNotes.LoadForEdit┤ │         │ │ │ │ │   │   │   
                                                 TfrmNotes.mnuActEditClick┘ │ │         │ │ │ │ │   │   │   
                                                    TfrmNotes.SaveEditedNote┤ │         │ │ │ │ │   │   │   
                                                 TfrmNotes.SaveCurrentNote┘ │ │         │ │ │ │ │   │   │   
                                            TfrmNotes.AllowContextChange┤   │ │         │ │ │ │ │   │   │   
                                    TfrmFrame.AllowContextChangeAll...┘ │   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.LstNotesToPrint┤   │ │         │ │ │ │ │   │   │   
                              TfrmFrame.mnuFilePrintSelectedItemsClick┘ │   │ │         │ │ │ │ │   │   │   
                                                  TfrmNotes.RequestPrint┤   │ │         │ │ │ │ │   │   │   
                                           TfrmFrame.mnuFilePrintClick┘ │   │ │         │ │ │ │ │   │   │   
                                                  TfrmNotes.mnuViewClick┤   │ │         │ │ │ │ │   │   │   
                                              TfrmNotes.SetViewContext┤ │   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.DisplayPage┤ │ │   │ │         │ │ │ │ │   │   │   
                               TfrmNotes.mnuViewReturntoDefaultClick┘ │ │   │ │         │ │ │ │ │   │   │   
                                   TfrmNotes.mnuViewSaveAsDefaultClick┘ │   │ │         │ │ │ │ │   │   │   
                                                  TfrmNotes.StartNewEdit┤   │ │         │ │ │ │ │   │   │   
                                           TfrmNotes.mnuActNewClick...┤ │   │ │         │ │ │ │ │   │   │   
                                       TfrmNotes.mnuActAddIDEntryClick┤ │   │ │         │ │ │ │ │   │   │   
                                           TfrmNotes.mnuActAddendClick┤ │   │ │         │ │ │ │ │   │   │   
                                             TfrmNotes.mnuActEditClick┘ │   │ │         │ │ │ │ │   │   │   
                                 TfrmNotes.mnuActDetachFromIDParentClick┤   │ │         │ │ │ │ │   │   │   
                                             TfrmNotes.mnuActDeleteClick┤   │ │         │ │ │ │ │   │   │   
                                           TfrmNotes.SaveEditedNote...┘ │   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.mnuActSaveClick┤   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.mnuActSignClick┤   │ │         │ │ │ │ │   │   │   
                                                  TfrmNotes.SaveSignItem┤   │ │         │ │ │ │ │   │   │   
                                              TfrmReview.cmdOKClick...┘ │   │ │         │ │ │ │ │   │   │   
                                                     TfrmNotes.FormClose┤   │ │         │ │ │ │ │   │   │   
                                TfrmNotes.mnuActIdentifyAddlSignersClick┤   │ │         │ │ │ │ │   │   │   
                                    TfrmNotes.popNoteMemoAddlSignClick┘ │   │ │         │ │ │ │ │   │   │   
                                          TfrmNotes.ProcessNotifications┤   │ │         │ │ │ │ │   │   │   
                                                 TfrmNotes.DisplayPage┘ │   │ │         │ │ │ │ │   │   │   
                                             TfrmNotes.SetViewContext...┤   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.tvNotesDragDrop┤   │ │         │ │ │ │ │   │   │   
                                   TfrmNotes.mnuActAttachtoIDParentClick┘   │ │         │ │ │ │ │   │   │   
                                                   TfrmNotes.mnuActSignClick┤ │         │ │ │ │ │   │   │   
                                                   TfrmNotes.SaveSignItem...┤ │         │ │ │ │ │   │   │   
                                                TfrmNotes.mnuViewDetailClick┤ │         │ │ │ │ │   │   │   
                                 TfrmNotes.mnuActIdentifyAddlSignersClick...┤ │         │ │ │ │ │   │   │   
                                                     TfrmNotes.tvNotesChange┤ │         │ │ │ │ │   │   │   
                                               TfrmNotes.SaveEditedNote...┤ │ │         │ │ │ │ │   │   │   
                                                 TfrmNotes.mnuActSignClick┤ │ │         │ │ │ │ │   │   │   
                                         TfrmNotes.ProcessNotifications...┤ │ │         │ │ │ │ │   │   │   
                                                       TfrmNotes.LoadNotes┘ │ │         │ │ │ │ │   │   │   
                                            TfrmNotes.LstNotesToPrint...┤   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.mnuViewClick...┤   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.StartNewEdit...┤   │ │         │ │ │ │ │   │   │   
                                 TfrmNotes.mnuActDetachFromIDParentClick┤   │ │         │ │ │ │ │   │   │   
                                          TfrmNotes.mnuActDeleteClick...┤   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.mnuActSaveClick┤   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.mnuActSignClick┤   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.SaveSignItem...┤   │ │         │ │ │ │ │   │   │   
                             TfrmNotes.mnuActIdentifyAddlSignersClick...┤   │ │         │ │ │ │ │   │   │   
                                   TfrmNotes.mnuActAttachtoIDParentClick┤   │ │         │ │ │ │ │   │   │   
                                               TfrmNotes.DoAttachIDChild┘   │ │         │ │ │ │ │   │   │   
                                             TfrmNotes.tvNotesDragDrop┤     │ │         │ │ │ │ │   │   │   
                                 TfrmNotes.mnuActAttachtoIDParentClick┘     │ │         │ │ │ │ │   │   │   
                                                 TfrmNotes.lvNotesSelectItem┘ │         │ │ │ │ │   │   │   
                                                TfrmNotes.tvNotesChange...┘   │         │ │ │ │ │   │   │   
                                                        UpdateEncounterInfo...┤         │ │ │ │ │   │   │   
                                                       TfrmNotes.AssignRemForm┘         │ │ │ │ │   │   │   
                                                       ViewRemDlgFromForm...┘           │ │ │ │ │   │   │   
                                                          TfrmDrawers.tvRemindersKeyDown┘ │ │ │ │   │   │   
                                                                ViewReminderDialogTemplate┘ │ │ │   │   │   
                                                                  ViewRemDlgTemplateFromForm┘ │ │   │   │   
                                                           TTemplate.ExecuteReminderDialog┘   │ │   │   │   
                                                            ExecuteTemplateOrBoilerPlate┤     │ │   │   │   
                                                                  TfrmDrawers.InsertText┘     │ │   │   │   
                                                       TfrmDrawers.tvTemplatesDblClick┤       │ │   │   │   
                                                        TfrmDrawers.tvTemplatesKeyDown┤       │ │   │   │   
                                                            TfrmDrawers.NewRECDragDrop┤       │ │   │   │   
                                                      TfrmDrawers.SetRichEditControl┘ │       │ │   │   │   
                                                             TfrmDCSumm.FormCreate┤   │       │ │   │   │   
                                                           TfrmConsults.FormCreate┤   │       │ │   │   │   
                                                            TfrmSurgery.FormCreate┤   │       │ │   │   │   
                                                              TfrmNotes.FormCreate┘   │       │ │   │   │   
                                                    TfrmDrawers.mnuInsertTemplateClick┘       │ │   │   │   
                                              TfrmDCSumm.popSummMemoInsTemplateClick┤         │ │   │   │   
                                            TfrmConsults.popNoteMemoInsTemplateClick┤         │ │   │   │   
                                             TfrmSurgery.popNoteMemoInsTemplateClick┤         │ │   │   │   
                                               TfrmNotes.popNoteMemoInsTemplateClick┘         │ │   │   │   
                                                                      TfrmRemDlg.btnClearClick┤ │   │   │   
                                                         TfrmRemDlg.ProcessReminderFromNodeStr┘ │   │   │   
                                                                     TfrmRemDlg.btnNextClick┤   │   │   │   
                                                                     TfrmRemDlg.btnBackClick┘   │   │   │   
                                                                          TfrmRemDlg.UMResyncRem┤   │   │   
                                                                      TfrmRemDlg.ProcessTemplate┤   │   │   
                                                                         ViewRemDlgFromForm...┘ │   │   │   
                                                                          TfrmRemDlg.SetFontSize┘   │   │   
                                                                         ViewRemDlgFromForm...┤     │   │   
                                                                       TfrmFrame.ChangeFont...┘     │   │   
                                                                                           ..(rec)..┘   │   
                                                                         TRemDlgElement.BuildControls...┘   

Calls

Name Declaration Comments
TReminderDialog.BeginTextChanged procedure BeginTextChanged; -
TReminderDialog.EndTextChanged procedure EndTextChanged(Sender: TObject); -
ExpandTIUObjects procedure ExpandTIUObjects(var Txt: string; msg: string = ''); -
GetMHResultText procedure GetMHResultText(var AText: string; ResultsGroups, Scores: TStringList); -
TRemPrompt.GetValue function GetValue: string; -
TRemDlgElement.IncludeMHTestInPN function IncludeMHTestInPN: boolean; -
MentalHealthTestResults procedure MentalHealthTestResults(var AText: string; const DlgIEN: string; const TestName: string; const AProvider: Int64; const Answers: string); -
MHTestAuthorized function MHTestAuthorized(Test: string): boolean; -
TRemData.Narrative function Narrative: string; -
PerformMHTest function PerformMHTest(InitialAnswers, TestName: string; QText: TStringList; Required: boolean): string; -
TRemPrompt.SetValue procedure SetValue(Value: string); -
TimedOut function TimedOut: boolean; -

Called-By

Name Declaration Comments
AddPrompts procedure AddPrompts(Shared: boolean; AParent: TWinControl; PWidth: integer; var Y: integer); -


Source

6816  procedure TRemPrompt.DoMHTest(Sender: TObject);
6817  var
6818    TmpSL, tmpScores, tmpResults: TStringList;
6819    i, TestComp: integer;
6820    Before, After, Score: string;
6821    MHRequired: boolean;
6822  
6823  begin
6824    TestComp := 0;
6825    try
6826    if (Sender is TCPRSDialogButton) then
6827      (Sender as TCPRSDialogButton).Enabled := false;
6828    if FParent.FReminder.MHTestArray = nil then FParent.FReminder.MHTestArray := TORStringList.Create;
6829    if(MHTestAuthorized(FData.Narrative)) then
6830    begin
6831      FParent.FReminder.BeginTextChanged;
6832      try
6833        if(FParent.IncludeMHTestInPN) then
6834          TmpSL := TStringList.Create
6835        else
6836          TmpSL := nil;
6837        if Piece(self.FData.FRec3,U,13) = '1' then MHRequired := True
6838        else MHRequired := false;
6839        Before := GetValue;
6840        After := PerformMHTest(Before, FData.Narrative, TmpSL, MHRequired);
6841        if uInit.TimedOut then After := '';
6842        if Piece(After, U, 1) = 'New MH dll' then
6843          begin
6844            if Piece(After,U,2)='COMPLETE' then
6845            begin
6846              FParent.FReminder.MHTestArray.Add(FData.Narrative + U + FParent.FReminder.IEN);
6847              self.FMHTestComplete := 1;
6848              Score := Piece(After,U,3);
6849              if FParent.ResultDlgID <> '' then
6850                begin
6851                  tmpScores := TStringList.Create;
6852                  tmpResults := TStringList.Create;
6853                  PiecestoList(copy(score,2,Length(score)),'*',tmpScores);
6854                  PiecestoList(FParent.ResultDlgID,'~',tmpResults);
6855                  GetMHResultText(FMiscText, tmpResults, tmpScores);
6856                  if tmpScores <> nil then tmpScores.Free;
6857                  if tmpResults <> nil then tmpResults.Free;
6858                end;
6859              if (FMiscText <> '') then FMiscText := FMiscText + '~<br>';
6860              if tmpSL <> nil then
6861                begin
6862                  for i := 0 to TmpSL.Count-1 do
6863                    begin
6864                      if(i > 0) then FMiscText := FMiscText + CRCode;
6865                      FMiscText := FMiscText + TmpSL[i];
6866                    end;
6867                end;
6868            //end;
6869              //ExpandTIUObjects(FMiscText);
6870            end
6871            else if Piece(After,U,2)='INCOMPLETE' then
6872              begin
6873                 FParent.FReminder.MHTestArray.Add(FData.Narrative + U + FParent.FReminder.IEN);
6874                 self.FMHTestComplete := 2;
6875                 FMiscText := '';
6876                 After := 'X';
6877              end
6878            else if Piece(After,U,2)='CANCELLED' then
6879              begin
6880                 self.FMHTestComplete := 0;
6881                 FMiscText := '';
6882                 After := '';
6883              end;
6884            SetValue(After);
6885            exit;
6886          end;
6887        if pos(U,After)>0 then
6888          begin
6889            TestComp := StrtoInt(Piece(After,U,2));
6890            self.FMHTestComplete := TestComp;
6891            After := Piece(After,U,1);
6892          end;
6893        if(Before <> After) and (not uInit.TimedOut) then
6894        begin
6895          if(After = '') or (FParent.ResultDlgID = '') then
6896            FMiscText := ''
6897          else
6898          if TestComp > 0 then
6899          begin
6900            MentalHealthTestResults(FMiscText, FParent.ResultDlgID, FData.Narrative,
6901                                    FParent.FReminder.FPCEDataObj.Providers.PCEProvider, After);
6902            if(assigned(TmpSL) and (TmpSL.Count > 0)) then
6903            begin
6904              if(FMiscText <> '') then
6905                FMiscText := FMiscText + CRCode + CRCode;
6906              for i := 0 to TmpSL.Count-1 do
6907              begin
6908                if(i > 0) then
6909                  FMiscText := FMiscText + CRCode + CRCode;
6910                FMiscText := FMiscText + TmpSL[i];
6911              end;
6912            end;
6913            ExpandTIUObjects(FMiscText);
6914          end;
6915          SetValue(After);
6916        end;
6917      finally
6918        if not uInit.TimedOut then
6919           FParent.FReminder.EndTextChanged(Sender);
6920      end;
6921      if not uInit.TimedOut then
6922           if(FParent.ElemType = etDisplayOnly) and (not assigned(FParent.FParent)) then
6923              RemindersInProcess.Notifier.Notify;
6924            end
6925      else
6926                  InfoBox('Not Authorized to score the ' + FData.Narrative + ' test.',
6927                     'Insufficient Authorization', MB_OK + MB_ICONERROR);
6928    finally
6929      if (Sender is TCPRSDialogButton) then
6930        begin
6931          (Sender as TCPRSDialogButton).Enabled := true;
6932          (Sender as TCPRSDialogButton).SetFocus;
6933        end;
6934  
6935    end;
6936  end;