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

Last change on this file since 1028 was 829, checked in by Kevin Toppenberg, 15 years ago

Upgrade to version 27
File size: 13.3 KB
RevLine 
[456]1inherited frmEncVitals: TfrmEncVitals
2 Left = 353
3 Top = 210
4 Caption = 'Vitals'
5 OnActivate = FormActivate
[829]6 OnShow = FormShow
7 ExplicitWidth = 632
8 ExplicitHeight = 427
[456]9 PixelsPerInch = 96
10 TextHeight = 13
11 object lvVitals: TCaptionListView [0]
12 Left = 0
13 Top = 0
14 Width = 624
15 Height = 368
16 Align = alClient
17 Columns = <>
18 Constraints.MinHeight = 50
19 HideSelection = False
20 MultiSelect = True
21 ReadOnly = True
22 RowSelect = True
23 ParentShowHint = False
24 ShowHint = True
25 TabOrder = 1
26 ViewStyle = vsReport
27 end
28 object pnlBottom: TPanel [1]
29 Left = 0
30 Top = 368
31 Width = 624
32 Height = 32
33 Align = alBottom
34 BevelOuter = bvNone
[829]35 TabOrder = 4
36 object btnEnterVitals: TButton
37 Left = 8
38 Top = 6
39 Width = 75
40 Height = 21
41 Caption = 'Enter Vitals'
42 TabOrder = 0
43 OnClick = btnEnterVitalsClick
44 end
45 object btnOKkludge: TButton
46 Left = 434
47 Top = 6
48 Width = 75
49 Height = 21
50 Caption = 'OK'
51 TabOrder = 1
52 OnClick = btnOKClick
53 end
54 object btnCancelkludge: TButton
55 Left = 522
56 Top = 6
57 Width = 75
58 Height = 21
59 Caption = 'Cancel'
60 TabOrder = 2
61 OnClick = btnCancelClick
62 end
[456]63 end
64 inherited btnOK: TBitBtn
[829]65 Left = 208
66 Top = 374
67 Caption = 'OK No Show'
68 TabOrder = 2
69 Visible = False
70 ExplicitLeft = 208
71 ExplicitTop = 374
[456]72 end
73 inherited btnCancel: TBitBtn
[829]74 Left = 289
75 Top = 374
76 Caption = 'Cancel No Show'
77 TabOrder = 3
78 Visible = False
79 ExplicitLeft = 289
80 ExplicitTop = 374
[456]81 end
[829]82 object pnlmain: TPanel [4]
[456]83 Left = 28
84 Top = 24
85 Width = 569
86 Height = 217
87 TabOrder = 0
88 Visible = False
89 object lblVitPointer: TOROffsetLabel
90 Left = 506
91 Top = 48
92 Width = 17
93 Height = 15
94 Caption = '<--'
95 Color = clBtnFace
96 HorzOffset = 5
97 ParentColor = False
98 Transparent = False
99 VertOffset = 2
100 WordWrap = False
101 end
102 object lblDate: TStaticText
103 Left = 56
104 Top = 23
105 Width = 31
106 Height = 17
107 Caption = 'Date'
108 Font.Charset = DEFAULT_CHARSET
109 Font.Color = clWindowText
110 Font.Height = -11
111 Font.Name = 'MS Sans Serif'
112 Font.Style = [fsBold]
113 ParentFont = False
114 TabOrder = 1
115 end
116 object lblDateBP: TStaticText
117 Tag = 3
118 Left = 50
119 Top = 122
120 Width = 24
121 Height = 17
122 Caption = 'N/A'
123 TabOrder = 17
124 end
125 object lblDateTemp: TStaticText
126 Left = 50
127 Top = 52
128 Width = 24
129 Height = 17
130 Caption = 'N/A'
131 TabOrder = 4
132 end
133 object lblDateResp: TStaticText
134 Tag = 2
135 Left = 50
136 Top = 98
137 Width = 24
138 Height = 17
139 Caption = 'N/A'
140 TabOrder = 13
141 end
142 object lblDatePulse: TStaticText
143 Tag = 1
144 Left = 50
145 Top = 75
146 Width = 24
147 Height = 17
148 Caption = 'N/A'
149 TabOrder = 9
150 end
151 object lblDateHeight: TStaticText
152 Tag = 4
153 Left = 50
154 Top = 145
155 Width = 24
156 Height = 17
157 Caption = 'N/A'
158 TabOrder = 21
159 end
160 object lblDateWeight: TStaticText
161 Tag = 5
162 Left = 50
163 Top = 169
164 Width = 24
165 Height = 17
166 Caption = 'N/A'
167 TabOrder = 26
168 end
169 object lblLstMeas: TStaticText
170 Left = 180
171 Top = 23
172 Width = 80
173 Height = 17
174 Caption = 'Last Measure'
175 Font.Charset = DEFAULT_CHARSET
176 Font.Color = clWindowText
177 Font.Height = -11
178 Font.Name = 'MS Sans Serif'
179 Font.Style = [fsBold]
180 ParentFont = False
181 TabOrder = 2
182 end
183 object lbllastBP: TStaticText
184 Tag = 3
185 Left = 188
186 Top = 122
187 Width = 24
188 Height = 17
189 Caption = 'N/A'
190 TabOrder = 18
191 end
192 object lblLastTemp: TStaticText
193 Left = 188
194 Top = 52
195 Width = 24
196 Height = 17
197 Caption = 'N/A'
198 TabOrder = 5
199 end
200 object lblLastResp: TStaticText
201 Tag = 2
202 Left = 188
203 Top = 98
204 Width = 24
205 Height = 17
206 Caption = 'N/A'
207 TabOrder = 14
208 end
209 object lblLastPulse: TStaticText
210 Tag = 1
211 Left = 188
212 Top = 75
213 Width = 24
214 Height = 17
215 Caption = 'N/A'
216 TabOrder = 10
217 end
218 object lblLastHeight: TStaticText
219 Tag = 4
220 Left = 188
221 Top = 145
222 Width = 24
223 Height = 17
224 Caption = 'N/A'
225 TabOrder = 22
226 end
227 object lblLastWeight: TStaticText
228 Tag = 5
229 Left = 188
230 Top = 169
231 Width = 24
232 Height = 17
233 Caption = 'N/A'
234 TabOrder = 27
235 end
236 object lblVital: TStaticText
237 Left = 344
238 Top = 23
239 Width = 29
240 Height = 17
241 Caption = 'Vital'
242 Font.Charset = DEFAULT_CHARSET
243 Font.Color = clWindowText
244 Font.Height = -11
245 Font.Name = 'MS Sans Serif'
246 Font.Style = [fsBold]
247 ParentFont = False
248 TabOrder = 3
249 end
250 object lblVitBP: TStaticText
251 Left = 344
252 Top = 122
253 Width = 23
254 Height = 17
255 Caption = 'B/P'
256 TabOrder = 19
257 end
258 object lnlVitTemp: TStaticText
259 Left = 344
260 Top = 52
261 Width = 31
262 Height = 17
263 Caption = 'Temp'
264 TabOrder = 6
265 end
266 object lblVitResp: TStaticText
267 Left = 344
268 Top = 98
269 Width = 29
270 Height = 17
271 Caption = 'Resp'
272 TabOrder = 15
273 end
274 object lblVitPulse: TStaticText
275 Left = 344
276 Top = 75
277 Width = 30
278 Height = 17
279 Caption = 'Pulse'
280 TabOrder = 11
281 end
282 object lblVitHeight: TStaticText
283 Left = 344
284 Top = 145
285 Width = 35
286 Height = 17
287 Caption = 'Height'
288 TabOrder = 23
289 end
290 object lblVitWeight: TStaticText
291 Left = 344
292 Top = 169
293 Width = 38
294 Height = 17
295 Caption = 'Weight'
296 TabOrder = 28
297 end
298 object lblVitPain: TStaticText
299 Left = 344
300 Top = 193
301 Width = 55
302 Height = 17
303 Caption = 'Pain Scale'
304 TabOrder = 33
305 end
306 object lblLastPain: TStaticText
307 Tag = 5
308 Left = 188
309 Top = 193
310 Width = 24
311 Height = 17
312 Caption = 'N/A'
313 TabOrder = 32
314 end
315 object lblDatePain: TStaticText
316 Tag = 5
317 Left = 50
318 Top = 193
319 Width = 24
320 Height = 17
321 Caption = 'N/A'
322 TabOrder = 31
323 end
324 object txtMeasBP: TCaptionEdit
325 Tag = 1
326 Left = 406
327 Top = 119
328 Width = 100
329 Height = 21
330 TabOrder = 20
331 OnEnter = SetVitPointer
332 OnExit = txtMeasBPExit
333 Caption = 'Blood Pressure'
334 end
335 object cboTemp: TCaptionComboBox
336 Tag = 7
337 Left = 448
338 Top = 48
339 Width = 57
340 Height = 21
341 DropDownCount = 2
342 ItemHeight = 13
343 TabOrder = 8
344 OnChange = cboTempChange
345 OnEnter = SetVitPointer
346 OnExit = cboTempExit
347 Items.Strings = (
348 'F'
349 'C')
350 Caption = 'Temperature'
351 end
352 object txtMeasTemp: TCaptionEdit
353 Tag = 2
354 Left = 406
355 Top = 48
356 Width = 43
357 Height = 21
358 TabOrder = 7
359 OnEnter = SetVitPointer
360 OnExit = txtMeasTempExit
361 Caption = 'Temperature'
362 end
363 object txtMeasResp: TCaptionEdit
364 Tag = 3
365 Left = 406
366 Top = 95
367 Width = 100
368 Height = 21
369 TabOrder = 16
370 OnEnter = SetVitPointer
371 OnExit = txtMeasRespExit
372 Caption = 'Resp'
373 end
374 object cboHeight: TCaptionComboBox
375 Tag = 8
376 Left = 449
377 Top = 142
378 Width = 57
379 Height = 21
380 ItemHeight = 13
381 TabOrder = 25
382 OnChange = cboHeightChange
383 OnEnter = SetVitPointer
384 OnExit = cboHeightExit
385 Items.Strings = (
386 'IN'
387 'CM')
388 Caption = 'Height'
389 end
390 object txtMeasWt: TCaptionEdit
391 Tag = 6
392 Left = 406
393 Top = 166
394 Width = 43
395 Height = 21
396 TabOrder = 29
397 OnEnter = SetVitPointer
398 OnExit = txtMeasWtExit
399 Caption = 'Weight'
400 end
401 object cboWeight: TCaptionComboBox
402 Tag = 9
403 Left = 449
404 Top = 166
405 Width = 57
406 Height = 21
407 ItemHeight = 13
408 TabOrder = 30
409 OnChange = cboWeightChange
410 OnEnter = SetVitPointer
411 OnExit = cboWeightExit
412 Items.Strings = (
413 'LB'
414 'KG')
415 Caption = 'Weight'
416 end
417 object txtMeasDate: TORDateBox
418 Tag = 11
419 Left = 406
420 Top = 16
421 Width = 121
422 Height = 21
423 TabOrder = 0
424 OnEnter = SetVitPointer
425 DateOnly = False
426 RequireTime = False
427 Caption = 'Current Vital Date '
428 end
429 object cboPain: TORComboBox
430 Tag = 10
431 Left = 406
432 Top = 190
433 Width = 102
434 Height = 21
435 Style = orcsDropDown
436 AutoSelect = True
437 Caption = 'Pain Scale'
438 Color = clWindow
439 DropDownCount = 12
440 ItemHeight = 13
441 ItemTipColor = clWindow
442 ItemTipEnable = True
443 ListItemsOnly = True
444 LongList = False
445 LookupPiece = 0
446 MaxLength = 0
447 Pieces = '1,2'
448 Sorted = False
449 SynonymChars = '<>'
450 TabOrder = 34
451 TabStop = True
452 OnEnter = SetVitPointer
453 CharsNeedMatch = 1
454 end
455 object txtMeasPulse: TCaptionEdit
456 Tag = 4
457 Left = 406
458 Top = 72
459 Width = 100
460 Height = 21
461 TabOrder = 12
462 OnEnter = SetVitPointer
463 OnExit = txtMeasPulseExit
464 Caption = 'Pulse'
465 end
466 object txtMeasHt: TCaptionEdit
467 Tag = 5
468 Left = 406
469 Top = 142
470 Width = 43
471 Height = 21
472 TabOrder = 24
473 OnEnter = SetVitPointer
474 OnExit = txtMeasHtExit
475 Caption = 'Height'
476 end
477 end
[829]478 inherited amgrMain: TVA508AccessibilityManager
479 Data = (
480 (
481 'Component = lvVitals'
482 'Status = stsDefault')
483 (
484 'Component = pnlBottom'
485 'Status = stsDefault')
486 (
487 'Component = btnEnterVitals'
488 'Status = stsDefault')
489 (
490 'Component = btnOKkludge'
491 'Status = stsDefault')
492 (
493 'Component = btnCancelkludge'
494 'Status = stsDefault')
495 (
496 'Component = pnlmain'
497 'Status = stsDefault')
498 (
499 'Component = lblDate'
500 'Status = stsDefault')
501 (
502 'Component = lblDateBP'
503 'Status = stsDefault')
504 (
505 'Component = lblDateTemp'
506 'Status = stsDefault')
507 (
508 'Component = lblDateResp'
509 'Status = stsDefault')
510 (
511 'Component = lblDatePulse'
512 'Status = stsDefault')
513 (
514 'Component = lblDateHeight'
515 'Status = stsDefault')
516 (
517 'Component = lblDateWeight'
518 'Status = stsDefault')
519 (
520 'Component = lblLstMeas'
521 'Status = stsDefault')
522 (
523 'Component = lbllastBP'
524 'Status = stsDefault')
525 (
526 'Component = lblLastTemp'
527 'Status = stsDefault')
528 (
529 'Component = lblLastResp'
530 'Status = stsDefault')
531 (
532 'Component = lblLastPulse'
533 'Status = stsDefault')
534 (
535 'Component = lblLastHeight'
536 'Status = stsDefault')
537 (
538 'Component = lblLastWeight'
539 'Status = stsDefault')
540 (
541 'Component = lblVital'
542 'Status = stsDefault')
543 (
544 'Component = lblVitBP'
545 'Status = stsDefault')
546 (
547 'Component = lnlVitTemp'
548 'Status = stsDefault')
549 (
550 'Component = lblVitResp'
551 'Status = stsDefault')
552 (
553 'Component = lblVitPulse'
554 'Status = stsDefault')
555 (
556 'Component = lblVitHeight'
557 'Status = stsDefault')
558 (
559 'Component = lblVitWeight'
560 'Status = stsDefault')
561 (
562 'Component = lblVitPain'
563 'Status = stsDefault')
564 (
565 'Component = lblLastPain'
566 'Status = stsDefault')
567 (
568 'Component = lblDatePain'
569 'Status = stsDefault')
570 (
571 'Component = txtMeasBP'
572 'Status = stsDefault')
573 (
574 'Component = cboTemp'
575 'Status = stsDefault')
576 (
577 'Component = txtMeasTemp'
578 'Status = stsDefault')
579 (
580 'Component = txtMeasResp'
581 'Status = stsDefault')
582 (
583 'Component = cboHeight'
584 'Status = stsDefault')
585 (
586 'Component = txtMeasWt'
587 'Status = stsDefault')
588 (
589 'Component = cboWeight'
590 'Status = stsDefault')
591 (
592 'Component = txtMeasDate'
593 'Status = stsDefault')
594 (
595 'Component = cboPain'
596 'Status = stsDefault')
597 (
598 'Component = txtMeasPulse'
599 'Status = stsDefault')
600 (
601 'Component = txtMeasHt'
602 'Status = stsDefault')
603 (
604 'Component = btnOK'
605 'Status = stsDefault')
606 (
607 'Component = btnCancel'
608 'Status = stsDefault')
609 (
610 'Component = frmEncVitals'
611 'Status = stsDefault'))
[456]612 end
613end
Note: See TracBrowser for help on using the repository browser.