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

Last change on this file since 1797 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
File size: 17.0 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 = 22
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 = 16
111 Text = 'txtImmedColl'
112 end
113 object calCollTime: TORDateBox [14]
114 Left = 149
115 Top = 166
116 Width = 165
117 Height = 21
118 TabOrder = 15
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 = 10
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 = 9
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 = 8
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 = 7
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 = 12
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 = 11
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 object pnlCollTimeButton: TKeyClickPanel [21]
297 Left = 288
298 Top = 167
299 Width = 20
300 Height = 19
301 BevelOuter = bvNone
302 Caption = 'Select collection time'
303 TabOrder = 17
304 TabStop = True
305 OnClick = cmdImmedCollClick
306 OnEnter = pnlCollTimeButtonEnter
307 OnExit = pnlCollTimeButtonExit
308 object cmdImmedColl: TSpeedButton
309 Left = 1
310 Top = 1
311 Width = 18
312 Height = 17
313 Font.Charset = DEFAULT_CHARSET
314 Font.Color = clWindowText
315 Font.Height = -16
316 Font.Name = 'MS Sans Serif'
317 Font.Style = [fsBold]
318 Glyph.Data = {
319 D6000000424DD60000000000000076000000280000000C0000000C0000000100
320 0400000000006000000000000000000000001000000010000000000000000000
321 80000080000000808000800000008000800080800000C0C0C000808080000000
322 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
323 0000333333333333000033333333333300003333333333330000300330033003
324 0000300330033003000033333333333300003333333333330000333333333333
325 0000333333333333000033333333333300003333333333330000}
326 ParentFont = False
327 ParentShowHint = False
328 ShowHint = False
329 OnClick = cmdImmedCollClick
330 end
331 end
332 object cboAvailTest: TORComboBox [22]
333 Left = 6
334 Top = 18
335 Width = 168
336 Height = 130
337 Style = orcsSimple
338 AutoSelect = True
339 Caption = 'Available Lab Tests'
340 Color = clWindow
341 DropDownCount = 8
342 ItemHeight = 13
343 ItemTipColor = clWindow
344 ItemTipEnable = True
345 ListItemsOnly = True
346 LongList = True
347 LookupPiece = 0
348 MaxLength = 0
349 Pieces = '2'
350 Sorted = False
351 SynonymChars = '<>'
352 TabOrder = 0
353 OnClick = cboAvailTestSelect
354 OnExit = cboAvailTestExit
355 OnNeedData = cboAvailTestNeedData
356 CharsNeedMatch = 1
357 end
358 object cboFrequency: TORComboBox [23]
359 Left = 326
360 Top = 166
361 Width = 97
362 Height = 21
363 Style = orcsDropDown
364 AutoSelect = True
365 Caption = 'How Often?'
366 Color = clWindow
367 DropDownCount = 8
368 ItemHeight = 13
369 ItemTipColor = clWindow
370 ItemTipEnable = True
371 ListItemsOnly = True
372 LongList = False
373 LookupPiece = 0
374 MaxLength = 0
375 Pieces = '2'
376 Sorted = False
377 SynonymChars = '<>'
378 TabOrder = 18
379 OnChange = cboFrequencyChange
380 CharsNeedMatch = 1
381 end
382 object cboCollSamp: TORComboBox [24]
383 Left = 269
384 Top = 28
385 Width = 100
386 Height = 21
387 Style = orcsDropDown
388 AutoSelect = True
389 Caption = 'Collect Sample'
390 Color = clWindow
391 DropDownCount = 8
392 ItemHeight = 13
393 ItemTipColor = clWindow
394 ItemTipEnable = True
395 ListItemsOnly = True
396 LongList = False
397 LookupPiece = 0
398 MaxLength = 0
399 Pieces = '2'
400 Sorted = False
401 SynonymChars = '<>'
402 TabOrder = 1
403 OnChange = cboCollSampChange
404 OnEnter = cboCollSampMouseClick
405 OnKeyPause = cboCollSampKeyPause
406 OnMouseClick = cboCollSampMouseClick
407 CharsNeedMatch = 1
408 end
409 object cboSpecimen: TORComboBox [25]
410 Left = 269
411 Top = 55
412 Width = 100
413 Height = 21
414 Style = orcsDropDown
415 AutoSelect = True
416 Caption = 'Specimen'
417 Color = clWindow
418 DropDownCount = 10
419 ItemHeight = 13
420 ItemTipColor = clWindow
421 ItemTipEnable = True
422 ListItemsOnly = True
423 LongList = False
424 LookupPiece = 0
425 MaxLength = 0
426 ParentShowHint = False
427 Pieces = '2'
428 ShowHint = True
429 Sorted = False
430 SynonymChars = '<>'
431 TabOrder = 3
432 OnChange = cboSpecimenChange
433 OnEnter = cboSpecimenMouseClick
434 OnKeyPause = cboSpecimenKeyPause
435 OnMouseClick = cboSpecimenMouseClick
436 CharsNeedMatch = 1
437 end
438 object cboUrgency: TORComboBox [26]
439 Left = 269
440 Top = 82
441 Width = 100
442 Height = 21
443 Style = orcsDropDown
444 AutoSelect = True
445 Caption = 'Urgency'
446 Color = clWindow
447 DropDownCount = 8
448 ItemHeight = 13
449 ItemTipColor = clWindow
450 ItemTipEnable = True
451 ListItemsOnly = True
452 LongList = False
453 LookupPiece = 0
454 MaxLength = 0
455 Pieces = '2'
456 Sorted = False
457 SynonymChars = '<>'
458 TabOrder = 5
459 OnChange = cboUrgencyChange
460 CharsNeedMatch = 1
461 end
462 object txtAddlComment: TCaptionEdit [27]
463 Left = 187
464 Top = 122
465 Width = 180
466 Height = 21
467 TabOrder = 6
468 Visible = False
469 OnExit = txtAddlCommentExit
470 Caption = 'Additional Comment'
471 end
472 object txtDays: TCaptionEdit [28]
473 Left = 430
474 Top = 166
475 Width = 84
476 Height = 21
477 Hint = 'Enter a number of days, or an "X" followed by a number of times.'
478 Enabled = False
479 TabOrder = 20
480 OnChange = ControlChange
481 Caption = 'How Long?'
482 end
483 object FLabCommonCombo: TORListBox [29]
484 Left = 440
485 Top = 247
486 Width = 121
487 Height = 97
488 TabStop = False
489 ItemHeight = 13
490 ParentShowHint = False
491 ShowHint = True
492 TabOrder = 26
493 Visible = False
494 ItemTipColor = clWindow
495 LongList = False
496 end
497 object cboCollTime: TORComboBox [30]
498 Left = 149
499 Top = 166
500 Width = 168
501 Height = 21
502 Style = orcsDropDown
503 AutoSelect = True
504 Caption = 'Collection Date/Time'
505 Color = clWindow
506 DropDownCount = 8
507 ItemHeight = 13
508 ItemTipColor = clWindow
509 ItemTipEnable = True
510 ListItemsOnly = False
511 LongList = False
512 LookupPiece = 0
513 MaxLength = 0
514 Pieces = '2'
515 Sorted = False
516 SynonymChars = '<>'
517 TabOrder = 14
518 OnChange = cboCollTimeChange
519 OnExit = cboCollTimeExit
520 CharsNeedMatch = 1
521 end
522 object cboCollType: TORComboBox [31]
523 Left = 6
524 Top = 166
525 Width = 136
526 Height = 21
527 Style = orcsDropDown
528 AutoSelect = True
529 Caption = 'Collection Type'
530 Color = clWindow
531 DropDownCount = 8
532 ItemHeight = 13
533 ItemTipColor = clWindow
534 ItemTipEnable = True
535 ListItemsOnly = True
536 LongList = False
537 LookupPiece = 0
538 MaxLength = 0
539 Pieces = '2'
540 Sorted = False
541 SynonymChars = '<>'
542 TabOrder = 13
543 OnChange = cboCollTypeChange
544 CharsNeedMatch = 1
545 end
546 object Frequencylbl508: TVA508StaticText [32]
547 Name = 'Frequencylbl508'
548 Left = 323
549 Top = 149
550 Width = 59
551 Height = 15
552 Alignment = taLeftJustify
553 Caption = 'How Often?'
554 Enabled = False
555 TabOrder = 19
556 Visible = False
557 ShowAccelChar = True
558 end
559 object HowManyDayslbl508: TVA508StaticText [33]
560 Name = 'HowManyDayslbl508'
561 Left = 431
562 Top = 152
563 Width = 57
564 Height = 15
565 Alignment = taLeftJustify
566 Caption = 'How Long?'
567 Enabled = False
568 TabOrder = 21
569 Visible = False
570 ShowAccelChar = True
571 end
572 inherited cmdAccept: TButton
573 Left = 443
574 TabOrder = 23
575 ExplicitLeft = 443
576 end
577 object specimenlbl508: TVA508StaticText [35]
578 Name = 'specimenlbl508'
579 Left = 210
580 Top = 56
581 Width = 49
582 Height = 15
583 Alignment = taLeftJustify
584 Caption = 'Specimen'
585 Enabled = False
586 TabOrder = 4
587 Visible = False
588 ShowAccelChar = True
589 end
590 inherited cmdQuit: TButton
591 TabOrder = 24
592 end
593 object CollSamplbl508: TVA508StaticText [37]
594 Name = 'CollSamplbl508'
595 Left = 187
596 Top = 31
597 Width = 72
598 Height = 15
599 Alignment = taLeftJustify
600 Caption = 'Collect Sample'
601 Enabled = False
602 TabOrder = 2
603 Visible = False
604 ShowAccelChar = True
605 end
606 inherited pnlMessage: TPanel
607 Left = 18
608 Top = 192
609 Height = 56
610 TabOrder = 25
611 ExplicitLeft = 18
612 ExplicitTop = 192
613 ExplicitHeight = 56
614 inherited imgMessage: TImage
615 Top = 11
616 ExplicitTop = 11
617 end
618 inherited memMessage: TRichEdit
619 Left = 41
620 Top = 5
621 Height = 43
622 PopupMenu = MessagePopup
623 ExplicitLeft = 41
624 ExplicitTop = 5
625 ExplicitHeight = 43
626 end
627 end
628 inherited amgrMain: TVA508AccessibilityManager
629 Data = (
630 (
631 'Component = txtImmedColl'
632 'Status = stsDefault')
633 (
634 'Component = calCollTime'
635 'Status = stsDefault')
636 (
637 'Component = pnlUrineVolume'
638 'Status = stsDefault')
639 (
640 'Component = txtUrineVolume'
641 'Status = stsDefault')
642 (
643 'Component = pnlAntiCoagulation'
644 'Status = stsDefault')
645 (
646 'Component = txtAntiCoagulant'
647 'Status = stsDefault')
648 (
649 'Component = pnlOrderComment'
650 'Status = stsDefault')
651 (
652 'Component = txtOrderComment'
653 'Status = stsDefault')
654 (
655 'Component = pnlHide'
656 'Status = stsDefault')
657 (
658 'Component = pnlDoseDraw'
659 'Status = stsDefault')
660 (
661 'Component = txtDoseTime'
662 'Status = stsDefault')
663 (
664 'Component = txtDrawTime'
665 'Status = stsDefault')
666 (
667 'Component = pnlPeakTrough'
668 'Status = stsDefault')
669 (
670 'Component = grpPeakTrough'
671 'Status = stsDefault')
672 (
673 'Component = pnlCollTimeButton'
674 'Status = stsDefault')
675 (
676 'Component = cboAvailTest'
677 'Status = stsDefault')
678 (
679 'Component = cboFrequency'
680 'Status = stsDefault')
681 (
682 'Component = cboCollSamp'
683 'Status = stsDefault')
684 (
685 'Component = cboSpecimen'
686 'Status = stsDefault')
687 (
688 'Component = cboUrgency'
689 'Status = stsDefault')
690 (
691 'Component = txtAddlComment'
692 'Status = stsDefault')
693 (
694 'Component = txtDays'
695 'Status = stsDefault')
696 (
697 'Component = FLabCommonCombo'
698 'Status = stsDefault')
699 (
700 'Component = cboCollTime'
701 'Status = stsDefault')
702 (
703 'Component = cboCollType'
704 'Status = stsDefault')
705 (
706 'Component = memOrder'
707 'Status = stsDefault')
708 (
709 'Component = cmdAccept'
710 'Status = stsDefault')
711 (
712 'Component = cmdQuit'
713 'Status = stsDefault')
714 (
715 'Component = pnlMessage'
716 'Status = stsDefault')
717 (
718 'Component = memMessage'
719 'Status = stsDefault')
720 (
721 'Component = frmODLab'
722 'Status = stsDefault')
723 (
724 'Component = Frequencylbl508'
725 'Status = stsDefault')
726 (
727 'Component = HowManyDayslbl508'
728 'Status = stsDefault')
729 (
730 'Component = specimenlbl508'
731 'Status = stsDefault')
732 (
733 'Component = CollSamplbl508'
734 'Status = stsDefault'))
735 end
736 object dlgLabCollTime: TORDateTimeDlg
737 FMDateTime = 2980923.000000000000000000
738 DateOnly = False
739 RequireTime = True
740 Left = 219
741 Top = 4
742 end
743 object MessagePopup: TPopupMenu
744 Left = 340
745 Top = 218
746 object ViewinReportWindow1: TMenuItem
747 Caption = '&View in Report Window'
748 OnClick = ViewinReportWindow1Click
749 end
750 end
751end
Note: See TracBrowser for help on using the repository browser.