source: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.dfm@ 459

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

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