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\VITALSCOMMON | uGMV_FileEntry.pas | Tue Dec 13 18:25:58 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON | uGMV_FileEntry.pas | Fri Mar 31 15:01:25 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 1056 |
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 | unit uGMV_ FileEntry; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 12 /20/07 12: 44p $ | |
7 | * Developer: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: File Ent ry | |
11 | * | |
12 | * No tes: | |
13 | * | |
14 | ========== ========== ========== ========== ========== ========== ========== ========== | |
15 | * $A rchive: /V itals/5.0 (Version 5 .0)/5.0.23 (Patch 23 )/VITALS_5 _0_23_8/So urce/VITAL SCOMMON/uG MV_FileEnt ry.pas $ | |
16 | * | |
17 | * $History : uGMV_Fil eEntry.pas $ | |
18 | * | |
19 | * ******* ********** Version 1 ******* ********** | |
20 | * User: V haishandri a Date: 8/ 12/09 T ime: 8:29a | |
21 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/VITALSCO MMON | |
22 | * | |
23 | * ******* ********** Version 1 ******* ********** | |
24 | * User: V haishandri a Date: 3/ 09/09 T ime: 3:38p | |
25 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/VITALSCO MMON | |
26 | * | |
27 | * ******* ********** Version 1 ******* ********** | |
28 | * User: V haishandri a Date: 1/ 13/09 T ime: 1:26p | |
29 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSCO MMON | |
30 | * | |
31 | * ******* ********** Version 2 ******* ********** | |
32 | * User: V haishandri a Date: 7/ 18/07 T ime: 12:42 p | |
33 | * Updated in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON | |
34 | * | |
35 | * ******* ********** Version 1 ******* ********** | |
36 | * User: V haishandri a Date: 5/ 14/07 T ime: 10:29 a | |
37 | * Created in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON | |
38 | * | |
39 | * ******* ********** Version 1 ******* ********** | |
40 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:43p | |
41 | * Created in $/Vita ls/VITALS- 5-0-18/Vit alsCommon | |
42 | * GUI v. 5.0.18 upd ates the d efault vit al type IE Ns with th e local | |
43 | * values. | |
44 | * | |
45 | * ******* ********** Version 1 ******* ********** | |
46 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:33p | |
47 | * Created in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon | |
48 | * | |
49 | * ******* ********** Version 1 ******* ********** | |
50 | * User: V haishandri a Date: 5/ 24/05 T ime: 3:33p | |
51 | * Created in $/Vita ls/Vitals GUI v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7 (CASMed, No CCOW) - Delphi 6/ VitalsComm on | |
52 | * | |
53 | * ******* ********** Version 1 ******* ********** | |
54 | * User: V haishandri a Date: 4/ 16/04 T ime: 4:18p | |
55 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, CPRS, Delphi 7) /VITALSCOM MON | |
56 | * | |
57 | ========== ========== ========== ========== ========== ========== ========== ========== | |
58 | } | |
59 | ||
60 | interface | |
61 | ||
62 | uses | |
63 | SysUtils | |
64 | , Classe s | |
65 | , Dialog s | |
66 | ; | |
67 | ||
68 | type | |
69 | ||
70 | TGMV_Fil eReference = class(T Object) | |
71 | private | |
72 | FTypes : TStringL ist; | |
73 | FDDNum ber: strin g; | |
74 | FFileN ame: strin g; | |
75 | fLoade dLast: str ing; // vh aishandria 060801 | |
76 | fLoade d: Boolean ; // vhais handria 06 0801 | |
77 | functi on GetName (Index: in teger): st ring; | |
78 | public | |
79 | constr uctor Crea te; virtua l; | |
80 | destru ctor Destr oy; overri de; | |
81 | proced ure LoadEn tries(File Number: st ring); | |
82 | proced ure LoadEn triesConve rted(FileN umber: str ing);//AAN 01/22/200 3 sorting problem | |
83 | functi on LoadEnt riesStartC ount(FileN umber, Sta rtNumber: string; | |
84 | Coun t: Integer ): Integer ; // vha ishandria 060801 | |
85 | proced ure Displa y; | |
86 | functi on IndexOf IEN(IEN: s tring): in teger; | |
87 | functi on NameOfI EN(IEN:Str ing):Strin g; | |
88 | proper ty Name[In dex: integ er]: strin g read Get Name; | |
89 | proper ty Loaded: Boolean r ead fLoade d; | |
90 | publishe d | |
91 | proper ty Entries : TStringL ist read F Types; | |
92 | end; | |
93 | ||
94 | TGMV_Vit alType = c lass(TGMV_ FileRefere nce) | |
95 | public | |
96 | constr uctor Crea te; overri de; | |
97 | end; | |
98 | ||
99 | TGMV_Vit alQual = c lass(TGMV_ FileRefere nce) | |
100 | public | |
101 | constr uctor Crea te; overri de; | |
102 | end; | |
103 | ||
104 | TGMV_Vit alCat = cl ass(TGMV_F ileReferen ce) | |
105 | public | |
106 | constr uctor Crea te; overri de; | |
107 | end; | |
108 | ||
109 | TGMV_War dLocation = class(TG MV_FileRef erence) | |
110 | public | |
111 | constr uctor Crea te; overri de; | |
112 | proced ure LoadWa rds; | |
113 | end; | |
114 | ||
115 | TGMV_Tea ms = class (TGMV_File Reference) | |
116 | public | |
117 | constr uctor Crea te; overri de; | |
118 | end; | |
119 | ||
120 | TGMV_Cli nics = cla ss(TGMV_Fi leReferenc e) | |
121 | public | |
122 | constr uctor Crea te; overri de; | |
123 | end; | |
124 | ||
125 | TGMV_Nur singUnit = class(TGM V_FileRefe rence) | |
126 | public | |
127 | constr uctor Crea te; overri de; | |
128 | end; | |
129 | ||
130 | TGMV_Fil eEntry = c lass(TObje ct) | |
131 | private | |
132 | FDDNum ber: strin g; | |
133 | FCapti on: string ; | |
134 | FIEN: string; | |
135 | FCapti onConverte d:String;/ / AAN - so rting prob lem 01/21/ 2003 | |
136 | proced ure SetCap tion(const Value: st ring); | |
137 | proced ure SetCap tionConver ted(const Value: str ing);// AA N - sortin g problem 01/22/2003 | |
138 | proced ure SetDDN umber(cons t Value: s tring); | |
139 | proced ure SetIEN (const Val ue: string ); | |
140 | functi on GetIENS : string; | |
141 | public | |
142 | constr uctor Crea te; | |
143 | constr uctor Crea teFromRPC( Data: stri ng); | |
144 | destru ctor Destr oy; overri de; | |
145 | functi on FieldDa ta(FieldNu mber: stri ng): strin g; | |
146 | publishe d | |
147 | proper ty DDNumbe r: string read FDDNu mber write SetDDNumb er; | |
148 | proper ty IEN: st ring read FIEN write SetIEN; | |
149 | proper ty Caption : string r ead FCapti on write S etCaption; | |
150 | proper ty Caption Converted: string re ad FCaptio nConverted write Set CaptionCon verted; // AAN - sor ting probl em 01/21/2 003 | |
151 | proper ty IENS: s tring read GetIENS; | |
152 | end; | |
153 | ||
154 | var | |
155 | GMVTypes : TGMV_Vit alType; | |
156 | GMVQuals : TGMV_Vit alQual; | |
157 | GMVCats: TGMV_Vita lCat; | |
158 | GMVWardL ocations: TGMV_WardL ocation; | |
159 | GMVTeams : TGMV_Tea ms; | |
160 | GMVClini cs: TGMV_C Linics; | |
161 | GMVNursi ngUnits: T GMV_Nursin gUnit; | |
162 | ||
163 | procedure CreateGMVG lobalVars; | |
164 | procedure ReleaseGMV GlobalVars ; | |
165 | ||
166 | const | |
167 | LOAD_LIM IT = 10; | |
168 | ||
169 | procedure InitVitals IENS; | |
170 | ||
171 | implementa tion | |
172 | ||
173 | uses uGMV_ Common | |
174 | , uGMV_U tils | |
175 | , uGMV_V italTypes | |
176 | , uGMV_E ngine | |
177 | ; | |
178 | ||
179 | { GMV_Vita lType } | |
180 | ||
181 | constructo r TGMV_Fil eReference .Create; | |
182 | begin | |
183 | FTypes : = TStringL ist.Create ; | |
184 | fLoaded := False; // vhaisha ndria 0608 01 | |
185 | fLoadedL ast := ''; // vhaish andria 060 801 | |
186 | end; | |
187 | ||
188 | destructor TGMV_File Reference. Destroy; | |
189 | begin | |
190 | FreeAndN il(FTypes) ; | |
191 | inherite d; | |
192 | end; | |
193 | ||
194 | procedure TGMV_FileR eference.L oadEntries (FileNumbe r: string) ; | |
195 | var | |
196 | i: integ er; | |
197 | fe: TGMV _FileEntry ; | |
198 | RetList: TStrings; | |
199 | s: Strin g; | |
200 | begin | |
201 | FDDNumbe r := FileN umber; | |
202 | ||
203 | RetList := getFile Entries(FD DNumber); | |
204 | if RetLi st.Count > 0 then | |
205 | begin | |
206 | FFil eName := C opy(RetLis t[0], Pos( '^', RetLi st[0]), Le ngth(RetLi st[0])); | |
207 | FTyp es.Sorted := True; / /AAN 08/08 /2002 | |
208 | for i := 1 to RetList.Co unt - 1 do | |
209 | be gin | |
210 | s := RetLi st[i]; | |
211 | fe := TGMV _FileEntry .CreateFro mRPC(s); | |
212 | FTypes.Add Object(fe. Caption, f e); | |
213 | en d; | |
214 | end; | |
215 | fLoaded := True; | |
216 | RetList. Free; | |
217 | end; | |
218 | ||
219 | procedure TGMV_FileR eference.L oadEntries Converted( FileNumber : string); | |
220 | var | |
221 | i: integ er; | |
222 | fe: TGMV _FileEntry ; | |
223 | s: Strin g; | |
224 | RetList: TStrings; | |
225 | begin | |
226 | FDDNumbe r := FileN umber; | |
227 | // pulli ng records in severa l steps to avoid tim eouts | |
228 | s := '0' ; | |
229 | repeat | |
230 | s := F ileNumber + '^'+ s; | |
231 | RetL ist := get FileEntrie s(s); | |
232 | if R etList.Cou nt > 0 the n | |
233 | be gin | |
234 | FFileName := Copy(Re tList[0], Pos('^', R etList[0]) , Length(R etList[0]) ); | |
235 | FTypes.Sor ted := Tru e; //AAN 0 8/08/2002 | |
236 | for i := 1 to RetLis t.Count - 1 do | |
237 | begin | |
238 | fe := TGMV_FileE ntry.Creat eFromRPC(R etList[i]) ; | |
239 | FTypes .AddObject (fe.Captio nConverted , fe); | |
240 | s := f e.FIEN; | |
241 | end; | |
242 | if RetList .Count < 1 2 then | |
243 | s := ''; | |
244 | en d; | |
245 | RetLis t.Free; | |
246 | until s = ''; | |
247 | fLoaded := True; | |
248 | end; | |
249 | ||
250 | function T GMV_FileRe ference.Lo adEntriesS tartCount( FileNumber , StartNum ber: strin g; | |
251 | Count: I nteger): I nteger; | |
252 | var | |
253 | iCount, i: integer ; | |
254 | fe: TGMV _FileEntry ; | |
255 | s: Strin g; | |
256 | RetList: TStrings; | |
257 | begin | |
258 | FTypes.S orted := T rue; | |
259 | FDDNumbe r := FileN umber; | |
260 | fLoadedL ast := Sta rtNumber; | |
261 | iCount : = Count; | |
262 | repeat | |
263 | s := F ileNumber + '^'+ fLo adedLast; | |
264 | RetLis t := getFi leEntries( s); | |
265 | if Ret List.Count > 1 then | |
266 | begi n | |
267 | FF ileName := Copy(RetL ist[0], Po s('^', Ret List[0]), Length(Ret List[0])); | |
268 | fo r i := 1 t o RetList. Count - 1 do // vha ishandria 060801 | |
269 | begin | |
270 | fe := TG MV_FileEnt ry.CreateF romRPC(Ret List[i]); | |
271 | FTypes.A ddObject(f e.CaptionC onverted, fe); | |
272 | fLoadedL ast := fe. FIEN; | |
273 | dec(iCou nt); | |
274 | if iCoun t = 0 then break; | |
275 | end; | |
276 | if i < RetLi st.Count-1 then | |
277 | begin | |
278 | s := ''; | |
279 | if iCoun t > 0 then | |
280 | fLoade d := True; | |
281 | end; | |
282 | end | |
283 | else | |
284 | begi n | |
285 | fL oaded := T rue; | |
286 | br eak; | |
287 | end; | |
288 | RetLis t.Free; | |
289 | until (s = '') or (iCount=0) ; | |
290 | Result : = Count - iCount; | |
291 | end; | |
292 | ||
293 | function T GMV_FileRe ference.In dexOfIEN(I EN: string ): integer ; | |
294 | var | |
295 | i: integ er; | |
296 | begin | |
297 | Result : = -1; | |
298 | for i := 0 to FTyp es.Count - 1 do | |
299 | if TGM V_FileEntr y(FTypes.O bjects[i]) .IEN = IEN then | |
300 | begi n | |
301 | Re sult := i; | |
302 | Ex it; | |
303 | end; | |
304 | end; | |
305 | ||
306 | function T GMV_FileRe ference.Na meOfIEN(IE N:String): String; | |
307 | begin | |
308 | try | |
309 | result := FTypes [IndexOfIE N(IEN)]; | |
310 | except | |
311 | Result := ''; | |
312 | end; | |
313 | end; | |
314 | ||
315 | procedure TGMV_FileR eference.D isplay; | |
316 | var | |
317 | x: strin g; | |
318 | i: integ er; | |
319 | begin | |
320 | x := Sel f.ClassNam e + ' disp lay' + #13 + | |
321 | 'FileN ame: ' + F FileName + #13 + | |
322 | 'Data Dictionary : ' + FDDN umber; | |
323 | for i := 0 to FTyp es.Count - 1 do | |
324 | x := x + #13 + ' IEN: ' + T GMV_FileEn try(FTypes .Objects[i ]).IEN + # 9 + FTypes [i]; | |
325 | ShowMess age(x); {D ebug tool! } | |
326 | end; | |
327 | ||
328 | function T GMV_FileRe ference.Ge tName(Inde x: integer ): string; | |
329 | var | |
330 | i: integ er; | |
331 | begin | |
332 | if Index = 0 then | |
333 | Result := '' | |
334 | else | |
335 | begin | |
336 | Resu lt := '*No Such Entr y*'; | |
337 | for i := 0 to FTypes.Cou nt - 1 do | |
338 | if integer(F Types.Obje cts[i]) = Index then | |
339 | begin | |
340 | Result : = FTypes[i ]; | |
341 | Exit; | |
342 | end; | |
343 | end; | |
344 | end; | |
345 | ||
346 | { TGMV_Vit alType } | |
347 | ||
348 | constructo r TGMV_Vit alType.Cre ate; | |
349 | begin | |
350 | inherite d Create; | |
351 | LoadEntr ies('120.5 1'); | |
352 | end; | |
353 | ||
354 | { TGMV_Vit alQual } | |
355 | ||
356 | constructo r TGMV_Vit alQual.Cre ate; | |
357 | begin | |
358 | inherite d Create; | |
359 | LoadEntr ies('120.5 2'); | |
360 | end; | |
361 | ||
362 | { TGMV_Vit alCat } | |
363 | ||
364 | constructo r TGMV_Vit alCat.Crea te; | |
365 | begin | |
366 | inherite d Create; | |
367 | LoadEntr ies('120.5 3'); | |
368 | end; | |
369 | ||
370 | { TGMV_War dLocation } | |
371 | ||
372 | constructo r TGMV_War dLocation. Create; | |
373 | begin | |
374 | inherite d Create; | |
375 | //LoadEn tries('42' ); | |
376 | end; | |
377 | ||
378 | procedure TGMV_WardL ocation.Lo adWards; | |
379 | var | |
380 | i: integ er; | |
381 | fe: TGMV _FileEntry ; | |
382 | RetList: TStrings; | |
383 | s,sName, sID: Strin g; | |
384 | begin | |
385 | FDDNumbe r := '42'; | |
386 | ||
387 | RetList := getWard Locations( 'A');// Re turn ALL W ards | |
388 | if RetLi st.Count > 0 then | |
389 | begin | |
390 | // FF ileName := Copy(RetL ist[0], Po s('^', Ret List[0]), Length(Ret List[0])); | |
391 | FFil eName := ' 42'; | |
392 | FTyp es.Sorted := True; / /AAN 08/08 /2002 | |
393 | // fo r i := 1 t o RetList. Count - 1 do | |
394 | for i := 0 to RetList.Co unt - 1 do | |
395 | be gin | |
396 | s := RetLi st[i]; | |
397 | sName := p iece(s,'^' ,2); | |
398 | sID := pie ce(s,'^',3 ); | |
399 | // fe := TG MV_FileEnt ry.CreateF romRPC(Ret List[i]); | |
400 | fe := TGMV _FileEntry .CreateFro mRPC('42;' +sID+'^'+s Name); | |
401 | FTypes.Add Object(fe. Caption, f e); | |
402 | en d; | |
403 | end; | |
404 | fLoaded := True; | |
405 | RetList. Free; | |
406 | end; | |
407 | ||
408 | ||
409 | { TGMV_Tea ms } | |
410 | ||
411 | constructo r TGMV_Tea ms.Create; | |
412 | begin | |
413 | inherite d Create; | |
414 | //LoadEn tries('100 .21'); | |
415 | end; | |
416 | ||
417 | { TGMV_CLi nics } | |
418 | ||
419 | constructo r TGMV_Cli nics.Creat e; | |
420 | begin | |
421 | inherite d Create; | |
422 | //LoadEn tries('44' ); | |
423 | end; | |
424 | ||
425 | { TGMV_Nur singUnit } | |
426 | ||
427 | constructo r TGMV_Nur singUnit.C reate; | |
428 | begin | |
429 | inherite d Create; | |
430 | //LoadEn tries('211 .4'); | |
431 | end; | |
432 | ||
433 | { TGMV_Fil eEntry } | |
434 | ||
435 | constructo r TGMV_Fil eEntry.Cre ate; | |
436 | begin | |
437 | inherite d; | |
438 | end; | |
439 | ||
440 | constructo r TGMV_Fil eEntry.Cre ateFromRPC (Data: str ing); | |
441 | begin | |
442 | inherite d Create; | |
443 | FDDNumbe r := Piece (Data, ';' , 1); | |
444 | FIEN := Piece(Piec e(Data, '; ', 2), '^' , 1); | |
445 | FCaption := Piece( Data, '^', 2); | |
446 | FCaption Converted := Replace Punctuatio n(FCaption )+' ('+FIE N+')'; //A AN 01/21/2 003 - Sort ing Proble m | |
447 | FCaption Converted := Replace Punctuatio n(FCaption ); //AAN 0 5/21/2003 - hiding I ENS | |
448 | end; | |
449 | ||
450 | destructor TGMV_File Entry.Dest roy; | |
451 | begin | |
452 | inherite d; | |
453 | end; | |
454 | ||
455 | procedure TGMV_FileE ntry.SetCa ption(cons t Value: s tring); | |
456 | begin | |
457 | FCaption := Value; | |
458 | end; | |
459 | ||
460 | // AAN - s orting pro blem 01/22 /2003 | |
461 | procedure TGMV_FileE ntry.SetCa ptionConve rted(const Value: st ring); | |
462 | begin | |
463 | FCaption Converted := Value; | |
464 | end; | |
465 | ||
466 | procedure TGMV_FileE ntry.SetDD Number(con st Value: string); | |
467 | begin | |
468 | FDDNumbe r := Value ; | |
469 | end; | |
470 | ||
471 | procedure TGMV_FileE ntry.SetIE N(const Va lue: strin g); | |
472 | begin | |
473 | FIEN := Value; | |
474 | end; | |
475 | ||
476 | function T GMV_FileEn try.GetIEN S: string; | |
477 | begin | |
478 | GetIENS := FIEN + ','; | |
479 | end; | |
480 | ||
481 | function T GMV_FileEn try.FieldD ata(FieldN umber: str ing): stri ng; | |
482 | begin | |
483 | Result : = getFileF ield(FDDNu mber,Field Number,IEN S); | |
484 | end; | |
485 | ||
486 | procedure InitVitals IENS; | |
487 | var | |
488 | SL : TSt ringList; | |
489 | begin | |
490 | try | |
491 | SL := g etVitalsID List; | |
492 | if SL. Count = 11 then | |
493 | begi n // the order of V itals is f ixed in th e routine | |
494 | GM VVitalType IEN[vtUnkn own] := SL [0]; | |
495 | GM VVitalType IEN[vtTemp ] := SL[1] ; | |
496 | GM VVitalType IEN[vtPuls e] := SL[2 ]; | |
497 | GM VVitalType IEN[vtResp ] := SL[3] ; | |
498 | GM VVitalType IEN[vtBP] := SL[4]; | |
499 | GM VVitalType IEN[vtHeig ht] := SL[ 5]; | |
500 | GM VVitalType IEN[vtWeig ht] := SL[ 6]; | |
501 | GM VVitalType IEN[vtPain ] := SL[7] ; | |
502 | GM VVitalType IEN[vtPO2] := SL[8]; | |
503 | GM VVitalType IEN[vtCVP] := SL[9]; | |
504 | GM VVitalType IEN[vtCirc um] := SL[ 10]; | |
505 | end; | |
506 | SL.Fre e; | |
507 | except | |
508 | end; | |
509 | end; | |
510 | ||
511 | procedure CreateGMVG lobalVars; | |
512 | begin | |
513 | if not A ssigned(GM VTypes) th en | |
514 | GMVTyp es := TGMV _VitalType .Create; | |
515 | InitVita lsIENS;//A AN 12/04/0 2 Fixed Vi tals types code upda te | |
516 | if not A ssigned(GM VQuals) th en | |
517 | GMVQua ls := TGMV _VitalQual .Create; | |
518 | if not A ssigned(GM VCats) the n | |
519 | GMVCat s := TGMV_ VitalCat.C reate; | |
520 | end; | |
521 | ||
522 | procedure ReleaseGMV GlobalVars ; | |
523 | begin | |
524 | FreeAndN il(GMVCats ); | |
525 | FreeAndN il(GMVQual s); | |
526 | FreeAndN il(GMVType s); | |
527 | end; | |
528 | ||
529 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.