source: cprs/trunk/CPRS-Chart/Orders/fODLab.dfm@ 1443

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

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