Procedure

TCPRSBroker.Initialize

Module

uEventHooks

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TCPRSBroker

Declaration

procedure Initialize;

Called-By Hierarchy


                                          TCPRSBroker.Initialize
                        TCPRSEventHookManager.ProcessComObject┘ 
                               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┘           

Called-By

Name Declaration Comments
TCPRSEventHookManager.ProcessComObject function ProcessComObject(const GUIDString: string; const AParam2, AParam3: string; var Data1, Data2: WideString): boolean; -


Source

304   procedure TCPRSBroker.Initialize;
305   begin
306     FContext := '';
307     FRPCVersion := RPCBrokerV.RpcVersion;
308     FClearParameters := RPCBrokerV.ClearParameters;
309     FClearResults := RPCBrokerV.ClearResults;
310     FResults := '';
311     FParam.Assign(FEmptyParams);
312   end;