Procedure

EnsureEventHookObjects

Module

uEventHooks

Last Modified

7/15/2014 3:26:44 PM

Scope

Global

Declaration

procedure EnsureEventHookObjects;

Calls Hierarchy


EnsureEventHookObjects
 └TCPRSEventHookManager.Create
   ├TCPRSBroker.Create
   └TCPRSState.Create

Called-By Hierarchy


                                        EnsureEventHookObjects
                                         TCPRSBroker.CallRPC┤ 
                               ProcessPatientChangeEventHook┤ 
                                    TfrmFrame.SetupPatient┘ │ 
                               UpdatePatientInfoForAlert┤   │ 
                            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.AllowCCOWContextChange┤   │ 
                         TfrmFrame.mnuFileNextClick...┤ │   │ 
                         TfrmFrame.mnuFileOpenClick...┤ │   │ 
                TfrmFrame.mnuFileResumeContextSetClick┘ │   │ 
                             TfrmFrame.UpdateCCOWContext┤   │ 
                         TfrmFrame.mnuFileOpenClick...┤ │   │ 
                       TfrmFrame.ctxContextorCommitted┤ │   │ 
                        TfrmFrame.StartCCOWContextor┘ │ │   │ 
                              TfrmFrame.FormCreate┘   │ │   │ 
                TfrmFrame.mnuFileResumeContextGetClick┘ │   │ 
                  TfrmFrame.mnuFileResumeContextSetClick┘   │ 
                                 ProcessOrderAcceptEventHook┤ 
                                      TfrmODBase.ValidSave┘ │ 
                               TfrmODBase.cmdAcceptClick┤   │ 
                                   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┘     │   │ 
                               TfrmODBase.FormCloseQuery┤   │ 
                                     TfrmODBase.TabClose┤   │ 
                            TfrmODAllergy.cmdAcceptClick┘   │ 
                                            GetCOMObjectText┘ 
                                   TTemplate.COMObjectText┘   
                            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┘         

Calls

Name Declaration Comments
TCPRSEventHookManager.Create constructor Create; -

Called-By

Name Declaration Comments
TCPRSBroker.CallRPC procedure CallRPC(const RPCName: WideString); safecall; -
GetCOMObjectText procedure GetCOMObjectText(COMObject: integer; const Param2, Param3: string; var Data1, Data2: string); -
ProcessOrderAcceptEventHook function ProcessOrderAcceptEventHook(OrderID: string; DisplayGroup: integer): boolean; -
ProcessPatientChangeEventHook procedure ProcessPatientChangeEventHook; -


Source

112   procedure EnsureEventHookObjects;
113   begin
114     if not assigned(uCPRSEventHookManager) then
115       uCPRSEventHookManager := TCPRSEventHookManager.Create;
116   end;