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\APP-VITALSMANAGER | mGMV_VitalHiLo.pas | Tue Dec 13 18:26:10 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER | mGMV_VitalHiLo.pas | Fri Mar 31 14:59:58 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 678 |
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 mGMV_ VitalHiLo; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals M anager | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 2/ 27/09 3:11 p $ | |
7 | * Developer: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: Frame fo r entering in Max/Mi n abnormal values fo r vitals. | |
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/APP-V ITALSMANAG ER/mGMV_Vi talHiLo.pa s $ | |
16 | * | |
17 | * $History : mGMV_Vit alHiLo.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/APP-VITA LSMANAGER | |
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/APP-VITA LSMANAGER | |
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/APP-VITA LSMANAGER | |
30 | * | |
31 | * ******* ********** Version 1 ******* ********** | |
32 | * User: V haishandri a Date: 5/ 11/07 T ime: 3:14p | |
33 | * Created in $/Vita ls GUI 200 7/Vitals-5 -0-18/APP- VITALSMANA GER | |
34 | * | |
35 | * ******* ********** Version 1 ******* ********** | |
36 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:40p | |
37 | * Created in $/Vita ls/VITALS- 5-0-18/APP -VitalsMan ager | |
38 | * GUI v. 5.0.18 upd ates the d efault vit al type IE Ns with th e local | |
39 | * values. | |
40 | * | |
41 | * ******* ********** Version 1 ******* ********** | |
42 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:30p | |
43 | * Created in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /APP-Vital sManager | |
44 | * | |
45 | * ******* ********** Version 2 ******* ********** | |
46 | * User: V haishandri a Date: 7/ 22/05 T ime: 3:51p | |
47 | * Updated in $/Vita ls/Vitals GUI v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7 (CASMed, CCOW) - De lphi 6/Vit alsManager -503 | |
48 | * | |
49 | * ******* ********** Version 1 ******* ********** | |
50 | * User: V haishandri a Date: 5/ 24/05 T ime: 4:56p | |
51 | * Created in $/Vita ls/Vitals GUI v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7 (CASMed, CCOW) - De lphi 6/Vit alsManager -503 | |
52 | * | |
53 | * ******* ********** Version 1 ******* ********** | |
54 | * User: V haishandri a Date: 4/ 16/04 T ime: 4:22p | |
55 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, CPRS, Delphi 7) /VITALSMAN AGER-503 | |
56 | * | |
57 | * ******* ********** Version 1 ******* ********** | |
58 | * User: V haishandri a Date: 1/ 26/04 T ime: 1:09p | |
59 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsM anager | |
60 | * | |
61 | * ******* ********** Version 3 ******* ********** | |
62 | * User: V haishandri a Date: 7/ 05/02 T ime: 3:49p | |
63 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
64 | * | |
65 | * ******* ********** Version 2 ******* ********** | |
66 | * User: V haishpetit d Date: 6/ 06/02 T ime: 11:12 a | |
67 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
68 | * Roll-up to 5.0.0. 27 | |
69 | * | |
70 | * ******* ********** Version 1 ******* ********** | |
71 | * User: V haishpetit d Date: 4/ 04/02 T ime: 3:44p | |
72 | * Created in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
73 | * | |
74 | * | |
75 | * | |
76 | ========== ========== ========== ========== ========== ========== ========== ========== | |
77 | } | |
78 | ||
79 | interface | |
80 | ||
81 | uses | |
82 | Windows, | |
83 | Messages , | |
84 | SysUtils , | |
85 | Classes, | |
86 | Graphics , | |
87 | Controls , | |
88 | Forms, | |
89 | Dialogs, | |
90 | ComCtrls , | |
91 | StdCtrls , | |
92 | ExtCtrls , | |
93 | uGMV_Com mon | |
94 | , uGMV_Vit alTypes; | |
95 | ||
96 | type | |
97 | TGMV_Vit alHiLo = ( | |
98 | hlUnkn own, | |
99 | hlHigh , | |
100 | hlLow) ; | |
101 | type | |
102 | TGMV_Vit alHiLoType = ( | |
103 | hltUnk nown, | |
104 | hltSys tolic, | |
105 | hltDia stolic, | |
106 | hltTem perature, | |
107 | hltRes piration, | |
108 | hltPul se, | |
109 | hltCVP , | |
110 | hltO2S at); | |
111 | ||
112 | type | |
113 | TGMV_Vit alHiLoDefi nition = c lass(TObje ct) | |
114 | private | |
115 | FMinim um: intege r; | |
116 | FMaxim um: intege r; | |
117 | FIncre ment: inte ger; | |
118 | FVital Type: TGMV _VitalHiLo Type; | |
119 | public | |
120 | constr uctor Crea te( | |
121 | Vita lType: TGM V_VitalHiL oType; | |
122 | Mini mum: integ er; | |
123 | Maxi mum: integ er; | |
124 | Incr ement: int eger); | |
125 | // dest ructor Des troy; over ride; | |
126 | publishe d | |
127 | proper ty VitalTy pe: TGMV_V italHiLoTy pe | |
128 | read FVitalTyp e; | |
129 | proper ty Maximum : integer | |
130 | read FMaximum; | |
131 | proper ty Minimum : integer | |
132 | read FMinimum; | |
133 | proper ty Increme nt: intege r | |
134 | read FIncremen t; | |
135 | end; | |
136 | ||
137 | ||
138 | type | |
139 | TfraVita lHiLo = cl ass(TFrame ) | |
140 | Panel1 : TPanel; | |
141 | pnlVal ue: TPanel ; | |
142 | edtVal ue: TEdit; | |
143 | pnlSli der: TPane l; | |
144 | tkbar: TTrackBar ; | |
145 | pnlHea der: TPane l; | |
146 | lblNam e: TLabel; | |
147 | lblHiL o: TLabel; | |
148 | lblRan ge: TLabel ; | |
149 | pnlMin Max: TPane l; | |
150 | lblMax : TLabel; | |
151 | lblMin : TLabel; | |
152 | pnlSpa cer: TPane l; | |
153 | gb: TG roupBox; | |
154 | proced ure pnlSli derResize( Sender: TO bject); | |
155 | proced ure tkbarC hange(Send er: TObjec t); | |
156 | functi on SetValu e(var NewV al: string ): Boolean ; | |
157 | functi on SaveVal ue: Boolea n; | |
158 | proced ure edtVal ueExit(Sen der: TObje ct); | |
159 | proced ure pnlVal ueResize(S ender: TOb ject); | |
160 | private | |
161 | FHighL ow: TGMV_V italHiLo; | |
162 | FVital Type: TGMV _VitalHiLo Type; | |
163 | { Priv ate declar ations } | |
164 | public | |
165 | proced ure SetUpF rame( | |
166 | Vita lType: TGM V_VitalHiL oType; | |
167 | High OrLow: TGM V_VitalHiL o; | |
168 | Mini mum, Maxim um, Increm ent: Integ er); | |
169 | functi on HiLoVal ue: Intege r; | |
170 | functi on CheckLi mits:Boole an; | |
171 | { Publ ic declara tions } | |
172 | end; | |
173 | ||
174 | const | |
175 | GMVVITAL HILO: arra y[TGMV_Vit alHiLo] of string = ('Unknown' , 'High', 'Low'); | |
176 | GMVVITAL HILOTYPES: array[TGM V_VitalHiL oType] of string = ( | |
177 | 'Un known', 'S ystolic', 'Diastolic ', 'Temper ature', 'R espiration ', 'Pulse' , 'CVP', ' Pulse Oxim etry');//A AN 2003/06 /04 'Pulse Oximetry' | |
178 | GMVVital HiLoFields : array[TG MV_VitalHi LoType, TG MV_VitalHi Lo] of str ing = | |
179 | (('',' ','') | |
180 | ,('',' 5.7','5.8' ) // Sys tolic | |
181 | ,('',' 5.71','5.8 1') // Dia stolic | |
182 | ,('',' 5.1','5.2' ) // Tem perature | |
183 | ,('',' 5.5','5.6' ) // Res piration | |
184 | ,('',' 5.3','5.4' ) // Pul se | |
185 | ,('',' 6.1','6.2' ) // CVP | |
186 | ,('',' ','6.3') // Pul se Ox | |
187 | ); | |
188 | var | |
189 | // GMVVit alHiLoFiel ds: array[ TGMV_Vital HiLoType, TGMV_Vital HiLo] of s tring; | |
190 | GMVVital HiRange: a rray[TVita lType] of Double; | |
191 | GMVVital LoRange: a rray[TVita lType] of Double; | |
192 | ||
193 | ||
194 | implementa tion | |
195 | ||
196 | uses | |
197 | // uROR_R PCBroker, fROR_PCall , | |
198 | uGMV_Eng ine; | |
199 | ||
200 | {$R *.DFM} | |
201 | ||
202 | const | |
203 | RPC_MANA GER = 'GMV MANAGER'; | |
204 | ||
205 | { TGMV_Vit alHiLoDefi nition } | |
206 | ||
207 | constructo r TGMV_Vit alHiLoDefi nition.Cre ate( | |
208 | VitalTyp e: TGMV_Vi talHiLoTyp e; | |
209 | Minimum, Maximum, Increment: integer); | |
210 | begin | |
211 | inherite d Create; | |
212 | FVitalTy pe := Vita lType; | |
213 | FMinimum := Minimu m; | |
214 | FMaximum := Maximu m; | |
215 | FIncreme nt := Incr ement; | |
216 | end; | |
217 | ||
218 | ||
219 | { TfraVita lHiLo } | |
220 | ||
221 | procedure TfraVitalH iLo.SetUpF rame( | |
222 | VitalTyp e: TGMV_Vi talHiLoTyp e; | |
223 | HighOrLo w: TGMV_Vi talHiLo; | |
224 | Minimum, Maximum, Increment: Integer); | |
225 | var | |
226 | InitVal: Integer; | |
227 | s, | |
228 | textVal: string; | |
229 | begin | |
230 | FVitalTy pe := Vita lType; | |
231 | FHighLow := HighOr Low; | |
232 | lblName. Caption := GMVVITALH ILOTYPES[F VitalType] ; | |
233 | lblHiLo. Caption := GMVVITALH ILO[FHighL ow]; | |
234 | lblRange .Caption : = Format(' %d..%d',[M inimum,Max imum]); | |
235 | ||
236 | gb.Capti on := lblN ame.Captio n + ' ' + lblHiLo.C aption; | |
237 | ||
238 | lblMin.C aption := IntToStr(M inimum); | |
239 | lblMax.C aption := IntToStr(M aximum); | |
240 | tkbar.Mi n := Minim um; | |
241 | tkbar.Ma x := Maxim um; | |
242 | tkbar.Fr equency := Increment ; | |
243 | // CallRe moteProc(R PCBroker,R PC_MANAGER ,['GETHILO ', GMVVita lHiLoField s[FVitalTy pe, FHighL ow]],nil); | |
244 | s := get VitalHiLo( GMVVitalHi LoFields[F VitalType, FHighLow] ); | |
245 | // InitVa l := StrTo IntDef(RPC Broker.Res ults[0], 9 999); | |
246 | InitVal := StrToIn tDef(s, 99 99); | |
247 | if (Init Val < tkba r.Min) or (InitVal > tkBar.Max ) then | |
248 | begin | |
249 | Mess ageDlg('In valid valu e retrieve d ' + s, m tInformati on, [mbok] , 0); | |
250 | tkba r.Position := tkbar. Min; | |
251 | edtV alue.Text := IntToSt r(tkbar.Mi n); | |
252 | end | |
253 | else | |
254 | begin | |
255 | text Val := Int ToStr(Init Val); | |
256 | SetV alue(textV al); | |
257 | edtV alue.Text := textVal ; | |
258 | end; | |
259 | end; | |
260 | ||
261 | function T fraVitalHi Lo.HiLoVal ue: Intege r; | |
262 | begin | |
263 | Result : = tkbar.Po sition; | |
264 | end; | |
265 | ||
266 | function T fraVitalHi Lo.SaveVal ue: Boolea n; | |
267 | var | |
268 | s: Strin g; | |
269 | begin | |
270 | // CallRe moteProc(R PCBroker, RPC_MANAGE R,['SETHIL O', GMVVit alHiLoFiel ds[FVitalT ype, FHigh Low] + '^' + edtValu e.Text],ni l); | |
271 | s := set VitalHiLo( GMVVitalHi LoFields[F VitalType, FHighLow] ,edtValue. Text); | |
272 | // if Pie ce(RPCBrok er.Results [0], '^', 1) <> '-1' then | |
273 | if Piece (s, '^', 1 ) <> '-1' then | |
274 | Result := True | |
275 | else | |
276 | begin | |
277 | Mess ageDlg('Er ror saving abnormal value.' + #13 + piec e(s, '^', 2), mtErro r, [mbok], 0); | |
278 | Resu lt := Fals e; | |
279 | end; | |
280 | end; | |
281 | ||
282 | procedure TfraVitalH iLo.pnlSli derResize( Sender: TO bject); | |
283 | begin | |
284 | tkbar.He ight := pn lSlider.He ight - (tk bar.Top * 2); | |
285 | pnlSpace r.Width := (pnlSlide r.Width - tkbar.Widt h) div 2; | |
286 | end; | |
287 | ||
288 | procedure TfraVitalH iLo.tkbarC hange(Send er: TObjec t); | |
289 | begin | |
290 | edtValue .Text := I ntToStr(tk bar.min + (Abs(tkbar .Max - tkb ar.Positio n))); | |
291 | end; | |
292 | ||
293 | function T fraVitalHi Lo.SetValu e(var NewV al: string ): Boolean ; | |
294 | var | |
295 | i: integ er; | |
296 | begin | |
297 | i := Str ToIntDef(N ewVal, tkb ar.Max + 1 ); | |
298 | if (i > tkbar.Max) or (i < t kbar.Min) then | |
299 | begin | |
300 | Mess ageDlg('Pl ease enter a value b etween ' + IntToStr( tkbar.Min) + | |
301 | ' and ' + In tToStr(tkb ar.Max) + '.' + #13 + | |
302 | 'P lease try again.', m tError, [m bok], 0); | |
303 | NewV al := IntT oStr(tkbar .min + (Ab s(tkbar.Ma x - tkbar. Position)) ); | |
304 | Resu lt := Fals e; | |
305 | end | |
306 | else | |
307 | begin | |
308 | tkba r.Position := tkbar. Max - i + tkbar.Min; | |
309 | Resu lt := True ; | |
310 | end; | |
311 | edtValue .Text := N ewVal; | |
312 | end; | |
313 | ||
314 | procedure TfraVitalH iLo.edtVal ueExit(Sen der: TObje ct); | |
315 | var | |
316 | Value: s tring; | |
317 | begin | |
318 | Value := edtValue. Text; | |
319 | if not S etValue(Va lue) then | |
320 | begin | |
321 | edtV alue.Text := Value; | |
322 | edtV alue.SetFo cus; | |
323 | end; | |
324 | end; | |
325 | ||
326 | procedure TfraVitalH iLo.pnlVal ueResize(S ender: TOb ject); | |
327 | begin | |
328 | edtValue .Left := ( pnlValue.W idth - edt Value.widt h) div 2; | |
329 | end; | |
330 | ||
331 | function T fraVitalHi Lo.CheckLi mits:Boole an; | |
332 | var | |
333 | Value: s tring; | |
334 | begin | |
335 | Value := edtValue. Text; | |
336 | result : = SetValue (Value); | |
337 | end; | |
338 | ||
339 | end. | |
340 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.