Procedure

TTemplateField.CreateDialogControls

Module

uTemplateFields

Last Modified

3/11/2015 8:41:54 AM

Visibility

Private

Owner

TTemplateField

Declaration

procedure CreateDialogControls(Entry: TTemplateDialogEntry;
                               var Index: Integer; CtrlID: integer);

Calls Hierarchy


TTemplateField.CreateDialogControls
 ├TCPRSDialogFieldEdit.Create
 │ └TCPRSDialogComponent.Create
 ├TTemplateField.GetRequired
 ├ht
 ├wdth
 ├TTemplateField.Width
 │ └StripEmbedded
 ├TTemplateDialogEntry.DoChange
 ├TCPRSDialogComboBox.Create
 │ └TCPRSDialogComponent.Create
 ├StripEmbedded
 ├TfraTemplateFieldButton.Create
 │ ├TfraTemplateFieldButton.ButtonKeyDown
 │ │ └TfraTemplateFieldButton.pnlBtnMouseDown
 │ │   ├TfraTemplateFieldButton.GetButtonText
 │ │   └TfraTemplateFieldButton.SetButtonText
 │ ├TfraTemplateFieldButton.ButtonKeyUp
 │ │ └TfraTemplateFieldButton.pnlBtnMouseUp
 │ └TCPRSDialogComponent.Create
 ├TfraTemplateFieldButton.SetButtonText
 ├TCPRSDialogCheckBox.Create
 │ └TCPRSDialogComponent.Create
 ├UpdateIndents
 │ └wdth
 ├StrToFMDateTime
 ├TCPRSDialogDateCombo.Create
 │ └TCPRSDialogComponent.Create
 ├TCPRSDialogDateBox.Create
 │ └TCPRSDialogComponent.Create
 ├TCPRSDialogNumber.CreatePanel
 │ └TCPRSDialogComponent.Create
 ├TTemplateDialogEntry.UpDownChange
 │ ├EnsureText
 │ └TTemplateDialogEntry.DoChange
 ├TCPRSDialogHyperlinkLabel.Create
 │ ├TCPRSDialogComponent.Create
 │ └TCPRSDialogHyperlinkLabel.KeyPressed
 │   └TCPRSDialogHyperlinkLabel.Clicked
 │     └GotoWebPage
 ├TCPRSDialogHyperlinkLabel.Init
 │ └TCPRSDialogHyperlinkLabel.Clicked...
 └TCPRSDialogRichEdit.Create
   └TCPRSDialogComponent.Create

Called-By Hierarchy


                                                                           TTemplateField.CreateDialogControls
                                                                                 TTemplateDialogEntry.Create┘ 
                                                                                            GetDialogEntry┘   
                                                                              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
TCPRSDialogFieldEdit.Create constructor Create(AOwner: TComponent); override; -
TCPRSDialogComboBox.Create constructor Create(AOwner: TComponent); override; -
TfraTemplateFieldButton.Create constructor Create(AOwner: TComponent); override; -
TCPRSDialogCheckBox.Create constructor Create(AOwner: TComponent); override; -
TCPRSDialogDateCombo.Create constructor Create(AOwner: TComponent); override; -
TCPRSDialogDateBox.Create constructor Create(AOwner: TComponent); override; -
TCPRSDialogHyperlinkLabel.Create constructor Create(AOwner: TComponent); override; -
TCPRSDialogRichEdit.Create constructor Create(AOwner: TComponent); override; -
TCPRSDialogNumber.CreatePanel constructor CreatePanel(AOwner: TComponent); -
TTemplateDialogEntry.DoChange procedure DoChange(Sender: TObject); -
TTemplateField.GetRequired function GetRequired: boolean; -
ht function ht: integer; -
TCPRSDialogHyperlinkLabel.Init procedure Init(Addr: string); -
TfraTemplateFieldButton.SetButtonText procedure SetButtonText(const Value: string); -
StripEmbedded function StripEmbedded(iItems: string): string; -
StrToFMDateTime function StrToFMDateTime(const AString: string): TFMDateTime; -
UpdateIndents procedure UpdateIndents(AControl: TControl); -
TTemplateDialogEntry.UpDownChange procedure UpDownChange(Sender: TObject); -
wdth function wdth: integer; -
TTemplateField.Width function Width: integer; -

