Module

rEventHooks

Path

C:\CPRS\CPRS30\rEventHooks.pas

Last Modified

7/15/2014 3:26:44 PM

Functions

Name Owner Declaration Scope Comments
GetAllActiveCOMObjects - function GetAllActiveCOMObjects: TStrings; Interfaced -
GetCOMObjectDetails - function GetCOMObjectDetails(IEN: integer): string; Interfaced -
GetOrderAcceptGUIDs - function GetOrderAcceptGUIDs(DisplayGroup: integer): string; Interfaced -
GetPatientChangeGUIDs - function GetPatientChangeGUIDs: string; Interfaced -


Module Source

1     unit rEventHooks;
2     
3     interface
4     
5     uses
6       Classes, ORNet;
7       
8     function GetPatientChangeGUIDs: string;
9     function GetOrderAcceptGUIDs(DisplayGroup: integer): string;
10    function GetAllActiveCOMObjects: TStrings;
11    function GetCOMObjectDetails(IEN: integer): string;
12    
13    implementation
14    
15    function GetPatientChangeGUIDs: string;
16    begin
17      Result := sCallV('ORWCOM PTOBJ', []);
18    end;
19    
20    function GetOrderAcceptGUIDs(DisplayGroup: integer): string;
21    begin
22      Result := sCallV('ORWCOM ORDEROBJ', [DisplayGroup]);
23    end;
24    
25    function GetAllActiveCOMObjects: TStrings;
26    begin
27      CallV('ORWCOM GETOBJS', []);
28      Result := RPCBrokerV.Results;
29    end;
30    
31    function GetCOMObjectDetails(IEN: integer): string;
32    begin
33      Result := sCallV('ORWCOM DETAILS', [IEN]);
34    end;
35    
36    end.

Module Calls (2 levels)

-

Module Called-By (2 levels)


      rEventHooks
fTemplateEditor┤ 
       fFrame┤ │ 
     fDrawers┤ │ 
       fNotes┤ │ 
    fConsults┤ │ 
      fDCSumm┤ │ 
     fSurgery┘ │ 
    uEventHooks┘ 
    CPRSChart┤   
      fODBase┤   
    fFrame...┤   
      dShared┤   
   uTemplates┘