Produced by Araxis Merge on 3/31/2017 10:45:42 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\DLL-VITALSVIEWENTER | GMV_VitalsViewEnter.dpr | Tue Dec 13 18:26:04 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\DLL-VITALSVIEWENTER | GMV_VitalsViewEnter.dpr | Fri Mar 31 15:01:00 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 896 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | library GM V_VitalsVi ewEnter; | |
2 | ||
3 | { Importan t note abo ut DLL mem ory manage ment: Shar eMem must be the | |
4 | first un it in your library's USES clau se AND you r project' s (select | |
5 | Project- View Sourc e) USES cl ause if yo ur DLL exp orts any p rocedures or | |
6 | function s that pas s strings as paramet ers or fun ction resu lts. This | |
7 | applies to all str ings passe d to and f rom your D LL--even t hose that | |
8 | are nest ed in reco rds and cl asses. Sha reMem is t he interfa ce unit to | |
9 | the BORL NDMM.DLL s hared memo ry manager , which mu st be depl oyed along | |
10 | with you r DLL. To avoid usin g BORLNDMM .DLL, pass string in formation | |
11 | using PC har or Sho rtString p arameters. } | |
12 | ||
13 | uses | |
14 | ShareMem , | |
15 | SysUtils , | |
16 | Classes, | |
17 | TRPCB, | |
18 | CCOWRPCB roker, | |
19 | Dialogs, | |
20 | Forms, | |
21 | Controls , | |
22 | fGMV_Pat ientVitals in '..\Vi talsView\f GMV_Patien tVitals.pa s' {frmVit als} , | |
23 | fGMV_Sho wSingleVit al in '..\ VitalsView \fGMV_Show SingleVita l.pas' {fr mGMV_ShowS ingleVital } , | |
24 | fGMV_Dat eRange in '..\Vitals Common\fGM V_DateRang e.pas' {fr mGMV_DateR ange} , | |
25 | uGMV_Glo balVars in '..\Vital sUtils\uGM V_GlobalVa rs.pas', | |
26 | uGMV_Con st in '..\ VitalsUtil s\uGMV_Con st.pas', | |
27 | uGMV_Use r in '..\V italsCommo n\uGMV_Use r.pas', | |
28 | uGMV_Fil eEntry in '..\Vitals Common\uGM V_FileEntr y.pas', | |
29 | uGMV_Uti ls in '..\ VitalsUtil s\uGMV_Uti ls.pas', | |
30 | fGMV_Inp utLite in '..\Vitals DataEntry\ fGMV_Input Lite.pas' {frmGMV_In putLite} , | |
31 | mGMV_Loo kup in '.. \VitalsDat aEntry\mGM V_Lookup.p as' {fraGM V_Lookup: TFrame} , | |
32 | uGMV_Tem plate in ' ..\VitalsD ataEntry\u GMV_Templa te.pas', | |
33 | mGMV_Inp utOne2 in '..\Vitals DataEntry\ mGMV_Input One2.pas' {fraGMV_In putOne2: T Frame} , | |
34 | fGMV_Sup O2 in '..\ VitalsData Entry\fGMV _SupO2.pas ' {frmGMV_ SupO2} , | |
35 | fGMV_Qua lifiers in '..\Vital sDataEntry \fGMV_Qual ifiers.pas ' {frmGMV_ Qualifiers } , | |
36 | uGMV_Qua lifyBox in '..\Vital sDataEntry \uGMV_Qual ifyBox.pas ', | |
37 | uGMV_Sav eRestore i n '..\Vita lsCommon\u GMV_SaveRe store.pas' , | |
38 | fGMV_Dat eTimeDLG i n '..\Vita lsCommon\f GMV_DateTi meDLG.pas' {fGMV_Dat eTime} , | |
39 | fGMV_PtS elect in ' ..\VitalsP atient\fGM V_PtSelect .pas' {frm GMV_PtSele ct} , | |
40 | uGMV_Vit alTypes in '..\Vital sCommon\uG MV_VitalTy pes.pas', | |
41 | uGMV_Pat ient in '. .\VitalsCo mmon\uGMV_ Patient.pa s', | |
42 | mGMV_MDa teTime in '..\Vitals Common\mGM V_MDateTim e.pas', | |
43 | uGMV_Com mon in '.. \VitalsUti ls\uGMV_Co mmon.pas', | |
44 | mGMV_Gri dGraph in '..\Vitals View\mGMV_ GridGraph. pas' {fraG MV_GridGra ph: TFrame } , | |
45 | uGMV_Ver sionInfo i n '..\Vita lsUtils\uG MV_Version Info.pas', | |
46 | fROR_PCa ll in '..\ ROR\fROR_P Call.pas' {RPCErrorF orm} , | |
47 | uROR_RPC Broker in '..\ROR\uR OR_RPCBrok er.pas', | |
48 | uVHA_ATE 740X in '. .\VS_Monit ors\uVHA_A TE740X.pas ', | |
49 | RS232 in '..\VS_Mo nitors\RS2 32.pas', | |
50 | fGMV_Inp utTemp in '..\Vitals DataEntry\ fGMV_Input Temp.pas' {frmGMV_In putTemp} , | |
51 | uGMV_Eng ine in '.. \VitalsUti ls\uGMV_En gine.pas', | |
52 | uGMV_EXE Version in '..\Vital sUtils\uGM V_EXEVersi on.pas', | |
53 | uGMV_Set up in '..\ VitalsComm on\uGMV_Se tup.pas', | |
54 | fGMV_Ent eredInErro r in '..\V italsDataE ntry\fGMV_ EnteredInE rror.pas' {frmGMV_En teredInErr or} , | |
55 | uGMV_DLL Common in '..\Vitals Utils\uGMV _DLLCommon .pas', | |
56 | fGMV_PtI nfo in '.. \VitalsPat ient\fGMV_ PtInfo.pas ' {fraGMV_ PatientInf o} , | |
57 | fGMV_Abo utDlg in ' ..\VitalsC ommon\fGMV _AboutDlg. pas' {frmG MV_AboutDl g} , | |
58 | fGMV_Inf o in '..\V italsView\ fGMV_Info. pas' {frmG MV_Info} , | |
59 | fGMV_Hos pitalSelec tor2 in '. .\VitalsCo mmon\fGMV_ HospitalSe lector2.pa s' {frmGMV _HospitalS elector2} , | |
60 | fGMV_RPC Log in '.. \VitalsCom mon\fGMV_R PCLog.pas' {frmGMV_R PCLog} , | |
61 | fGMV_Sel ectColor i n '..\Vita lsCommon\f GMV_Select Color.pas' {frmGMV_S electColor } , | |
62 | fGMV_Use rSettings in '..\Vit alsCommon\ fGMV_UserS ettings.pa s' {frmGMV _UserSetti ngs} , | |
63 | uGMV_CRC 32 in '..\ VitalsUtil s\uGMV_CRC 32.pas', | |
64 | uXML in '..\Vitals Utils\uXML .pas', | |
65 | uGMV_Mon itor in '. .\VS_Monit ors\uGMV_M onitor.pas ', | |
66 | mGMV_Def aultSelect or in '..\ VITALSCOMM ON\mGMV_De faultSelec tor.pas' { frDefaultS elector: T Frame} , | |
67 | uGMV_RPC _Names in '..\VITALS COMMON\uGM V_RPC_Name s.pas', | |
68 | uGMV_Log in '..\VI TALSCOMMON \uGMV_Log. pas', | |
69 | uGMV_Win dowsEvents in '..\VI TALSCOMMON \uGMV_Wind owsEvents. pas', | |
70 | uGMV_App Version in '..\VITAL SCOMMON\uG MV_AppVers ion.pas', | |
71 | U_HelpMG R in '..\V ITALSCOMMO N\U_HelpMG R.pas'; | |
72 | ||
73 | {$R *.res} | |
74 | ||
75 | ||
76 | /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// / | |
77 | procedure VitalsExit ; export; stdcall; | |
78 | begin | |
79 | Applicat ion.Termin ate; | |
80 | // if As signed(frm Vitals) th en | |
81 | // try | |
82 | // frmVi tals.Modal Result := mrCancel; | |
83 | // excep t | |
84 | // end; | |
85 | end; | |
86 | ||
87 | function C heckVersio n: Integer ; | |
88 | var | |
89 | sName: S tring; | |
90 | sPrevNam e: String; | |
91 | begin | |
92 | Result : = 0; | |
93 | ||
94 | with TVe rsionInfo. Create(App lication) do | |
95 | try | |
96 | Open File(GetMo duleName(H Instance)) ; | |
97 | sNam e := FileV ersion; | |
98 | sPre vName := P reviousVer sion; | |
99 | finall y | |
100 | free ; | |
101 | end; | |
102 | // sName := Curren tDllNameAn dVersion; | |
103 | // sPrev Name := Pr evDllNameA ndVersion; | |
104 | if (getD LLInfo(sNa me) <> 'YE S') and (g etDLLInfo( sPrevName) <> 'YES') then | |
105 | begin | |
106 | Show Message( | |
107 | ' This version o f the Vita ls Viewer (' + sName + ')' + # 13#10 + | |
108 | ' is not compatibl e with the server so ftware.' + #13#10#13 #10 + | |
109 | 'P lease cont act IRM to update th e GMV_Vita lsViewEnte r.dll file .'); | |
110 | Resu lt := -1; | |
111 | end; | |
112 | CheckBro kerFlag := getSystem ParameterB yName('CHE CKBROKERST ATUS') = ' TRUE'; | |
113 | end; | |
114 | ||
115 | procedure setTimeOut (aSeconds: Integer); export; s tdcall; | |
116 | begin | |
117 | // Updat eTimeOutIn terval(aSe conds); // requires fGMV_TimeO utManager; | |
118 | end; | |
119 | ||
120 | /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// / | |
121 | // This wi ll be used by CPRS | |
122 | /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// / | |
123 | ||
124 | function V italsViewD LG( // cal led from C oversheet of the CPR S | |
125 | const aB roker: TRP CBroker; | |
126 | aDFN, // '72' | |
127 | aLocatio n, // '36' | |
128 | DateStar t, // '04/ 30/05' | |
129 | DateStop , // '10/3 1/05' | |
130 | aSignatu re, // 'CP RS' | |
131 | aContext In, // 'OR CPRS GUI CHART' | |
132 | aContext Out, // 'O R CPRS GUI CHART' | |
133 | aName, / / 'SKYWALK ER, LUKE' | |
134 | anInfo, // '555-11 -2222' | |
135 | aHospita lName: Str ing): Inte ger; expor t; stdcall ; // 'MICU ^P | |
136 | var | |
137 | anItem: TRPCEventI tem; | |
138 | begin | |
139 | { Window sLogLine( | |
140 | 'Vtals ViewDLG ' + ' ' +#13 #10+ | |
141 | 'DFN: '+a DFN + ' ' +#13#10+ | |
142 | 'Locat ion: '+a Location+ ' ' +#13#1 0+ | |
143 | 'Date Start: '+D ateStart + ' ' +#13# 10+ | |
144 | 'Date Stop: '+D ateStop + ' ' +#13#1 0+ | |
145 | 'Signa ture: '+a Signature + ' ' +#13 #10+ | |
146 | 'Conte xt In: '+a ContextIn+ ' ' +#13# 10+ | |
147 | 'Conte xt Out:'+a ContextOut + ' ' +#13 #10+ | |
148 | // 'Name: '+aName + ' ' +#13 #10+ | |
149 | // 'Info: '+anInf o+ ' ' +#1 3#10+ | |
150 | 'Hospi tal: '+aH ospitalNam e); | |
151 | // vha ishandria 2008-02-06 ========= ========== ========== ========== ======== b egin | |
152 | anItem := getRPC EventItem( Now, Now, | |
153 | 'Vtals ViewDLG', | |
154 | ['DFN: '+ aDFN, | |
155 | 'Locat ion: '+a Location, | |
156 | 'Date Start: '+D ateStart, | |
157 | 'Date Stop: '+D ateStop, | |
158 | 'Signa ture: '+a Signature, | |
159 | 'Conte xt In: '+a ContextIn, | |
160 | 'Conte xt Out:'+a ContextOut , | |
161 | 'Name: '+a Name, | |
162 | 'Info: '+a nInfo, | |
163 | {'Hosp ital: '+a HospitalNa me], | |
164 | nil, | |
165 | [], | |
166 | nil | |
167 | ); }// DN S BELLC REMED OUT AFTER CALL WITH ANDR EY. THIS W AS USED FO R TESTNG | |
168 | RPCLog.I nsertObjec t(0, Forma tDateTime( 'hh:mm:ss. zzz', Now) + ' ' + 'VitalsVi ewDLG', an Item); | |
169 | // vhais handria 20 08-02-06 = ========== ========== ========== ========== ======== e nd | |
170 | ||
171 | // calle d from Cov ersheet of the CPRS | |
172 | // no ne ed to twea k the time out since Applicatio n.Terminat e is worki ng | |
173 | // InitT imeOut(nil ); | |
174 | ||
175 | RPCBroke r := TCCOW RPCBroker( aBroker); | |
176 | RPCBroke r.ClearPar ameters := True; | |
177 | RPCBroke r.ClearRes ults := Tr ue; | |
178 | ||
179 | Result : = -1; | |
180 | if Check Version < 0 then | |
181 | Exit; | |
182 | ||
183 | if (aCon textIn <> '') and no t CreateCo ntext(aCon textIn) th en | |
184 | begin | |
185 | Mess ageDLG('Yo u do not h ave the <' + aContex tIn + '> o ptions' + #13 + | |
186 | 'P lease cont act IRMS', mtError, [mbOK], 0) ; | |
187 | Resu lt := -1; | |
188 | Exit ; | |
189 | end | |
190 | else | |
191 | begin | |
192 | Resu lt := Proc essInPatie ntVitals(a DFN, aLoca tion, Date Start, Dat eStop, aSi gnature, a Name, anIn fo, aHospi talName); | |
193 | if ( aContextOu t <> '') a nd not aBr oker.Creat eContext(a ContextOut ) then | |
194 | be gin | |
195 | MessageDLG ('You do n ot have th e <' + aCo ntextOut + | |
196 | 'options ' + #13 + 'Please co ntact IRMS ', mtError , [mbOK], 0); | |
197 | Result := -2; | |
198 | en d; | |
199 | end; | |
200 | // ShutD ownTimeOut ; | |
201 | WindowsL ogLine('Vt alsViewDLG : OK'); | |
202 | end; | |
203 | ||
204 | /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// / | |
205 | ||
206 | function V italsEnter DLG( | |
207 | const aB roker: TRP CBroker; | |
208 | aPatient , // '72' | |
209 | aLocatio n, // '36' | |
210 | aTemplat e, // '' | |
211 | aSignatu re: String ; // 'CPRS ' | |
212 | aDateTim e: TDateTi me; // 386 56.59678 | |
213 | aPatient Name, // ' SKYWALKER, LUKE' | |
214 | aPatient Info: Stri ng): Integ er; export ; stdcall; // ' 555- 11-2222 Ma y 20, 1966 (39) | |
215 | var | |
216 | anItem: TRPCEventI tem; | |
217 | begin | |
218 | // vhais handria 20 08-02-06 = ========== ========== ========== ========== ====== beg in | |
219 | anItem : = getRPCEv entItem(No w, Now, | |
220 | 'Vtals EnterDLG', | |
221 | ['DFN: ' + aPatient, | |
222 | 'Locat ion: ' + aLocation , | |
223 | 'Templ ate: ' + aTemplate , | |
224 | 'Signa ture: ' + aSignatur e, | |
225 | 'DateT ime: ' + FloatToSt r(aDateTim e), | |
226 | 'Name: ' + aPatientN ame, | |
227 | 'Info: ' + aPatientI nfo], | |
228 | nil, | |
229 | [], | |
230 | nil | |
231 | ); | |
232 | ||
233 | RPCLog.I nsertObjec t(0, Forma tDateTime( 'hh:mm:ss. zzz', Now) + ' ' + | |
234 | 'Vital sEnterDLG' , | |
235 | anItem ); | |
236 | // vhais handria 20 08-02-06 = ========== ========== ========== ========== ======== e nd | |
237 | Result : = -1; | |
238 | if Check Version < 0 then | |
239 | Exit; | |
240 | ||
241 | if aLoca tion = '' then | |
242 | begin | |
243 | Mess ageDLG('Un known pati ent locati on.' + #13 + #10 + ' Please sel ect locati on prior t o entering Vitals', mtError, [ mbOK], 0); | |
244 | Exit ; | |
245 | end; | |
246 | try | |
247 | RPCBro ker := TRP CBroker(aB roker); | |
248 | ||
249 | RPCBro ker.ClearP arameters := True; | |
250 | RPCBro ker.ClearR esults := True; | |
251 | ||
252 | Result := Vitals InputDLG( | |
253 | aPat ient, | |
254 | aLoc ation, | |
255 | aTem plate, | |
256 | aSig nature, | |
257 | aDat eTime, | |
258 | aPat ientName, | |
259 | aPat ientInfo | |
260 | ); | |
261 | except | |
262 | on E: Exception do | |
263 | Show Message('E rror: ' + E.Message) ; | |
264 | end; | |
265 | end; | |
266 | ||
267 | /// ////// ////////// ////////// ////////// ////////// ////////// ////////// //////// | |
268 | ||
269 | function V italsEnter Form(const aBroker: TRPCBroker ; aDFN, aL ocation, a Template, aSignature : String; aDateTime: TDateTime ): TfrmGMV _InputLite ; export; stdcall; | |
270 | begin | |
271 | RPCBroke r := TRPCB roker(aBro ker); | |
272 | ||
273 | RPCBroke r.ClearPar ameters := True; | |
274 | RPCBroke r.ClearRes ults := Tr ue; | |
275 | ||
276 | Result : = nil; | |
277 | if Check Version < 0 then | |
278 | Exit; | |
279 | ||
280 | Result : = VitalsIn putForm(aD FN, aLocat ion, aTemp late, aSig nature, aD ateTime); | |
281 | end; | |
282 | ||
283 | function g etVitalsVi ewForm( | |
284 | const aB roker: TRP CBroker; | |
285 | aDFN, | |
286 | aLocatio n, | |
287 | DateStar t, | |
288 | DateStop , | |
289 | aSignatu re, | |
290 | aContext In, | |
291 | aContext Out, | |
292 | aName, | |
293 | anInfo, | |
294 | aHospita lName: Str ing): Tfrm Vitals; ex port; stdc all; | |
295 | begin | |
296 | RPCBroke r := TCCOW RPCBroker( aBroker); | |
297 | RPCBroke r.ClearPar ameters := True; | |
298 | RPCBroke r.ClearRes ults := Tr ue; | |
299 | ||
300 | Result : = nil; | |
301 | if Check Version < 0 then | |
302 | Exit; | |
303 | ||
304 | Result : = getVital sForm(aDFN , aLocatio n, DateSta rt, DateSt op, | |
305 | aSigna ture, aNam e, anInfo, aHospital Name); | |
306 | end; | |
307 | ||
308 | function L atestVital sList(cons t aBroker: TRPCBroke r; aPatien t, aDelim: String; b Silent: Bo olean): TS tringList; export; s tdcall; | |
309 | var | |
310 | bParams, bResults: Boolean; | |
311 | begin | |
312 | bParams := aBroker .ClearPara meters; | |
313 | bResults := aBroke r.ClearRes ults; | |
314 | ||
315 | RPCBroke r := TCCOW RPCBroker( aBroker); | |
316 | RPCBroke r.ClearPar ameters := True; | |
317 | RPCBroke r.ClearRes ults := Tr ue; | |
318 | ||
319 | Result : = nil; | |
320 | if Check Version >= 0 then | |
321 | Result := GetLat estVitals( aPatient, aDelim, bS ilent); | |
322 | ||
323 | aBroker. ClearParam eters := b Params; | |
324 | aBroker. ClearResul ts := bRes ults; | |
325 | end; | |
326 | ||
327 | /// ////// ////////// ////////// ////////// ////////// ////////// ////////// ////////// / | |
328 | ||
329 | exports | |
330 | VitalsEn terDLG nam e 'GMV_Vit alsEnterDL G', // Vit alsInputDL G - fGMV_ InputLite | |
331 | VitalsVi ewDLG name 'GMV_Vita lsViewDLG' , // Proce ssInPatien tVitals - frmPatient Vitals | |
332 | getVital sViewForm name 'GMV_ VitalsView Form', // getVitalsF orm - frmP atientVita ls | |
333 | VitalsEn terForm na me 'GMV_Vi talsEnterF orm', // V italsInput Form - fG MV_InputLi te | |
334 | VitalsEx it name 'G MV_VitalsE xit', // A pplication .Terminate | |
335 | LatestVi talsList n ame 'GMV_L atestVital sList'; // GetLatest Vitals - f GMV_InputL ite | |
336 | ||
337 | begin | |
338 | ||
339 | (* | |
340 | There library GM V_VitalsVi ewEnter in cludes 6 f unctions: | |
341 | ||
342 | 'GMV_V italsExit' - p rocedure | |
343 | 'GMV_V italsEnter DLG' - f unction | |
344 | 'GMV_V italsViewD LG' - f unction | |
345 | 'GMV_V italsViewF orm' - f unction | |
346 | 'GMV_V italsEnter Form' - f unction | |
347 | 'GMV_L atestVital sList' - f unction | |
348 | ||
349 | proced ure GMV_Vi talsExit;e xport;stdc all; | |
350 | - no p arameters. | |
351 | Does n ot used in CPRS | |
352 | ||
353 | functi on GMV_Vit alsViewDLG ( | |
354 | const aBroker:TR PCBroker; | |
355 | aDFN, | |
356 | aLocat ion, | |
357 | DateSt art, | |
358 | DateSt op, | |
359 | aSigna ture, | |
360 | aConte xtIn, | |
361 | aConte xtOut, | |
362 | aName, | |
363 | anInfo , | |
364 | aHospi talName: S tring):Int eger;expor t;stdcall; | |
365 | ||
366 | Create d the Vita ls View wi ndow and s hows it as the modal dialog. | |
367 | Return s the resu lt of the modal dial og. | |
368 | Parame ters: | |
369 | aBroke r: TRPCBro ker - an n stance of the TRPCBr oker to be used for RPC execut ion | |
370 | aDFN: String - t he patient DFN | |
371 | aLocat ion: Strin g - the lo cation ID | |
372 | DateSt art: Strin g - date " From" Wind ows format | |
373 | DateSt op: String - date "T o" - Windo ws format | |
374 | aSigna ture: Stri ng - strin g identify ing the ca lling appl ication | |
375 | aConte xtIn: Stri ng - the a pplication context t o be set u p at start up of the function | |
376 | aConte xtOut: Str ing - the applicatio n context to be set up on exit of the fu nction | |
377 | aName: String - patient Na me | |
378 | anInfo : String - Patient i nfo | |
379 | aHospi talName: S tring - co ntains 2 p arts delim ited by '^ '. | |
380 | First part conta ins the ho spital nam e, second - the abbr eviation o f | |
381 | the Vi tals sign to be sele cted at th e start up | |
382 | Result Type: Int eger; | |
383 | ||
384 | ||
385 | functi on GMV_Vit alsEnterFo rm( | |
386 | const aBroker:TR PCBroker; | |
387 | aDFN, | |
388 | aLocat ion, | |
389 | aTempl ate, | |
390 | aSigna ture: Stri ng; | |
391 | aDateT ime:TDateT ime):TfrmG MV_InputLi te;export; stdcall; | |
392 | ||
393 | Create s the Vita ls Input f orm and re turns it t o the call ing applic ation | |
394 | Parame ters: | |
395 | aBroke r: TRPCBro ker - an n stance of the TRPCBr oker to be used for RPC execut ion | |
396 | aDFN: String - t he patient DFN | |
397 | aLocat ion: Strin g - the lo cation ID | |
398 | aTempl ate: Strin g - the te mplate ID to be used | |
399 | aSigna ture: Stri ng - strin g identify ing the ca lling appl ication | |
400 | aDateT ime: TDate Time - dat e to be us ed for the input | |
401 | Result type Tfrm GMV_InputL ite | |
402 | ||
403 | functi on GMV_Vit alsViewFor m( | |
404 | const aBroker:TR PCBroker; | |
405 | aDFN, | |
406 | aLocat ion, | |
407 | DateSt art, | |
408 | DateSt op, | |
409 | aSigna ture, | |
410 | aConte xtIn, | |
411 | aConte xtOut, | |
412 | aName, | |
413 | anInfo , | |
414 | aHospi talName: S tring):Tfr mVitals;ex port;stdca ll; | |
415 | ||
416 | Create d the Vita ls View wi ndow and r eturns it to the cal ling appli cation | |
417 | Parame ters: | |
418 | aBroke r: TRPCBro ker - an n stance of the TRPCBr oker to be used for RPC execut ion | |
419 | aDFN: String - t he patient DFN | |
420 | aLocat ion: Strin g - the lo cation ID | |
421 | DateSt art: Strin g - date " From" Wind ows format | |
422 | DateSt op: String - date "T o" - Windo ws format | |
423 | aSigna ture: Stri ng - strin g identify ing the ca lling appl ication | |
424 | aConte xtIn: Stri ng - the a pplication context t o be set u p at start up of the function | |
425 | aConte xtOut: Str ing - the applicatio n context to be set up on exit of the fu nction | |
426 | aName: String - patient Na me | |
427 | anInfo : String - Patient i nfo | |
428 | aHospi talName: S tring - co ntains 2 p arts delim ited by '^ '. | |
429 | First part conta ins the ho spital nam e, second - the abbr eviation o f | |
430 | the Vi tals sign to be sele cted at th e start up | |
431 | Result : TfrmVita ls; | |
432 | ||
433 | functi on GMV_La testVitals List( | |
434 | const aBroker:TR PCBroker; | |
435 | aPatie nt, | |
436 | aDelim :String; | |
437 | bSilen t:Boolean) :TStringLi st;export; stdcall; | |
438 | ||
439 | Return s the list of string s with the set of la test Vital s signs fo r the pati ent; | |
440 | Parame ters: | |
441 | aBroke r: TRPCBro ker - an n stance of the TRPCBr oker to be used for RPC execut ion | |
442 | aPatie nt: String - the pat ient DFN | |
443 | aDelim : String - reserved | |
444 | bSilen t: Boolean - if True no error messages w ill be gen erated | |
445 | Result Type: TSt ringList | |
446 | ||
447 | *) | |
448 | ||
449 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.