source: cprs/branches/tmg-cprs/CPRS-Chart/rEventHooks.pas@ 568

Last change on this file since 568 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 806 bytes
Line 
1//kt -- Modified with SourceScanner on 8/7/2007
2unit rEventHooks;
3
4interface
5
6uses
7 Classes, ORNet;
8
9function GetPatientChangeGUIDs: string;
10function GetOrderAcceptGUIDs(DisplayGroup: integer): string;
11function GetAllActiveCOMObjects: TStrings;
12function GetCOMObjectDetails(IEN: integer): string;
13
14implementation
15
16function GetPatientChangeGUIDs: string;
17begin
18 Result := sCallV('ORWCOM PTOBJ', []);
19end;
20
21function GetOrderAcceptGUIDs(DisplayGroup: integer): string;
22begin
23 Result := sCallV('ORWCOM ORDEROBJ', [DisplayGroup]);
24end;
25
26function GetAllActiveCOMObjects: TStrings;
27begin
28 CallV('ORWCOM GETOBJS', []);
29 Result := RPCBrokerV.Results;
30end;
31
32function GetCOMObjectDetails(IEN: integer): string;
33begin
34 Result := sCallV('ORWCOM DETAILS', [IEN]);
35end;
36
37end.
Note: See TracBrowser for help on using the repository browser.