source: cprs/trunk/CPRS-Chart/Encounter/fEncVitals.dfm@ 516

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

Initial Upload of Official WV CPRS 1.0.26.76
File size: 9.5 KB
Line 
1inherited frmEncVitals: TfrmEncVitals
2 Left = 353
3 Top = 210
4 Caption = 'Vitals'
5 KeyPreview = True
6 OnActivate = FormActivate
7 OnDestroy = FormDestroy
8 OnKeyDown = FormKeyDown
9 OnResize = FormResize
10 PixelsPerInch = 96
11 TextHeight = 13
12 object lvVitals: TCaptionListView [0]
13 Left = 0
14 Top = 0
15 Width = 624
16 Height = 368
17 Hint = 'To sort, click on column headers|'
18 Align = alClient
19 Columns = <>
20 Constraints.MinHeight = 50
21 HideSelection = False
22 MultiSelect = True
23 ReadOnly = True
24 RowSelect = True
25 ParentShowHint = False
26 ShowHint = True
27 TabOrder = 1
28 ViewStyle = vsReport
29 end
30 object pnlBottom: TPanel [1]
31 Left = 0
32 Top = 368
33 Width = 624
34 Height = 32
35 Align = alBottom
36 BevelOuter = bvNone
37 TabOrder = 5
38 end
39 inherited btnOK: TBitBtn
40 Left = 444
41 Top = 377
42 TabOrder = 3
43 end
44 inherited btnCancel: TBitBtn
45 Left = 524
46 Top = 377
47 TabOrder = 4
48 end
49 object pnlmain: TPanel
50 Left = 28
51 Top = 24
52 Width = 569
53 Height = 217
54 TabOrder = 0
55 Visible = False
56 object lblVitPointer: TOROffsetLabel
57 Left = 506
58 Top = 48
59 Width = 17
60 Height = 15
61 Caption = '<--'
62 Color = clBtnFace
63 HorzOffset = 5
64 ParentColor = False
65 Transparent = False
66 VertOffset = 2
67 WordWrap = False
68 end
69 object lblDate: TStaticText
70 Left = 56
71 Top = 23
72 Width = 31
73 Height = 17
74 Caption = 'Date'
75 Font.Charset = DEFAULT_CHARSET
76 Font.Color = clWindowText
77 Font.Height = -11
78 Font.Name = 'MS Sans Serif'
79 Font.Style = [fsBold]
80 ParentFont = False
81 TabOrder = 1
82 end
83 object lblDateBP: TStaticText
84 Tag = 3
85 Left = 50
86 Top = 122
87 Width = 24
88 Height = 17
89 Caption = 'N/A'
90 TabOrder = 17
91 end
92 object lblDateTemp: TStaticText
93 Left = 50
94 Top = 52
95 Width = 24
96 Height = 17
97 Caption = 'N/A'
98 TabOrder = 4
99 end
100 object lblDateResp: TStaticText
101 Tag = 2
102 Left = 50
103 Top = 98
104 Width = 24
105 Height = 17
106 Caption = 'N/A'
107 TabOrder = 13
108 end
109 object lblDatePulse: TStaticText
110 Tag = 1
111 Left = 50
112 Top = 75
113 Width = 24
114 Height = 17
115 Caption = 'N/A'
116 TabOrder = 9
117 end
118 object lblDateHeight: TStaticText
119 Tag = 4
120 Left = 50
121 Top = 145
122 Width = 24
123 Height = 17
124 Caption = 'N/A'
125 TabOrder = 21
126 end
127 object lblDateWeight: TStaticText
128 Tag = 5
129 Left = 50
130 Top = 169
131 Width = 24
132 Height = 17
133 Caption = 'N/A'
134 TabOrder = 26
135 end
136 object lblLstMeas: TStaticText
137 Left = 180
138 Top = 23
139 Width = 80
140 Height = 17
141 Caption = 'Last Measure'
142 Font.Charset = DEFAULT_CHARSET
143 Font.Color = clWindowText
144 Font.Height = -11
145 Font.Name = 'MS Sans Serif'
146 Font.Style = [fsBold]
147 ParentFont = False
148 TabOrder = 2
149 end
150 object lbllastBP: TStaticText
151 Tag = 3
152 Left = 188
153 Top = 122
154 Width = 24
155 Height = 17
156 Caption = 'N/A'
157 TabOrder = 18
158 end
159 object lblLastTemp: TStaticText
160 Left = 188
161 Top = 52
162 Width = 24
163 Height = 17
164 Caption = 'N/A'
165 TabOrder = 5
166 end
167 object lblLastResp: TStaticText
168 Tag = 2
169 Left = 188
170 Top = 98
171 Width = 24
172 Height = 17
173 Caption = 'N/A'
174 TabOrder = 14
175 end
176 object lblLastPulse: TStaticText
177 Tag = 1
178 Left = 188
179 Top = 75
180 Width = 24
181 Height = 17
182 Caption = 'N/A'
183 TabOrder = 10
184 end
185 object lblLastHeight: TStaticText
186 Tag = 4
187 Left = 188
188 Top = 145
189 Width = 24
190 Height = 17
191 Caption = 'N/A'
192 TabOrder = 22
193 end
194 object lblLastWeight: TStaticText
195 Tag = 5
196 Left = 188
197 Top = 169
198 Width = 24
199 Height = 17
200 Caption = 'N/A'
201 TabOrder = 27
202 end
203 object lblVital: TStaticText
204 Left = 344
205 Top = 23
206 Width = 29
207 Height = 17
208 Caption = 'Vital'
209 Font.Charset = DEFAULT_CHARSET
210 Font.Color = clWindowText
211 Font.Height = -11
212 Font.Name = 'MS Sans Serif'
213 Font.Style = [fsBold]
214 ParentFont = False
215 TabOrder = 3
216 end
217 object lblVitBP: TStaticText
218 Left = 344
219 Top = 122
220 Width = 23
221 Height = 17
222 Caption = 'B/P'
223 TabOrder = 19
224 end
225 object lnlVitTemp: TStaticText
226 Left = 344
227 Top = 52
228 Width = 31
229 Height = 17
230 Caption = 'Temp'
231 TabOrder = 6
232 end
233 object lblVitResp: TStaticText
234 Left = 344
235 Top = 98
236 Width = 29
237 Height = 17
238 Caption = 'Resp'
239 TabOrder = 15
240 end
241 object lblVitPulse: TStaticText
242 Left = 344
243 Top = 75
244 Width = 30
245 Height = 17
246 Caption = 'Pulse'
247 TabOrder = 11
248 end
249 object lblVitHeight: TStaticText
250 Left = 344
251 Top = 145
252 Width = 35
253 Height = 17
254 Caption = 'Height'
255 TabOrder = 23
256 end
257 object lblVitWeight: TStaticText
258 Left = 344
259 Top = 169
260 Width = 38
261 Height = 17
262 Caption = 'Weight'
263 TabOrder = 28
264 end
265 object lblVitPain: TStaticText
266 Left = 344
267 Top = 193
268 Width = 55
269 Height = 17
270 Caption = 'Pain Scale'
271 TabOrder = 33
272 end
273 object lblLastPain: TStaticText
274 Tag = 5
275 Left = 188
276 Top = 193
277 Width = 24
278 Height = 17
279 Caption = 'N/A'
280 TabOrder = 32
281 end
282 object lblDatePain: TStaticText
283 Tag = 5
284 Left = 50
285 Top = 193
286 Width = 24
287 Height = 17
288 Caption = 'N/A'
289 TabOrder = 31
290 end
291 object txtMeasBP: TCaptionEdit
292 Tag = 1
293 Left = 406
294 Top = 119
295 Width = 100
296 Height = 21
297 TabOrder = 20
298 OnEnter = SetVitPointer
299 OnExit = txtMeasBPExit
300 Caption = 'Blood Pressure'
301 end
302 object cboTemp: TCaptionComboBox
303 Tag = 7
304 Left = 448
305 Top = 48
306 Width = 57
307 Height = 21
308 DropDownCount = 2
309 ItemHeight = 13
310 TabOrder = 8
311 OnChange = cboTempChange
312 OnEnter = SetVitPointer
313 OnExit = cboTempExit
314 Items.Strings = (
315 'F'
316 'C')
317 Caption = 'Temperature'
318 end
319 object txtMeasTemp: TCaptionEdit
320 Tag = 2
321 Left = 406
322 Top = 48
323 Width = 43
324 Height = 21
325 TabOrder = 7
326 OnEnter = SetVitPointer
327 OnExit = txtMeasTempExit
328 Caption = 'Temperature'
329 end
330 object txtMeasResp: TCaptionEdit
331 Tag = 3
332 Left = 406
333 Top = 95
334 Width = 100
335 Height = 21
336 TabOrder = 16
337 OnEnter = SetVitPointer
338 OnExit = txtMeasRespExit
339 Caption = 'Resp'
340 end
341 object cboHeight: TCaptionComboBox
342 Tag = 8
343 Left = 449
344 Top = 142
345 Width = 57
346 Height = 21
347 ItemHeight = 13
348 TabOrder = 25
349 OnChange = cboHeightChange
350 OnEnter = SetVitPointer
351 OnExit = cboHeightExit
352 Items.Strings = (
353 'IN'
354 'CM')
355 Caption = 'Height'
356 end
357 object txtMeasWt: TCaptionEdit
358 Tag = 6
359 Left = 406
360 Top = 166
361 Width = 43
362 Height = 21
363 TabOrder = 29
364 OnEnter = SetVitPointer
365 OnExit = txtMeasWtExit
366 Caption = 'Weight'
367 end
368 object cboWeight: TCaptionComboBox
369 Tag = 9
370 Left = 449
371 Top = 166
372 Width = 57
373 Height = 21
374 ItemHeight = 13
375 TabOrder = 30
376 OnChange = cboWeightChange
377 OnEnter = SetVitPointer
378 OnExit = cboWeightExit
379 Items.Strings = (
380 'LB'
381 'KG')
382 Caption = 'Weight'
383 end
384 object txtMeasDate: TORDateBox
385 Tag = 11
386 Left = 406
387 Top = 16
388 Width = 121
389 Height = 21
390 TabOrder = 0
391 OnEnter = SetVitPointer
392 DateOnly = False
393 RequireTime = False
394 Caption = 'Current Vital Date '
395 end
396 object cboPain: TORComboBox
397 Tag = 10
398 Left = 406
399 Top = 190
400 Width = 102
401 Height = 21
402 Style = orcsDropDown
403 AutoSelect = True
404 Caption = 'Pain Scale'
405 Color = clWindow
406 DropDownCount = 12
407 ItemHeight = 13
408 ItemTipColor = clWindow
409 ItemTipEnable = True
410 ListItemsOnly = True
411 LongList = False
412 LookupPiece = 0
413 MaxLength = 0
414 Pieces = '1,2'
415 Sorted = False
416 SynonymChars = '<>'
417 TabOrder = 34
418 TabStop = True
419 OnEnter = SetVitPointer
420 CharsNeedMatch = 1
421 end
422 object txtMeasPulse: TCaptionEdit
423 Tag = 4
424 Left = 406
425 Top = 72
426 Width = 100
427 Height = 21
428 TabOrder = 12
429 OnEnter = SetVitPointer
430 OnExit = txtMeasPulseExit
431 Caption = 'Pulse'
432 end
433 object txtMeasHt: TCaptionEdit
434 Tag = 5
435 Left = 406
436 Top = 142
437 Width = 43
438 Height = 21
439 TabOrder = 24
440 OnEnter = SetVitPointer
441 OnExit = txtMeasHtExit
442 Caption = 'Height'
443 end
444 end
445 object btnEnterVitals: TButton
446 Left = 8
447 Top = 377
448 Width = 75
449 Height = 21
450 Caption = 'Enter Vitals'
451 TabOrder = 2
452 OnClick = btnEnterVitalsClick
453 end
454end
Note: See TracBrowser for help on using the repository browser.