Called-By

Name Declaration Comments
TTemplateDialogEntry.Create constructor Create(AParent: TWinControl; AID, Text: string); -


Source

1073  procedure TTemplateField.CreateDialogControls(Entry: TTemplateDialogEntry;
1074                                       var Index: Integer; CtrlID: integer);
1075  
1076  var
1077    i, Aht, w, tmp, AWdth: integer;
1078    STmp: string;
1079    TmpSL: TStringList;
1080    edt: TEdit;
1081    cbo: TORComboBox;
1082    cb: TORCheckBox;
1083    btn: TfraTemplateFieldButton;
1084    dbox: TORDateBox;
1085    dcbo: TORDateCombo;
1086    lbl: TCPRSTemplateFieldLabel;
1087    re: TRichEdit;
1088    pnl: TCPRSDialogNumber;
1089    DefDate: TFMDateTime;
1090    ctrl: TControl;
1091  
1092    function wdth: integer;
1093    begin
1094      if(Awdth < 0) then
1095        Awdth := FontWidthPixel(Entry.FFont.Handle);
1096      Result := Awdth;
1097    end;
1098  
1099    function ht: integer;
1100    begin
1101      if(Aht < 0) then
1102        Aht := FontHeightPixel(Entry.FFont.Handle);
1103      Result := Aht;
1104    end;
1105  
1106    procedure UpdateIndents(AControl: TControl);
1107    var
1108      idx: integer;
1109  
1110    begin
1111      if (FIndent > 0) or (FPad > 0) then
1112      begin
1113        idx := Entry.FIndents.IndexOfObject(AControl);
1114        if idx < 0 then
1115          Entry.FIndents.AddObject(IntToStr(FIndent * wdth) + U + IntToStr(FPad), AControl);
1116      end;
1117    end;
1118  
1119  begin
1120    if(not FInactive) and (FFldType <> dftUnknown) then
1121    begin
1122      AWdth := -1;
1123      Aht := -1;
1124      ctrl := nil;
1125  
1126      case FFldType of
1127        dftEditBox:
1128          begin
1129            edt := TCPRSDialogFieldEdit.Create(nil);
1130            (edt as ICPRSDialogComponent).RequiredField := Required;
1131            edt.Parent := Entry.FPanel;
1132            edt.BorderStyle := bsNone;
1133            edt.Height := ht;
1134            edt.Width := (wdth * Width + 4);
1135            if FTextLen > 0 then
1136              edt.MaxLength := FTextLen
1137            else
1138              edt.MaxLength := FMaxLen;
1139            edt.Text := FEditDefault;
1140            edt.Tag := CtrlID;
1141            edt.OnChange := Entry.DoChange;
1142            UpdateColorsFor508Compliance(edt, TRUE);
1143            ctrl := edt;
1144          end;
1145  
1146        dftComboBox:
1147          begin
1148            cbo := TCPRSDialogComboBox.Create(nil);
1149            (cbo as ICPRSDialogComponent).RequiredField := Required;
1150            cbo.Parent := Entry.FPanel;
1151            cbo.TemplateField := TRUE;
1152            w := Width;
1153            cbo.MaxLength := w;
1154            if FTextLen > 0 then
1155              cbo.MaxLength := FTextLen
1156            else
1157              cbo.ListItemsOnly := TRUE;
1158            {Clear out embedded fields}
1159            cbo.Items.Text := StripEmbedded(Items);
1160            cbo.SelectByID(StripEmbedded(FItemDefault));
1161            cbo.Tag := CtrlID;
1162            cbo.OnChange := Entry.DoChange;
1163  
1164            if cbo.Items.Count > 12 then
1165            begin
1166              cbo.Width := (wdth * w) + ScrollBarWidth + 8;
1167              cbo.DropDownCount := 12;
1168            end
1169            else
1170            begin
1171              cbo.Width := (wdth * w) + 18;
1172              cbo.DropDownCount := cbo.Items.Count;
1173            end;
1174            UpdateColorsFor508Compliance(cbo, TRUE);
1175            ctrl := cbo;
1176          end;
1177  
1178        dftButton:
1179          begin
1180            btn := TfraTemplateFieldButton.Create(nil);
1181            (btn as ICPRSDialogComponent).RequiredField := Required;
1182            btn.Parent := Entry.FPanel;
1183            {Clear out embedded fields}
1184            btn.Items.Text := StripEmbedded(Items);
1185            btn.ButtonText := StripEmbedded(FItemDefault);
1186            btn.Height := ht;
1187            btn.Width := (wdth * Width) + 6;
1188            btn.Tag := CtrlID;
1189            btn.OnChange := Entry.DoChange;
1190            UpdateColorsFor508Compliance(btn);
1191            ctrl := btn;
1192          end;
1193  
1194        dftCheckBoxes, dftRadioButtons:
1195          begin
1196            if FFldType = dftRadioButtons then
1197              inc(uRadioGroupIndex);
1198            TmpSL := TStringList.Create;
1199            try
1200              {Clear out embedded fields}
1201              TmpSL.Text := StripEmbedded(Items);
1202              for i := 0 to TmpSL.Count-1 do
1203              begin
1204                cb := TCPRSDialogCheckBox.Create(nil);
1205                if i = 0 then
1206                  (cb as ICPRSDialogComponent).RequiredField := Required;
1207                cb.Parent := Entry.FPanel;
1208                cb.Caption := TmpSL[i];
1209                cb.AutoSize := TRUE;
1210                cb.AutoAdjustSize;
1211    //              cb.AutoSize := FALSE;
1212    //              cb.Height := ht;
1213                if FFldType = dftRadioButtons then
1214                begin
1215                  cb.GroupIndex := uRadioGroupIndex;
1216                  cb.RadioStyle := TRUE;
1217                end;
1218                if(TmpSL[i] = StripEmbedded(FItemDefault)) then
1219                  cb.Checked := TRUE;
1220                cb.Tag := CtrlID;
1221                if FSepLines and (FFldType in SepLinesTypes) then
1222                  cb.StringData := NewLine;
1223                cb.OnClick := Entry.DoChange;
1224                UpdateColorsFor508Compliance(cb);
1225                inc(Index);
1226                Entry.FControls.InsertObject(Index, '', cb);
1227                if (i=0) or FSepLines then
1228                  UpdateIndents(cb);
1229              end;
1230            finally
1231              TmpSL.Free;
1232            end;
1233          end;
1234  
1235        dftDate:
1236          begin
1237            if FEditDefault <> '' then
1238              DefDate := StrToFMDateTime(FEditDefault)
1239            else
1240              DefDate := 0;
1241            if FDateType in DateComboTypes then
1242            begin
1243              dcbo := TCPRSDialogDateCombo.Create(nil);
1244              (dcbo as ICPRSDialogComponent).RequiredField := Required;
1245              dcbo.Parent := Entry.FPanel;
1246              dcbo.Tag := CtrlID;
1247              dcbo.IncludeBtn := (FDateType = dtCombo);
1248              dcbo.IncludeDay := (FDateType = dtCombo);
1249              dcbo.IncludeMonth := (FDateType <> dtYear);
1250              dcbo.FMDate := DefDate;
1251              dcbo.TemplateField := TRUE;
1252              dcbo.OnChange := Entry.DoChange;
1253              UpdateColorsFor508Compliance(dcbo, TRUE);
1254              ctrl := dcbo;
1255            end
1256            else
1257            begin
1258              dbox := TCPRSDialogDateBox.Create(nil);
1259              (dbox as ICPRSDialogComponent).RequiredField := Required;
1260              dbox.Parent := Entry.FPanel;
1261              dbox.Tag := CtrlID;
1262              dbox.DateOnly := (FDateType = dtDate);
1263              dbox.RequireTime := (FDateType = dtDateReqTime);
1264              dbox.TemplateField := TRUE;
1265              dbox.FMDateTime := DefDate;
1266              if (FDateType = dtDate) then
1267                tmp := 11
1268              else
1269                tmp := 17;
1270              dbox.Width := (wdth * tmp) + 18;
1271              dbox.OnChange := Entry.DoChange;
1272              UpdateColorsFor508Compliance(dbox, TRUE);
1273              ctrl := dbox;
1274            end;
1275          end;
1276  
1277        dftNumber:
1278          begin
1279            pnl := TCPRSDialogNumber.CreatePanel(nil);
1280            (pnl as ICPRSDialogComponent).RequiredField := Required;
1281            pnl.Parent := Entry.FPanel;
1282            pnl.BevelOuter := bvNone;
1283            pnl.Tag := CtrlID;
1284            pnl.Edit.Height := ht;
1285            pnl.Edit.Width := (wdth * 5 + 4);
1286            pnl.UpDown.Min := MinVal;
1287            pnl.UpDown.Max := MaxVal;
1288            pnl.UpDown.Min := MinVal; // Both ud.Min settings are needeed!
1289            i := Increment;
1290            if i < 1 then i := 1;
1291            pnl.UpDown.Increment := i;
1292            pnl.UpDown.Position := StrToIntDef(EditDefault, 0);
1293            pnl.Edit.OnChange := Entry.UpDownChange;
1294            pnl.Height := pnl.Edit.Height;
1295            pnl.Width := pnl.Edit.Width + pnl.UpDown.Width;
1296            UpdateColorsFor508Compliance(pnl, TRUE);
1297            //CQ 17597 wat
1298            pnl.Edit.Align := alLeft;
1299            pnl.UpDown.Align := alLeft;
1300            //end 17597
1301            ctrl := pnl;
1302          end;
1303  
1304        dftHyperlink, dftText:
1305          begin
1306            if (FFldType = dftHyperlink) and User.WebAccess then
1307              lbl := TCPRSDialogHyperlinkLabel.Create(nil)
1308            else
1309              lbl := TCPRSTemplateFieldLabel.Create(nil);
1310            lbl.Parent := Entry.FPanel;
1311            lbl.ShowAccelChar := FALSE;
1312            lbl.Exclude := FSepLines;
1313            if (FFldType = dftHyperlink) then
1314            begin
1315              if FEditDefault <> '' then
1316                lbl.Caption := StripEmbedded(FEditDefault)
1317              else
1318                lbl.Caption := URL;
1319            end
1320            else
1321            begin
1322              STmp := StripEmbedded(Items);
1323              if copy(STmp,length(STmp)-1,2) = CRLF then
1324                delete(STmp,length(STmp)-1,2);
1325              lbl.Caption := STmp;
1326            end;
1327            if lbl is TCPRSDialogHyperlinkLabel then
1328              TCPRSDialogHyperlinkLabel(lbl).Init(FURL);
1329            lbl.Tag := CtrlID;
1330            UpdateColorsFor508Compliance(lbl);
1331            ctrl := lbl;
1332          end;
1333  
1334        dftWP:
1335          begin
1336            re := TCPRSDialogRichEdit.Create(nil);
1337            (re as ICPRSDialogComponent).RequiredField := Required;
1338            re.Parent := Entry.FPanel;
1339            re.Tag := CtrlID;
1340            tmp := FMaxLen;
1341            if tmp < 5 then
1342              tmp := 5;
1343            re.Width := wdth * tmp;
1344            tmp := FTextLen;
1345            if tmp < 2 then
1346              tmp := 2
1347            else
1348            if tmp > MaxTFWPLines then
1349              tmp := MaxTFWPLines;
1350            re.Height := ht * tmp;
1351            re.BorderStyle := bsNone;
1352            re.ScrollBars := ssVertical;
1353            re.Lines.Text := Items;
1354            re.OnChange := Entry.DoChange;
1355            UpdateColorsFor508Compliance(re, TRUE);
1356            ctrl := re;
1357          end;
1358      end;
1359      if assigned(ctrl) then
1360      begin
1361        inc(Index);
1362        Entry.FControls.InsertObject(Index, '', ctrl);
1363        UpdateIndents(ctrl);
1364      end;
1365    end;
1366  end;