source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODLab.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: 12.6 KB
Line 
1inherited frmODLab: TfrmODLab
2 Tag = 120
3 Left = 245
4 Top = 263
5 Width = 523
6 Height = 271
7 Caption = 'Order a Lab Test'
8 PixelsPerInch = 96
9 TextHeight = 13
10 object lblAvailTests: TLabel [0]
11 Left = 6
12 Top = 4
13 Width = 93
14 Height = 13
15 Caption = 'Available Lab Tests'
16 end
17 object lblCollTime: TLabel [1]
18 Left = 148
19 Top = 152
20 Width = 100
21 Height = 13
22 Caption = 'Collection Date/Time'
23 end
24 object lblTestName: TLabel [2]
25 Left = 180
26 Top = 4
27 Width = 3
28 Height = 13
29 ShowAccelChar = False
30 end
31 object lblCollSamp: TLabel [3]
32 Left = 187
33 Top = 31
34 Width = 70
35 Height = 13
36 Caption = 'Collect Sample'
37 end
38 object lblSpecimen: TLabel [4]
39 Left = 210
40 Top = 58
41 Width = 47
42 Height = 13
43 Caption = 'Specimen'
44 end
45 object lblUrgency: TLabel [5]
46 Left = 217
47 Top = 85
48 Width = 40
49 Height = 13
50 Caption = 'Urgency'
51 end
52 object lblAddlComment: TLabel [6]
53 Left = 187
54 Top = 107
55 Width = 93
56 Height = 13
57 Caption = 'Additional Comment'
58 Visible = False
59 end
60 object bvlTestName: TBevel [7]
61 Left = 180
62 Top = 18
63 Width = 338
64 Height = 130
65 Style = bsRaised
66 end
67 object lblFrequency: TLabel [8]
68 Left = 326
69 Top = 152
70 Width = 57
71 Height = 13
72 Caption = 'How Often?'
73 end
74 object lblReqComment: TOROffsetLabel [9]
75 Left = 386
76 Top = 0
77 Width = 96
78 Height = 19
79 HorzOffset = 2
80 Transparent = False
81 VertOffset = 2
82 WordWrap = False
83 end
84 object lblHowManyDays: TLabel [10]
85 Left = 431
86 Top = 152
87 Width = 55
88 Height = 13
89 Caption = 'How Long?'
90 end
91 object lblCollType: TLabel [11]
92 Left = 7
93 Top = 152
94 Width = 73
95 Height = 13
96 Caption = 'Collection Type'
97 end
98 inherited memOrder: TCaptionMemo
99 TabOrder = 20
100 end
101 object txtImmedColl: TCaptionEdit [13]
102 Left = 149
103 Top = 166
104 Width = 141
105 Height = 21
106 Color = clBtnFace
107 ReadOnly = True
108 TabOrder = 14
109 Text = 'txtImmedColl'
110 end
111 object calCollTime: TORDateBox [14]
112 Left = 149
113 Top = 166
114 Width = 165
115 Height = 21
116 TabOrder = 13
117 OnChange = ControlChange
118 DateOnly = False
119 RequireTime = False
120 end
121 object pnlUrineVolume: TORAutoPanel [15]
122 Left = 378
123 Top = 25
124 Width = 133
125 Height = 118
126 BevelInner = bvLowered
127 BevelOuter = bvNone
128 TabOrder = 8
129 object lblUrineVolume: TOROffsetLabel
130 Left = 6
131 Top = 29
132 Width = 111
133 Height = 15
134 Caption = 'Enter the urine volume:'
135 HorzOffset = 2
136 Transparent = False
137 VertOffset = 2
138 WordWrap = False
139 end
140 object txtUrineVolume: TCaptionEdit
141 Left = 5
142 Top = 56
143 Width = 121
144 Height = 21
145 TabOrder = 0
146 OnExit = txtUrineVolumeExit
147 end
148 end
149 object pnlAntiCoagulation: TORAutoPanel [16]
150 Left = 378
151 Top = 25
152 Width = 133
153 Height = 118
154 BevelInner = bvLowered
155 BevelOuter = bvNone
156 TabOrder = 7
157 object lblAntiCoagulant: TOROffsetLabel
158 Left = 6
159 Top = 8
160 Width = 97
161 Height = 41
162 Caption = 'What kind of anticoagulant is the patient on?'
163 HorzOffset = 2
164 Transparent = False
165 VertOffset = 2
166 WordWrap = True
167 end
168 object txtAntiCoagulant: TCaptionEdit
169 Left = 6
170 Top = 56
171 Width = 121
172 Height = 21
173 TabOrder = 0
174 OnExit = txtAntiCoagulantExit
175 end
176 end
177 object pnlOrderComment: TORAutoPanel [17]
178 Left = 378
179 Top = 25
180 Width = 133
181 Height = 118
182 BevelInner = bvLowered
183 BevelOuter = bvNone
184 TabOrder = 6
185 Visible = False
186 object lblOrderComment: TOROffsetLabel
187 Left = 6
188 Top = 37
189 Width = 103
190 Height = 15
191 Caption = 'Enter order comment:'
192 HorzOffset = 2
193 Transparent = False
194 VertOffset = 2
195 WordWrap = True
196 end
197 object txtOrderComment: TCaptionEdit
198 Left = 6
199 Top = 57
200 Width = 121
201 Height = 21
202 TabOrder = 0
203 OnExit = txtOrderCommentExit
204 end
205 end
206 object pnlHide: TORAutoPanel [18]
207 Left = 378
208 Top = 25
209 Width = 133
210 Height = 118
211 BevelOuter = bvNone
212 TabOrder = 5
213 end
214 object pnlDoseDraw: TORAutoPanel [19]
215 Left = 378
216 Top = 25
217 Width = 133
218 Height = 118
219 BevelInner = bvLowered
220 BevelOuter = bvNone
221 TabOrder = 10
222 object lblDose: TOROffsetLabel
223 Left = 10
224 Top = 15
225 Width = 115
226 Height = 15
227 Caption = 'Enter the last dose time:'
228 HorzOffset = 2
229 Transparent = False
230 VertOffset = 2
231 WordWrap = False
232 end
233 object lblDraw: TOROffsetLabel
234 Left = 10
235 Top = 68
236 Width = 78
237 Height = 15
238 Caption = 'Enter draw time:'
239 HorzOffset = 2
240 Transparent = False
241 VertOffset = 2
242 WordWrap = False
243 end
244 object txtDoseTime: TCaptionEdit
245 Left = 10
246 Top = 31
247 Width = 112
248 Height = 21
249 TabOrder = 0
250 OnExit = txtDoseTimeExit
251 end
252 object txtDrawTime: TCaptionEdit
253 Left = 10
254 Top = 85
255 Width = 112
256 Height = 21
257 TabOrder = 1
258 OnExit = txtDrawTimeExit
259 end
260 end
261 object pnlPeakTrough: TORAutoPanel [20]
262 Left = 378
263 Top = 25
264 Width = 133
265 Height = 118
266 BevelInner = bvLowered
267 BevelOuter = bvNone
268 TabOrder = 9
269 object lblPeakTrough: TOROffsetLabel
270 Left = 6
271 Top = 7
272 Width = 82
273 Height = 13
274 Caption = 'Sample drawn at:'
275 HorzOffset = 0
276 Transparent = False
277 VertOffset = 0
278 WordWrap = True
279 end
280 object grpPeakTrough: TRadioGroup
281 Left = 6
282 Top = 20
283 Width = 120
284 Height = 89
285 Items.Strings = (
286 '&Peak'
287 '&Trough'
288 '&Mid'
289 '&Unknown')
290 TabOrder = 0
291 OnClick = grpPeakTroughClick
292 end
293 end
294 inherited cmdAccept: TButton
295 Left = 443
296 TabOrder = 18
297 end
298 inherited cmdQuit: TButton
299 TabOrder = 19
300 end
301 inherited pnlMessage: TPanel
302 Left = 18
303 Top = 192
304 Height = 56
305 TabOrder = 21
306 inherited imgMessage: TImage
307 Top = 11
308 end
309 inherited memMessage: TRichEdit
310 Left = 41
311 Top = 5
312 Height = 43
313 PopupMenu = MessagePopup
314 end
315 end
316 object pnlCollTimeButton: TKeyClickPanel
317 Left = 288
318 Top = 167
319 Width = 20
320 Height = 19
321 BevelOuter = bvNone
322 Caption = 'Select collection time'
323 TabOrder = 15
324 TabStop = True
325 OnClick = cmdImmedCollClick
326 OnEnter = pnlCollTimeButtonEnter
327 OnExit = pnlCollTimeButtonExit
328 object cmdImmedColl: TSpeedButton
329 Left = 1
330 Top = 1
331 Width = 18
332 Height = 17
333 Font.Charset = DEFAULT_CHARSET
334 Font.Color = clWindowText
335 Font.Height = -16
336 Font.Name = 'MS Sans Serif'
337 Font.Style = [fsBold]
338 Glyph.Data = {
339 D6000000424DD60000000000000076000000280000000C0000000C0000000100
340 0400000000006000000000000000000000001000000010000000000000000000
341 80000080000000808000800000008000800080800000C0C0C000808080000000
342 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
343 0000333333333333000033333333333300003333333333330000300330033003
344 0000300330033003000033333333333300003333333333330000333333333333
345 0000333333333333000033333333333300003333333333330000}
346 ParentFont = False
347 ParentShowHint = False
348 ShowHint = False
349 OnClick = cmdImmedCollClick
350 end
351 end
352 object cboAvailTest: TORComboBox
353 Left = 6
354 Top = 18
355 Width = 168
356 Height = 130
357 Style = orcsSimple
358 AutoSelect = True
359 Caption = 'Available Lab Tests'
360 Color = clWindow
361 DropDownCount = 8
362 ItemHeight = 13
363 ItemTipColor = clWindow
364 ItemTipEnable = True
365 ListItemsOnly = True
366 LongList = True
367 LookupPiece = 0
368 MaxLength = 0
369 Pieces = '2'
370 Sorted = False
371 SynonymChars = '<>'
372 TabOrder = 0
373 OnClick = cboAvailTestSelect
374 OnExit = cboAvailTestExit
375 OnNeedData = cboAvailTestNeedData
376 end
377 object cboFrequency: TORComboBox
378 Left = 326
379 Top = 166
380 Width = 97
381 Height = 21
382 Style = orcsDropDown
383 AutoSelect = True
384 Caption = 'How Often?'
385 Color = clWindow
386 DropDownCount = 8
387 ItemHeight = 13
388 ItemTipColor = clWindow
389 ItemTipEnable = True
390 ListItemsOnly = True
391 LongList = False
392 LookupPiece = 0
393 MaxLength = 0
394 Pieces = '2'
395 Sorted = False
396 SynonymChars = '<>'
397 TabOrder = 16
398 OnChange = cboFrequencyChange
399 end
400 object cboCollSamp: TORComboBox
401 Left = 269
402 Top = 28
403 Width = 100
404 Height = 21
405 Style = orcsDropDown
406 AutoSelect = True
407 Caption = 'Collect Sample'
408 Color = clWindow
409 DropDownCount = 8
410 ItemHeight = 13
411 ItemTipColor = clWindow
412 ItemTipEnable = True
413 ListItemsOnly = True
414 LongList = False
415 LookupPiece = 0
416 MaxLength = 0
417 Pieces = '2'
418 Sorted = False
419 SynonymChars = '<>'
420 TabOrder = 1
421 OnChange = cboCollSampChange
422 OnEnter = cboCollSampMouseClick
423 OnKeyPause = cboCollSampKeyPause
424 OnMouseClick = cboCollSampMouseClick
425 end
426 object cboSpecimen: TORComboBox
427 Left = 269
428 Top = 55
429 Width = 100
430 Height = 21
431 Style = orcsDropDown
432 AutoSelect = True
433 Caption = 'Specimen'
434 Color = clWindow
435 DropDownCount = 10
436 ItemHeight = 13
437 ItemTipColor = clWindow
438 ItemTipEnable = True
439 ListItemsOnly = True
440 LongList = False
441 LookupPiece = 0
442 MaxLength = 0
443 ParentShowHint = False
444 Pieces = '2'
445 ShowHint = True
446 Sorted = False
447 SynonymChars = '<>'
448 TabOrder = 2
449 OnChange = cboSpecimenChange
450 OnEnter = cboSpecimenMouseClick
451 OnKeyPause = cboSpecimenKeyPause
452 OnMouseClick = cboSpecimenMouseClick
453 end
454 object cboUrgency: TORComboBox
455 Left = 269
456 Top = 82
457 Width = 100
458 Height = 21
459 Style = orcsDropDown
460 AutoSelect = True
461 Caption = 'Urgency'
462 Color = clWindow
463 DropDownCount = 8
464 ItemHeight = 13
465 ItemTipColor = clWindow
466 ItemTipEnable = True
467 ListItemsOnly = True
468 LongList = False
469 LookupPiece = 0
470 MaxLength = 0
471 Pieces = '2'
472 Sorted = False
473 SynonymChars = '<>'
474 TabOrder = 3
475 OnChange = cboUrgencyChange
476 end
477 object txtAddlComment: TCaptionEdit
478 Left = 187
479 Top = 122
480 Width = 180
481 Height = 21
482 TabOrder = 4
483 Visible = False
484 OnExit = txtAddlCommentExit
485 Caption = 'Additional Comment'
486 end
487 object txtDays: TCaptionEdit
488 Left = 430
489 Top = 166
490 Width = 84
491 Height = 21
492 Hint = 'Enter a number of days, or an "X" followed by a number of times.'
493 Enabled = False
494 TabOrder = 17
495 OnChange = ControlChange
496 Caption = 'How Long?'
497 end
498 object FLabCommonCombo: TORListBox
499 Left = 440
500 Top = 247
501 Width = 121
502 Height = 97
503 TabStop = False
504 ItemHeight = 13
505 ParentShowHint = False
506 ShowHint = True
507 TabOrder = 22
508 Visible = False
509 ItemTipColor = clWindow
510 LongList = False
511 end
512 object cboCollTime: TORComboBox
513 Left = 149
514 Top = 166
515 Width = 168
516 Height = 21
517 Style = orcsDropDown
518 AutoSelect = True
519 Caption = 'Collection Date/Time'
520 Color = clWindow
521 DropDownCount = 8
522 ItemHeight = 13
523 ItemTipColor = clWindow
524 ItemTipEnable = True
525 ListItemsOnly = False
526 LongList = False
527 LookupPiece = 0
528 MaxLength = 0
529 Pieces = '2'
530 Sorted = False
531 SynonymChars = '<>'
532 TabOrder = 12
533 OnChange = cboCollTimeChange
534 OnExit = cboCollTimeExit
535 end
536 object cboCollType: TORComboBox
537 Left = 6
538 Top = 166
539 Width = 136
540 Height = 21
541 Style = orcsDropDown
542 AutoSelect = True
543 Caption = 'Collection Type'
544 Color = clWindow
545 DropDownCount = 8
546 ItemHeight = 13
547 ItemTipColor = clWindow
548 ItemTipEnable = True
549 ListItemsOnly = True
550 LongList = False
551 LookupPiece = 0
552 MaxLength = 0
553 Pieces = '2'
554 Sorted = False
555 SynonymChars = '<>'
556 TabOrder = 11
557 OnChange = cboCollTypeChange
558 end
559 object dlgLabCollTime: TORDateTimeDlg
560 FMDateTime = 2980923
561 DateOnly = False
562 RequireTime = True
563 Left = 219
564 Top = 4
565 end
566 object MessagePopup: TPopupMenu
567 Left = 340
568 Top = 218
569 object ViewinReportWindow1: TMenuItem
570 Caption = '&View in Report Window'
571 OnClick = ViewinReportWindow1Click
572 end
573 end
574end
Note: See TracBrowser for help on using the repository browser.