Procedure

TRemPrompt.PromptChange

Module

uReminders

Last Modified

10/8/2014 2:49:30 PM

Comments

Printoption: TORCheckBox;

Visibility

Protected

Owner

TRemPrompt

Declaration

procedure PromptChange(Sender: TObject);

Calls Hierarchy


TRemPrompt.PromptChange
 ├TReminderDialog.BeginTextChanged
 ├TRemPrompt.GetValue
 │ ├TRemDlgElement.Historical
 │ ├TPCEData.VisitDateTime
 │ │ └TPCEData.IsSecondaryVisit
 │ ├TRemPrompt.RemDataActive
 │ │ └TRemPrompt.CompareActiveDate
 │ └TRemPrompt.RemDataChoiceActive
 ├TRemPrompt.PromptType
 │ └Code2PromptType
 ├FMToday
 │ └FMNow
 ├TRemPrompt.Caption
 │ └AssignFieldIDs
 │   └GetNewFieldID
 ├SelectDevice
 │ ├TfrmBase508Form.Create
 │ │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ ├UnfocusableControlEnter
 │ │ └AdjustControls
 │ │   ├TfrmBase508Form.ModifyUnfocusableControl
 │ │   └..(rec)..
 │ └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
 │ │   │ │         └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...
 │ │   │ ├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...
 ├TReminderDialog.EndNeedRedraw
 └TReminderDialog.EndTextChanged

Called-By Hierarchy


                                                                                     TRemPrompt.PromptChange
                                                                                                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.BeginNeedRedraw procedure BeginNeedRedraw; -
TReminderDialog.BeginTextChanged procedure BeginTextChanged; -
TRemPrompt.Caption function Caption: string; -
TReminderDialog.EndNeedRedraw procedure EndNeedRedraw(Sender: TObject); -
TReminderDialog.EndTextChanged procedure EndTextChanged(Sender: TObject); -
FMNow function FMNow: TFMDateTime; -
FMToday function FMToday: TFMDateTime; -
TRemPrompt.GetValue function GetValue: string; -
MHDLLFound function MHDLLFound: boolean; -
TRemPrompt.PromptType function PromptType: TRemPromptType; -
SelectDevice function SelectDevice(Sender: TObject; ALocation: integer; AllowWindowsPrinter: boolean; ACaption: String): string ; -
TRemPrompt.SetValue procedure SetValue(Value: string); -

Called-By

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


Source

