Function

TTemplateDialogEntry.GetPanel

Module

uTemplateFields

Last Modified

3/11/2015 8:41:54 AM

Visibility

Public

Owner

TTemplateDialogEntry

Declaration

function GetPanel(MaxLen: integer; AParent: TWinControl;
                  OwningCheckBox: TCPRSDialogParentCheckBox): TDlgFieldPanel;

Calls Hierarchy


TTemplateDialogEntry.GetPanel
 ├Init
 │ ├TTemplateDialogEntry.KillLabels
 │ └ScreenReaderSystem_CurrentCheckBox
 │   └ScreenReaderSystem_Stop
 │     ├UpdateCheckBox
 │     ├UpdatePending
 │     └ScreenReaderSystem_Clear
 ├Text508Work
 │ ├TTemplateDialogEntry.StripCode
 │ ├ScreenReaderSystem_Stop...
 │ ├StripSRCode
 │ └ScreenReaderSystem_Continue
 ├TTemplateDialogEntry.StripCode
 ├NextLine
 ├DoLabel
 │ ├Add2TabOrder
 │ ├ScreenReaderSystem_CurrentLabel
 │ │ └ScreenReaderSystem_Stop...
 │ └ScreenReaderSystem_AddText
 ├Ctrl508Work
 │ ├ScreenReaderSystem_CurrentLabel...
 │ ├ScreenReaderSystem_AddText
 │ ├ScreenReaderSystem_Stop...
 │ ├Add2TabOrder
 │ └ScreenReaderSystem_CurrentComponent
 │   ├UpdateCheckBox
 │   ├UpdatePending
 │   └ScreenReaderSystem_Stop...
 ├TTemplateDialogEntry.SetFieldValues
 │ └TTemplateDialogEntry.SetControlText
 │   └TfraTemplateFieldButton.SetButtonText
 └ScreenReaderSystem_Stop...

Called-By Hierarchy


                                                                             TTemplateDialogEntry.GetPanel
                                                                              TfrmTemplateDialog.BuildCB┤ 
                                                                   TfrmTemplateDialog.BuildAllControls┘ │ 
                                                                                    DoTemplateDialog┤   │ 
                                                                           CheckBoilerplate4Fields┤ │   │ 
                                                                             DoTemplateDialog...┤ │ │   │ 
                                                                                ShowTemplateData┘ │ │   │ 
                                                           TfrmDrawers.mnuPreviewTemplateClick┤   │ │   │ 
                                                          TfrmDCSumm.popSummMemoPreviewClick┤ │   │ │   │ 
                                                        TfrmConsults.popNoteMemoPreviewClick┤ │   │ │   │ 
                                                         TfrmSurgery.popNoteMemoPreviewClick┤ │   │ │   │ 
                                                           TfrmNotes.popNoteMemoPreviewClick┘ │   │ │   │ 
                                                              TfrmTemplateEditor.mnuBPTryClick┘   │ │   │ 
                                                            TfrmTemplateEditor.tvTreeKeyDown┘     │ │   │ 
                                                                                 TTemplate.GetText┘ │   │ 
                                                                    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┘   │   │   │ 
                                                          TfrmDrawers.mnuPreviewTemplateClick...┤   │   │ 
                                                                TfrmDrawers.mnuCopyTemplateClick┤   │   │ 
                                                             TfrmTemplateEditor.mnuBPTryClick...┘   │   │ 
                                                                        TfrmTemplateDialog.FormPaint┘   │ 
                                                                                                GetPanel┘ 
                                                                          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...┘     │ │   │     
                                                                      TfrmRemDlg.btnClearClick┤ │   │     
                                                         TfrmRemDlg.ProcessReminderFromNodeStr┘ │   │     
                                                                     TfrmRemDlg.btnNextClick┤   │   │     
                                                                     TfrmRemDlg.btnBackClick┘   │   │     
                                                                          TfrmRemDlg.UMResyncRem┤   │     
                                                                      TfrmRemDlg.ProcessTemplate┤   │     
                                                                         ViewRemDlgFromForm...┘ │   │     
                                                                          TfrmRemDlg.SetFontSize┘   │     
                                                                         ViewRemDlgFromForm...┤     │     
                                                                       TfrmFrame.ChangeFont...┘     │     
                                                                                           ..(rec)..┘     

Calls

Name Declaration Comments
Ctrl508Work procedure Ctrl508Work(ctrl: TControl); -
DoLabel procedure DoLabel(Atxt: string); -
Init procedure Init; -
NextLine procedure NextLine; -
ScreenReaderSystem_Stop procedure ScreenReaderSystem_Stop; -
TTemplateDialogEntry.SetFieldValues procedure SetFieldValues(const Value: string); -
TTemplateDialogEntry.StripCode function StripCode(var txt: string; code: char): boolean; -
Text508Work procedure Text508Work; -

Called-By

Name Declaration Comments
TfrmTemplateDialog.BuildCB procedure BuildCB(CBidx: integer; var Y: integer; FirstTime: boolean); -
GetPanel function GetPanel(const EID, AText: string; const PnlWidth: integer; OwningCheckBox: TCPRSDialogParentCheckBox): TDlgFieldPanel; -


