source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart_TLB.pas@ 1742

Last change on this file since 1742 was 1726, checked in by healthsevak, 10 years ago

Cleaned little bit of glitches and added the About dialog and have recompiled the executable once again
File size: 9.6 KB
RevLine 
[456]1unit CPRSChart_TLB;
2
3// ************************************************************************ //
4// WARNING
5// -------
6// The types declared in this file were generated from data read from a
7// Type Library. If this type library is explicitly or indirectly (via
8// another type library referring to this type library) re-imported, or the
9// 'Refresh' command of the Type Library Editor activated while editing the
10// Type Library, the contents of this file will be regenerated and all
11// manual modifications will be lost.
12// ************************************************************************ //
13
[1693]14// $Rev: 8291 $
[1726]15// File generated on 6/19/2015 11:39:56 AM from Type Library described below.
[456]16
17// ************************************************************************ //
[1723]18// Type Lib: E:\WVEHR\branches\HealthSevak-CPRS\CPRS-Chart\CPRSChart.tlb (1)
[456]19// LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274}
20// LCID: 0
21// Helpfile:
22// HelpString: CPRSChart Library
23// DepndLst:
24// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
25// ************************************************************************ //
26{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
27{$WARN SYMBOL_PLATFORM OFF}
28{$WRITEABLECONST ON}
29{$VARPROPSETTER ON}
30interface
31
[830]32uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
[456]33
34
35// *********************************************************************//
36// GUIDS declared in the TypeLibrary. Following prefixes are used:
37// Type Libraries : LIBID_xxxx
38// CoClasses : CLASS_xxxx
39// DISPInterfaces : DIID_xxxx
40// Non-DISP interfaces: IID_xxxx
41// *********************************************************************//
42const
43 // TypeLibrary Major and minor versions
44 CPRSChartMajorVersion = 1;
45 CPRSChartMinorVersion = 0;
46
47 LIBID_CPRSChart: TGUID = '{0A4A6086-6504-11D5-82DE-00C04F72C274}';
48
49 IID_ICPRSBroker: TGUID = '{63DC619B-6BE0-11D5-82E6-00C04F72C274}';
50 IID_ICPRSState: TGUID = '{63DC619E-6BE0-11D5-82E6-00C04F72C274}';
51 IID_ICPRSExtension: TGUID = '{63DC61C4-6BE0-11D5-82E6-00C04F72C274}';
52
53// *********************************************************************//
54// Declaration of Enumerations defined in Type Library
55// *********************************************************************//
56// Constants for enum BrokerParamType
57type
58 BrokerParamType = TOleEnum;
59const
60 bptLiteral = $00000000;
61 bptReference = $00000001;
62 bptList = $00000002;
63 bptUndefined = $00000003;
64
65type
66
67// *********************************************************************//
68// Forward declaration of types defined in TypeLibrary
69// *********************************************************************//
70 ICPRSBroker = interface;
71 ICPRSBrokerDisp = dispinterface;
72 ICPRSState = interface;
73 ICPRSStateDisp = dispinterface;
74 ICPRSExtension = interface;
75 ICPRSExtensionDisp = dispinterface;
76
77// *********************************************************************//
78// Interface: ICPRSBroker
79// Flags: (4416) Dual OleAutomation Dispatchable
80// GUID: {63DC619B-6BE0-11D5-82E6-00C04F72C274}
81// *********************************************************************//
82 ICPRSBroker = interface(IDispatch)
83 ['{63DC619B-6BE0-11D5-82E6-00C04F72C274}']
84 function SetContext(const Context: WideString): WordBool; safecall;
85 function Server: WideString; safecall;
86 function Port: Integer; safecall;
87 function DebugMode: WordBool; safecall;
88 function Get_RPCVersion: WideString; safecall;
89 procedure Set_RPCVersion(const Value: WideString); safecall;
90 function Get_ClearParameters: WordBool; safecall;
91 procedure Set_ClearParameters(Value: WordBool); safecall;
92 function Get_ClearResults: WordBool; safecall;
93 procedure Set_ClearResults(Value: WordBool); safecall;
94 procedure CallRPC(const RPCName: WideString); safecall;
95 function Get_Results: WideString; safecall;
96 procedure Set_Results(const Value: WideString); safecall;
97 function Get_Param(Index: Integer): WideString; safecall;
98 procedure Set_Param(Index: Integer; const Value: WideString); safecall;
99 function Get_ParamType(Index: Integer): BrokerParamType; safecall;
100 procedure Set_ParamType(Index: Integer; Value: BrokerParamType); safecall;
101 function Get_ParamList(Index: Integer; const Node: WideString): WideString; safecall;
102 procedure Set_ParamList(Index: Integer; const Node: WideString; const Value: WideString); safecall;
103 function ParamCount: Integer; safecall;
104 function ParamListCount(Index: Integer): Integer; safecall;
105 property RPCVersion: WideString read Get_RPCVersion write Set_RPCVersion;
106 property ClearParameters: WordBool read Get_ClearParameters write Set_ClearParameters;
107 property ClearResults: WordBool read Get_ClearResults write Set_ClearResults;
108 property Results: WideString read Get_Results write Set_Results;
109 property Param[Index: Integer]: WideString read Get_Param write Set_Param;
110 property ParamType[Index: Integer]: BrokerParamType read Get_ParamType write Set_ParamType;
111 property ParamList[Index: Integer; const Node: WideString]: WideString read Get_ParamList write Set_ParamList;
112 end;
113
114// *********************************************************************//
115// DispIntf: ICPRSBrokerDisp
116// Flags: (4416) Dual OleAutomation Dispatchable
117// GUID: {63DC619B-6BE0-11D5-82E6-00C04F72C274}
118// *********************************************************************//
119 ICPRSBrokerDisp = dispinterface
120 ['{63DC619B-6BE0-11D5-82E6-00C04F72C274}']
121 function SetContext(const Context: WideString): WordBool; dispid 1;
122 function Server: WideString; dispid 2;
123 function Port: Integer; dispid 3;
124 function DebugMode: WordBool; dispid 4;
125 property RPCVersion: WideString dispid 5;
126 property ClearParameters: WordBool dispid 6;
127 property ClearResults: WordBool dispid 7;
128 procedure CallRPC(const RPCName: WideString); dispid 8;
129 property Results: WideString dispid 9;
130 property Param[Index: Integer]: WideString dispid 10;
131 property ParamType[Index: Integer]: BrokerParamType dispid 11;
132 property ParamList[Index: Integer; const Node: WideString]: WideString dispid 12;
133 function ParamCount: Integer; dispid 13;
134 function ParamListCount(Index: Integer): Integer; dispid 14;
135 end;
136
137// *********************************************************************//
138// Interface: ICPRSState
139// Flags: (4416) Dual OleAutomation Dispatchable
140// GUID: {63DC619E-6BE0-11D5-82E6-00C04F72C274}
141// *********************************************************************//
142 ICPRSState = interface(IDispatch)
143 ['{63DC619E-6BE0-11D5-82E6-00C04F72C274}']
144 function Handle: WideString; safecall;
145 function UserDUZ: WideString; safecall;
146 function UserName: WideString; safecall;
147 function PatientDFN: WideString; safecall;
148 function PatientName: WideString; safecall;
149 function PatientDOB: WideString; safecall;
150 function PatientSSN: WideString; safecall;
151 function LocationIEN: Integer; safecall;
152 function LocationName: WideString; safecall;
153 end;
154
155// *********************************************************************//
156// DispIntf: ICPRSStateDisp
157// Flags: (4416) Dual OleAutomation Dispatchable
158// GUID: {63DC619E-6BE0-11D5-82E6-00C04F72C274}
159// *********************************************************************//
160 ICPRSStateDisp = dispinterface
161 ['{63DC619E-6BE0-11D5-82E6-00C04F72C274}']
162 function Handle: WideString; dispid 1;
163 function UserDUZ: WideString; dispid 2;
164 function UserName: WideString; dispid 3;
165 function PatientDFN: WideString; dispid 4;
166 function PatientName: WideString; dispid 5;
167 function PatientDOB: WideString; dispid 6;
168 function PatientSSN: WideString; dispid 7;
169 function LocationIEN: Integer; dispid 8;
170 function LocationName: WideString; dispid 9;
171 end;
172
173// *********************************************************************//
174// Interface: ICPRSExtension
175// Flags: (4416) Dual OleAutomation Dispatchable
176// GUID: {63DC61C4-6BE0-11D5-82E6-00C04F72C274}
177// *********************************************************************//
178 ICPRSExtension = interface(IDispatch)
179 ['{63DC61C4-6BE0-11D5-82E6-00C04F72C274}']
180 function Execute(const CPRSBroker: ICPRSBroker; const CPRSState: ICPRSState;
181 const Param1: WideString; const Param2: WideString; const Param3: WideString;
182 var Data1: WideString; var Data2: WideString): WordBool; safecall;
183 end;
184
185// *********************************************************************//
186// DispIntf: ICPRSExtensionDisp
187// Flags: (4416) Dual OleAutomation Dispatchable
188// GUID: {63DC61C4-6BE0-11D5-82E6-00C04F72C274}
189// *********************************************************************//
190 ICPRSExtensionDisp = dispinterface
191 ['{63DC61C4-6BE0-11D5-82E6-00C04F72C274}']
192 function Execute(const CPRSBroker: ICPRSBroker; const CPRSState: ICPRSState;
193 const Param1: WideString; const Param2: WideString; const Param3: WideString;
194 var Data1: WideString; var Data2: WideString): WordBool; dispid 1;
195 end;
196
197implementation
198
199uses ComObj;
200
201end.
Note: See TracBrowser for help on using the repository browser.