5586  procedure TRemPrompt.PromptChange(Sender: TObject);
5587  var
5588    cbo: TORComboBox;
5589    pt: TRemPromptType;
5590    TmpValue, OrgValue: string;
5591    idx, i: integer;
5592    NeedRedraw: boolean;
5593    dte: TFMDateTime;
5594    whCKB: TWHCheckBox;
5595    //printoption: TORCheckBox;
5596    WHValue, WHValue1: String;
5597  begin
5598    FParent.FReminder.BeginTextChanged;
5599    try
5600      FFromControl := TRUE;
5601      try
5602        TmpValue := GetValue;
5603        OrgValue := TmpValue;
5604        pt := PromptType;
5605        NeedRedraw := FALSE;
5606        case pt of
5607          ptComment, ptQuantity:
5608            TmpValue := (Sender as TEdit).Text;
5609  
5610          ptVisitDate:
5611            begin
5612              dte := (Sender as TORDateCombo).FMDate;
5613              while (dte > 2000000) and (dte > FMToday) do
5614              begin
5615                dte := dte - 10000;
5616                NeedRedraw := TRUE;
5617              end;
5618              TmpValue := FloatToStr(dte);
5619              if(TmpValue = '1000000') then
5620                TmpValue := '0';
5621            end;
5622  
5623          ptPrimaryDiag, ptAdd2PL, ptContraindicated:
5624            begin
5625              TmpValue := BOOLCHAR[(Sender as TORCheckBox).Checked];
5626              NeedRedraw := (pt = ptPrimaryDiag);
5627            end;
5628  
5629          ptVisitLocation:
5630            begin
5631              cbo := (Sender as TORComboBox);
5632              if(cbo.ItemIEN < 0) then
5633                NeedRedraw := (not cbo.DroppedDown)
5634              else
5635              begin
5636                if(cbo.ItemIndex <= 0) then
5637                  cbo.Items[0] := '0' + U + cbo.text;
5638                TmpValue := cbo.ItemID;
5639                if(StrToIntDef(TmpValue,0) = 0) then
5640                  TmpValue := cbo.Text;
5641              end;
5642            end;
5643  
5644          ptWHPapResult:
5645            begin
5646              if (Sender is TWHCheckBox) then
5647                begin
5648                  whCKB := (Sender as TWHCheckBox);
5649                  if whCKB.Checked = true then
5650                     begin
5651                     if whCKB.Caption ='NEM (No Evidence of Malignancy)' then FParent.WHResultChk := 'N';
5652                     if whCKB.Caption ='Abnormal' then FParent.WHResultChk := 'A';
5653                     if whCKB.Caption ='Unsatisfactory for Diagnosis' then FParent.WHResultChk := 'U';
5654                     //AGP Change 23.13 WH multiple processing
5655  		   for i := 0 to FParent.FData.Count-1 do
5656                       begin
5657                          if Piece(TRemData(FParent.FData[i]).FRec3,U,4)='WHR' then
5658                             begin
5659                             FParent.FReminder.WHReviewIEN := Piece(TRemData(FParent.FData[i]).FRec3,U,6)
5660                             end;
5661                       end;
5662                     end
5663                  else
5664                    begin
5665                      FParent.WHResultChk := '';
5666                      FParent.FReminder.WHReviewIEN := ''; //AGP CHANGE 23.13
5667                    end;
5668                end;
5669            end;
5670  
5671  
5672              ptWHNotPurp:
5673              begin
5674              if (Sender is TWHCheckBox) then
5675                begin
5676                  whCKB := (Sender as TWHCheckBox);
5677                  if whCKB.Checked = true then
5678                    begin
5679                      if whCKB.Caption ='Letter' then
5680                        begin
5681                          if FParent.WHResultNot='' then FParent.WHResultNot := 'L'
5682                          else
5683                            if Pos('L',FParent.WHResultNot)=0 then FParent.WHResultNot := FParent.WHResultNot +':L';
5684                          if whCKB.FButton <> nil then whCKB.FButton.Enabled := true;
5685                          if whCKB.FPrintNow <> nil then
5686                             begin
5687                               whCKB.FPrintVis :='1';
5688                               whCKB.FPrintNow.Enabled := true;
5689                             end;
5690                        end;
5691                      if whCKB.Caption ='In-Person' then
5692                         begin
5693                           if FParent.WHResultNot='' then FParent.WHResultNot := 'I'
5694                           else
5695                              if Pos('I',FParent.WHResultNot)=0 then FParent.WHResultNot := FParent.WHResultNot+':I';
5696                         end;
5697                      if whCKB.Caption ='Phone Call' then
5698                         begin
5699                           if FParent.WHResultNot='' then FParent.WHResultNot := 'P'
5700                           else
5701                             if Pos('P',FParent.WHResultNot)=0 then FParent.WHResultNot := FParent.WHResultNot+':P';
5702                          end;
5703                  end
5704                  else
5705                     begin
5706                       // this section is to handle unchecking of boxes and disabling print now and view button
5707                       WHValue := FParent.WHResultNot;
5708                         if whCKB.Caption ='Letter' then
5709                           begin
5710                             for i:=1 to Length(WHValue) do
5711                               begin
5712                                if WHValue1='' then
5713                                  begin
5714                                    if (WHValue[i]<>'L') and (WHValue[i]<>':') then WHValue1 := WHValue[i];
5715                                  end
5716                                else
5717                                  if (WHValue[i]<>'L') and (WHValue[i]<>':') then WHValue1 := WHValue1+':'+WHValue[i];
5718                               end;
5719                           if (whCKB.FButton <> nil) and (whCKB.FButton.Enabled = true) then whCKB.FButton.Enabled := false;
5720                           if (whCKB.FPrintNow <> nil) and (whCKB.FPrintNow.Enabled = true) then
5721                              begin
5722                                whCKB.FPrintVis := '0';
5723                                if whCKB.FPrintNow.Checked = true then whCKB.FPrintNow.Checked := false;
5724                                whCKB.FPrintNow.Enabled := false;
5725                                FParent.WHPrintDevice := '';
5726                              end;
5727                           end;
5728                         if whCKB.Caption ='In-Person' then
5729                           begin
5730                             for i:=1 to Length(WHValue) do
5731                               begin
5732                                 if WHValue1='' then
5733                                   begin
5734                                     if (WHValue[i]<>'I') and (WHValue[i]<>':') then WHValue1 := WHValue[i];
5735                                   end
5736                                 else
5737                                   if (WHValue[i]<>'I') and (WHValue[i]<>':') then WHValue1 := WHValue1+':'+WHValue[i];
5738                               end;
5739                           end;
5740                         if whCKB.Caption ='Phone Call' then
5741                            begin
5742                              for i:=1 to Length(WHValue) do
5743                                begin
5744                                  if WHValue1='' then
5745                                    begin
5746                                      if (WHValue[i]<>'P') and (WHValue[i]<>':') then WHValue1 := WHValue[i];
5747                                    end
5748                                  else
5749                                    if (WHValue[i]<>'P') and (WHValue[i]<>':') then WHValue1 := WHValue1+':'+WHValue[i];
5750                                end;
5751                            end;
5752                       FParent.WHResultNot := WHValue1;
5753                     end;
5754                  end
5755                  else
5756                      if ((Sender as TORCheckBox)<>nil) and (Piece(FRec4,U,12)='1') then
5757                         begin
5758                            if (((Sender as TORCheckBox).Caption = 'Print Now') and
5759                               ((Sender as TORCheckBox).Enabled =true)) and ((Sender as TORCheckBox).Checked = true) and
5760                               (FParent.WHPrintDevice ='') then
5761                                  begin
5762                                    FParent.WHPrintDevice := SelectDevice(Self, Encounter.Location, false, 'Women Health Print Device Selection');
5763                                    FPrintNow :='1';
5764                                    if FParent.WHPrintDevice ='' then
5765                                      begin
5766                                        FPrintNow :='0';
5767                                        (Sender as TORCheckBox).Checked := false;
5768                                      end;
5769                                  end;
5770                            if (((Sender as TORCheckBox).Caption = 'Print Now') and
5771                               ((Sender as TORCheckBox).Enabled =true)) and ((Sender as TORCheckBox).Checked = false) then
5772                                  begin
5773                                     FParent.WHPrintDevice := '';
5774                                     FPrintNow :='0';
5775                                  end;
5776                         end;
5777          end;
5778  
5779          ptExamResults, ptSkinResults, ptLevelSeverity,
5780          ptSeries, ptReaction, ptLevelUnderstanding, ptSkinReading: //(AGP Change 26.1)
5781            TmpValue := (Sender as TORComboBox).ItemID;
5782          else
5783            if pt = ptVitalEntry then
5784            begin
5785              case (Sender as TControl).Tag of
5786                TAG_VITTEMPUNIT, TAG_VITHTUNIT, TAG_VITWTUNIT: idx := 2;
5787                TAG_VITPAIN: begin
5788                               idx := -1;
5789                               TmpValue := (Sender as TORComboBox).ItemID;
5790                               if FParent.VitalDateTime = 0 then
5791                                    FParent.VitalDateTime := FMNow;
5792                             end;
5793                else
5794                  idx := 1;
5795              end;
5796              if(idx > 0) then
5797                begin
5798                   //AGP Change 26.1 change Vital time/date to Now instead of encounter date/time
5799                   SetPiece(TmpValue, ';', idx, TORExposedControl(Sender).Text);
5800                   if (FParent.VitalDateTime > 0) and (TORExposedControl(Sender).Text = '') then
5801                         FParent.VitalDateTime := 0;
5802                   if (FParent.VitalDateTime = 0) and (TORExposedControl(Sender).Text <> '') then
5803                         FParent.VitalDateTime := FMNow;
5804                end;
5805            end
5806            else
5807            if pt = ptDataList then
5808            begin
5809              TmpValue := (Sender as TORComboBox).CheckedString;
5810              NeedRedraw := TRUE;
5811            end
5812            else
5813            if (pt = ptGAF) and (MHDLLFound = false) then
5814              TmpValue := (Sender as TEdit).Text;
5815        end;
5816        if(TmpValue <> OrgValue) then
5817        begin
5818          if NeedRedraw then
5819            FParent.FReminder.BeginNeedRedraw;
5820          try
5821            SetValue(TmpValue);
5822          finally
5823            if NeedRedraw then
5824              FParent.FReminder.EndNeedRedraw(Self);
5825          end;
5826        end
5827        else
5828        if NeedRedraw then
5829        begin
5830          FParent.FReminder.BeginNeedRedraw;
5831          FParent.FReminder.EndNeedRedraw(Self);
5832        end;
5833      finally
5834        FFromControl := FALSE;
5835      end;
5836    finally
5837      FParent.FReminder.EndTextChanged(Sender);
5838    end;
5839    if(FParent.ElemType = etDisplayOnly) and (not assigned(FParent.FParent)) then
5840      RemindersInProcess.Notifier.Notify;
5841  end;