Function

ProcessOrderAcceptEventHook

Module

uEventHooks

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function ProcessOrderAcceptEventHook(OrderID: string; DisplayGroup: integer): boolean;

Calls Hierarchy


ProcessOrderAcceptEventHook
 ├GetOrderAcceptGUIDs
 ├EnsureEventHookObjects
 │ └TCPRSEventHookManager.Create
 │   ├TCPRSBroker.Create
 │   └TCPRSState.Create
 └TCPRSEventHookManager.ProcessComObject
   └TCPRSBroker.Initialize

Called-By Hierarchy


                                 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┘   

Calls

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

Called-By

Name Declaration Comments
TfrmODBase.ValidSave function ValidSave: Boolean; -


Source

556   function ProcessOrderAcceptEventHook(OrderID: string; DisplayGroup: integer): boolean;
557   var
558     d1, d2: WideString;
559     COMObj: string;
560   
561   begin
562     Result := False;
563     COMObj := GetOrderAcceptGUIDs(DisplayGroup);
564     if(COMObj <> '') and (COMObj <> '0') then
565     begin
566       EnsureEventHookObjects;
567       d1 := '';
568       d2 := '';
569       //Result will be set to True by Com object if the order is deleted by LES
570       Result := uCPRSEventHookManager.ProcessComObject(COMObj, 'O=' + OrderID, '', d1, d2);
571     end;
572   end;