Source

2074  function TTemplateDialogEntry.GetPanel(MaxLen: integer; AParent: TWinControl;
2075                                         OwningCheckBox: TCPRSDialogParentCheckBox): TDlgFieldPanel;
2076  var
2077    i, x, y, cnt, idx, ind, yinc, ybase, MaxX: integer;
2078    MaxTextLen: integer;  {Max num of chars per line in pixels}
2079    MaxChars: integer;    {Max num of chars per line}
2080    txt: string;
2081    ctrl: TControl;
2082    LastLineBlank: boolean;
2083    sLbl: TCPRSDialogStaticLabel;
2084    nLbl: TVA508ChainedLabel;
2085    sLblHeight: integer;
2086    TabOrdr: integer;
2087  
2088  const
2089    FOCUS_RECT_MARGIN = 2; {The margin around the panel so the label won't
2090                          overlay the focus rect on its parent panel.}
2091  
2092    procedure Add2TabOrder(ctrl: TWinControl);
2093    begin
2094      ctrl.TabOrder := TabOrdr;
2095      inc(TabOrdr);
2096    end;
2097  
2098    function StripSRCode(var txt: string; code: string; len: integer): integer;
2099    begin
2100      Result := pos(code, txt);
2101      if Result > 0 then
2102      begin
2103        delete(txt,Result,len);
2104        dec(Result);
2105      end
2106      else
2107        Result := -1;
2108    end;
2109  
2110    procedure DoLabel(Atxt: string);
2111    var
2112      ctrl: TControl;
2113      tempLbl: TVA508ChainedLabel;
2114  
2115    begin
2116      if ScreenReaderSystemActive then
2117      begin
2118        if assigned(sLbl) then
2119        begin
2120          tempLbl := TVA508ChainedLabel.Create(nil);
2121          if assigned(nLbl) then
2122            nLbl.NextLabel := tempLbl
2123          else
2124            sLbl.NextLabel := tempLbl;
2125          nLbl := tempLbl;
2126          ctrl := nLbl;
2127        end
2128        else
2129        begin
2130          sLbl := TCPRSDialogStaticLabel.Create(nil);
2131          ctrl := sLbl;
2132        end;
2133      end
2134      else
2135        ctrl := TLabel.Create(nil);
2136      SetOrdProp(ctrl, ShowAccelCharProperty, ord(FALSE));
2137      SetStrProp(ctrl, CaptionProperty, Atxt);
2138      ctrl.Parent := FPanel;
2139      ctrl.Left := x;
2140      ctrl.Top := y;
2141      if ctrl = sLbl then
2142      begin
2143        Add2TabOrder(sLbl);
2144        sLbl.Height := sLblHeight;
2145        ScreenReaderSystem_CurrentLabel(sLbl);
2146      end;
2147      if ScreenReaderSystemActive then
2148        ScreenReaderSystem_AddText(Atxt);
2149      UpdateColorsFor508Compliance(ctrl);
2150      inc(x, ctrl.Width);
2151    end;
2152  
2153    procedure Init;
2154    var
2155      lbl : TLabel;
2156    begin
2157      if(FFirstBuild) then
2158        FFirstBuild := FALSE
2159      else
2160        KillLabels;
2161      y := FOCUS_RECT_MARGIN; {placement of labels on panel so they don't cover the}
2162      x := FOCUS_RECT_MARGIN; {focus rectangle}
2163      MaxX := 0;
2164      //ybase := FontHeightPixel(FFont.Handle) + 1 + (FOCUS_RECT_MARGIN * 2);  AGP commentout line for
2165                                                                             //reminder spacing
2166      ybase := FontHeightPixel(FFont.Handle) + 2;
2167      yinc := ybase;
2168      LastLineBlank := FALSE;
2169      sLbl := nil;
2170      nLbl := nil;
2171      TabOrdr := 0;
2172      if ScreenReaderSystemActive then
2173      begin
2174        ScreenReaderSystem_CurrentCheckBox(OwningCheckBox);
2175        lbl := TLabel.Create(nil);
2176        try
2177          lbl.Parent := FPanel;
2178          sLblHeight := lbl.Height + 2;
2179        finally
2180          lbl.Free;
2181        end;
2182  
2183      end;
2184    end;
2185  
2186    procedure Text508Work;
2187    var
2188      ContinueCode: boolean;
2189    begin
2190      if StripCode(txt, SR_BREAK) then
2191      begin
2192        ScreenReaderSystem_Stop;
2193        nLbl := nil;
2194        sLbl := nil;
2195      end;
2196  
2197      ContinueCode := FALSE;
2198      while StripSRCode(txt, ScreenReaderContinueCode, ScreenReaderContinueCodeLen) >= 0 do
2199        ContinueCode := TRUE;
2200      while StripSRCode(txt, ScreenReaderContinueCodeOld, ScreenReaderContinueCodeOldLen) >= 0 do
2201        ContinueCode := TRUE;
2202      if ContinueCode then
2203        ScreenReaderSystem_Continue;
2204    end;
2205  
2206    procedure Ctrl508Work(ctrl: TControl);
2207    var
2208      lbl: TCPRSTemplateFieldLabel;
2209    begin
2210      if (Ctrl is TCPRSTemplateFieldLabel) and (not (Ctrl is TCPRSDialogHyperlinkLabel)) then
2211      begin
2212        lbl := Ctrl as TCPRSTemplateFieldLabel;
2213        if trim(lbl.Caption) <> '' then
2214        begin
2215          ScreenReaderSystem_CurrentLabel(lbl);
2216          ScreenReaderSystem_AddText(lbl.Caption);
2217        end
2218        else
2219        begin
2220          lbl.TabStop := FALSE;
2221          ScreenReaderSystem_Stop;
2222        end;
2223      end
2224      else
2225      begin
2226        if ctrl is TWinControl then
2227          Add2TabOrder(TWinControl(ctrl));
2228        if Supports(ctrl, ICPRSDialogComponent) then
2229          ScreenReaderSystem_CurrentComponent(ctrl as ICPRSDialogComponent);
2230      end;
2231      sLbl := nil;
2232      nLbl := nil;
2233    end;
2234  
2235    procedure NextLine;
2236    begin
2237      if(MaxX < x) then
2238        MaxX := x;
2239      x := FOCUS_RECT_MARGIN;  {leave two pixels on the left for the Focus Rect}
2240      inc(y, yinc);
2241      yinc := ybase;
2242    end;
2243  
2244  begin
2245    MaxTextLen := MaxLen - (FOCUS_RECT_MARGIN * 2);{save room for the focus rectangle on the panel}
2246    if(FFirstBuild or (FPanel.Width <> MaxLen)) then
2247    begin
2248      Init;
2249      for i := 0 to FControls.Count-1 do
2250      begin
2251        txt := FControls[i];
2252        if ScreenReaderSystemActive then
2253          Text508Work;
2254        if StripCode(txt,EOL_MARKER) then
2255        begin
2256          if((x <> 0) or LastLineBlank) then
2257            NextLine;
2258          LastLineBlank := (txt = '');
2259        end;
2260        if(txt <> '') then
2261        begin
2262          while(txt <> '') do
2263          begin
2264            cnt := NumCharsFitInWidth(FFont.Handle, txt, MaxTextLen-x);
2265            MaxChars := cnt;
2266            if(cnt >= length(txt)) then
2267            begin
2268              DoLabel(txt);
2269              txt := '';
2270            end
2271            else
2272            if(cnt < 1) then
2273              NextLine
2274            else
2275            begin
2276              repeat
2277                if(txt[cnt+1] = ' ') then
2278                begin
2279                  DoLabel(copy(txt,1,cnt));
2280                  NextLine;
2281                  txt := copy(txt, cnt + 1, MaxInt);
2282                  break;
2283                end
2284                else
2285                  dec(cnt);
2286              until(cnt = 0);
2287              if(cnt = 0) then
2288              begin
2289                if(x = FOCUS_RECT_MARGIN) then {If x is at the far left margin...}
2290                begin
2291                  DoLabel(Copy(txt,1,MaxChars));
2292                  NextLine;
2293                  txt := copy(txt, MaxChars + 1, MaxInt);
2294                end
2295                else
2296                  NextLine;
2297              end;
2298            end;
2299          end;
2300        end
2301        else
2302        begin
2303          ctrl := TControl(FControls.Objects[i]);
2304          if(assigned(ctrl)) then
2305          begin
2306            if ScreenReaderSystemActive then
2307              Ctrl508Work(ctrl);
2308            idx := FIndents.IndexOfObject(Ctrl);
2309            if idx >= 0 then
2310              ind := StrToIntDef(Piece(FIndents[idx], U, 1), 0)
2311            else
2312              ind := 0;
2313            if(x > 0) then
2314            begin
2315              if (x < MaxLen) and (Ctrl is TORCheckBox) and (TORCheckBox(Ctrl).StringData = NewLine) then
2316                x := MaxLen;
2317              if((ctrl.Width + x + ind) > MaxLen) then
2318                NextLine;
2319            end;
2320            inc(x,ind);
2321            Ctrl.Left := x;
2322            Ctrl.Top := y;
2323            inc(x, Ctrl.Width + 4);
2324            if yinc <= Ctrl.Height then
2325              yinc := Ctrl.Height + 2;
2326            if (x < MaxLen) and ((Ctrl is TRichEdit) or
2327               ((Ctrl is TLabel) and (pos(CRLF, TLabel(Ctrl).Caption) > 0))) then
2328              x := MaxLen;
2329          end;
2330        end;
2331      end;
2332      NextLine;
2333      FPanel.Height := (y-1) + (FOCUS_RECT_MARGIN * 2); //AGP added Focus_rect_margin for Reminder spacing
2334      FPanel.Width := MaxX + FOCUS_RECT_MARGIN;
2335    end;
2336    if(FFieldValues <> '') then
2337      SetFieldValues(FFieldValues);
2338    if ScreenReaderSystemActive then
2339      ScreenReaderSystem_Stop;
2340    Result := FPanel;
2341  end;