Procedure

GetCOMObjectText

Module

uEventHooks

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure GetCOMObjectText(COMObject: integer; const Param2, Param3: string;
                           var Data1, Data2: string);

Calls Hierarchy


GetCOMObjectText
 ├GetCOMObjectDetails
 ├EnsureEventHookObjects
 │ └TCPRSEventHookManager.Create
 │   ├TCPRSBroker.Create
 │   └TCPRSState.Create
 └TCPRSEventHookManager.ProcessComObject
   └TCPRSBroker.Initialize

Called-By Hierarchy


                                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
EnsureEventHookObjects procedure EnsureEventHookObjects; -
GetCOMObjectDetails function GetCOMObjectDetails(IEN: integer): string; -
TCPRSEventHookManager.ProcessComObject function ProcessComObject(const GUIDString: string; const AParam2, AParam3: string; var Data1, Data2: WideString): boolean; -

Called-By

Name Declaration Comments
TTemplate.COMObjectText function COMObjectText(DefText: string; var DocInfo: string): string; -


Source

574   procedure GetCOMObjectText(COMObject: integer; const Param2, Param3: string;
575                              var Data1, Data2: string);
576   var
577     d1, d2: WideString;
578     COMObj: string;
579   
580   begin
581     if COMObject > 0 then
582     begin
583       COMObj := GetCOMObjectDetails(COMObject);
584       if(COMObj <> '') and (COMObj <> '0') then
585       begin
586         EnsureEventHookObjects;
587         d1 := Data1;
588         d2 := Data2;
589         if uCPRSEventHookManager.ProcessComObject(COMObj, Param2, Param3, d1, d2) then
590         begin
591           Data1 := d1;
592           Data2 := d2;
593         end;
594       end;
595     end;
596   end;