source: cprs/trunk/CPRS-Chart/rEventHooks.pas@ 790

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

Initial Upload of Official WV CPRS 1.0.26.76

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