source: cprs/trunk/CPRS-Chart/Orders/fODBBank.dfm@ 1094

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

Upgrade to version 27
File size: 27.3 KB
RevLine 
[456]1inherited frmODBBank: TfrmODBBank
[829]2 Left = 409
3 Top = 244
4 HorzScrollBar.Range = 0
5 VertScrollBar.Range = 0
[456]6 Caption = 'Blood Component and Diagnostic Test Order Form'
[829]7 ClientHeight = 600
8 ClientWidth = 709
9 ExplicitWidth = 717
10 ExplicitHeight = 634
[456]11 PixelsPerInch = 96
12 TextHeight = 13
[829]13 object pnlComments: TPanel [0]
[456]14 Left = 12
[829]15 Top = 25
16 Width = 534
17 Height = 368
[456]18 TabOrder = 5
[829]19 Visible = False
20 object lblOrdComment: TLabel
21 Left = 25
22 Top = 3
23 Width = 87
24 Height = 13
25 Caption = 'Order Comment'
26 Font.Charset = DEFAULT_CHARSET
27 Font.Color = clWindowText
28 Font.Height = -11
29 Font.Name = 'MS Sans Serif'
30 Font.Style = [fsBold]
31 ParentFont = False
32 end
33 object btnUpdateComments: TButton
34 Left = 372
35 Top = 174
36 Width = 115
37 Height = 25
38 Caption = 'Update Comments'
[456]39 TabOrder = 0
[829]40 OnClick = btnUpdateCommentsClick
41 end
42 object btnCancelComment: TButton
43 Left = 279
44 Top = 174
45 Width = 75
46 Height = 25
47 Caption = 'Cancel'
48 TabOrder = 1
49 OnClick = btnCancelCommentClick
50 end
51 end
52 inherited memOrder: TCaptionMemo
53 Left = 0
54 Top = 399
55 Width = 449
56 Height = 59
57 Visible = False
58 ExplicitLeft = 0
59 ExplicitTop = 399
60 ExplicitWidth = 449
61 ExplicitHeight = 59
62 end
63 object pgeProduct: TPageControl [2]
64 Left = 0
65 Top = 0
66 Width = 709
67 Height = 393
68 ActivePage = TabDiag
69 Align = alTop
70 TabOrder = 6
71 TabStop = False
72 OnChange = pgeProductChange
73 object TabInfo: TTabSheet
74 Caption = 'Patient Information'
75 ImageIndex = 3
76 object edtInfo: TCaptionRichEdit
[456]77 Left = 0
[829]78 Top = 8
79 Width = 556
80 Height = 337
81 TabStop = False
82 BevelInner = bvNone
83 BevelOuter = bvNone
[456]84 Font.Charset = DEFAULT_CHARSET
85 Font.Color = clWindowText
86 Font.Height = -11
[829]87 Font.Name = 'Courier New'
[456]88 Font.Style = []
89 ParentFont = False
[829]90 ReadOnly = True
91 ScrollBars = ssBoth
[456]92 TabOrder = 0
[829]93 Caption = 'Patient Info'
94 end
95 end
96 object TabDiag: TTabSheet
97 Caption = 'Blood Bank Orders'
98 ImageIndex = 2
99 object lblReqComment: TOROffsetLabel
100 Left = 298
101 Top = 25
102 Width = 108
103 Height = 37
104 HorzOffset = 2
105 Transparent = False
106 VertOffset = 2
107 WordWrap = False
108 end
109 object pnlFields: TPanel
110 Left = 0
111 Top = 163
112 Width = 701
113 Height = 99
114 Hint = 'Data entered into these fields apply to the entire order.'
115 Align = alTop
116 BevelEdges = []
117 BevelOuter = bvNone
118 ParentShowHint = False
119 ShowHint = True
120 TabOrder = 2
121 object lblDiagComment: TOROffsetLabel
122 Left = 257
123 Top = 35
124 Width = 46
125 Height = 15
126 Caption = 'Comment'
127 Font.Charset = DEFAULT_CHARSET
128 Font.Color = clWindowText
129 Font.Height = -11
130 Font.Name = 'MS Sans Serif'
131 Font.Style = []
132 HorzOffset = 2
133 ParentFont = False
134 Transparent = False
135 VertOffset = 2
136 WordWrap = True
137 end
138 object lblUrgency: TLabel
139 Left = 8
140 Top = -2
141 Width = 44
142 Height = 13
143 Caption = 'Urgency*'
144 Font.Charset = DEFAULT_CHARSET
145 Font.Color = clWindowText
146 Font.Height = -11
147 Font.Name = 'MS Sans Serif'
148 Font.Style = []
149 ParentFont = False
150 end
151 object lblReason: TLabel
152 Left = 10
153 Top = 35
154 Width = 99
155 Height = 13
156 Caption = 'Reason for Request*'
157 Font.Charset = DEFAULT_CHARSET
158 Font.Color = clWindowText
159 Font.Height = -11
160 Font.Name = 'MS Sans Serif'
161 Font.Style = []
162 ParentFont = False
163 end
164 object lblSurgery: TLabel
165 Left = 115
166 Top = -2
167 Width = 36
168 Height = 13
169 Hint =
170 'Enter the name of the surgical procedure that this request is fo' +
171 'r.'
172 Caption = 'Surgery'
173 Font.Charset = DEFAULT_CHARSET
174 Font.Color = clWindowText
175 Font.Height = -11
176 Font.Name = 'MS Sans Serif'
177 Font.Style = []
178 ParentFont = False
179 end
180 object lblRequiredField: TLabel
181 Left = 10
182 Top = 75
183 Width = 122
184 Height = 13
185 Caption = '* Indicates a required field'
186 end
187 object cboUrgency: TORComboBox
188 Left = 12
189 Top = 12
190 Width = 98
191 Height = 21
192 Style = orcsDropDown
193 AutoSelect = True
194 Caption = 'Urgency'
195 Color = clWindow
196 DropDownCount = 8
197 Font.Charset = DEFAULT_CHARSET
198 Font.Color = clWindowText
199 Font.Height = -11
200 Font.Name = 'MS Sans Serif'
201 Font.Style = []
202 ItemHeight = 13
203 ItemTipColor = clWindow
204 ItemTipEnable = True
205 ListItemsOnly = True
206 LongList = False
207 LookupPiece = 0
208 MaxLength = 0
209 ParentFont = False
210 Pieces = '2'
211 Sorted = False
212 SynonymChars = '<>'
213 TabOrder = 0
214 OnChange = cboUrgencyChange
215 OnExit = cboUrgencyExit
216 CharsNeedMatch = 1
217 end
218 object chkConsent: TCheckBox
219 Left = 351
220 Top = 10
221 Width = 112
222 Height = 17
223 Hint = 'Informed Consent Signed On Chart?'
224 Alignment = taLeftJustify
225 Caption = 'Informed Consent?'
226 Font.Charset = DEFAULT_CHARSET
227 Font.Color = clWindowText
228 Font.Height = -11
229 Font.Name = 'MS Sans Serif'
230 Font.Style = []
231 ParentFont = False
232 ParentShowHint = False
233 ShowHint = True
234 TabOrder = 3
235 Visible = False
236 OnClick = chkConsentClick
237 end
238 object cboSurgery: TORComboBox
239 Left = 115
240 Top = 12
241 Width = 218
242 Height = 21
243 Style = orcsDropDown
244 AutoSelect = True
245 Caption = 'Surgery'
246 Color = clWindow
247 DropDownCount = 8
248 Enabled = False
249 Font.Charset = DEFAULT_CHARSET
250 Font.Color = clWindowText
251 Font.Height = -11
252 Font.Name = 'MS Sans Serif'
253 Font.Style = []
254 ItemHeight = 13
255 ItemTipColor = clWindow
256 ItemTipEnable = True
257 ListItemsOnly = False
258 LongList = False
259 LookupPiece = 0
260 MaxLength = 0
261 ParentFont = False
262 Pieces = '2'
263 Sorted = False
264 SynonymChars = '<>'
265 TabOrder = 1
266 OnChange = cboSurgeryChange
267 OnClick = cboSurgeryClick
268 CharsNeedMatch = 1
269 end
270 object cboReasons: TORComboBox
271 Left = 12
272 Top = 51
273 Width = 239
274 Height = 21
275 Style = orcsDropDown
276 AutoSelect = True
277 Color = clWindow
278 DropDownCount = 8
279 ItemHeight = 13
280 ItemTipColor = clWindow
281 ItemTipEnable = True
282 ListItemsOnly = False
283 LongList = False
284 LookupPiece = 0
285 MaxLength = 0
286 Sorted = False
287 SynonymChars = '<>'
288 TabOrder = 2
289 OnChange = cboReasonsChange
290 OnEnter = cboReasonsEnter
291 OnExit = cboReasonsExit
292 CharsNeedMatch = 1
293 end
294 object memDiagComment: TRichEdit
295 Left = 257
296 Top = 51
297 Width = 250
298 Height = 48
299 TabOrder = 4
300 OnChange = memDiagCommentChange
301 end
302 end
303 object pnlSelect: TPanel
304 Left = 0
305 Top = 35
306 Width = 701
307 Height = 128
308 Align = alTop
309 BevelEdges = []
310 BevelOuter = bvNone
311 TabOrder = 1
312 object lblTNS: TLabel
313 Left = 298
314 Top = 109
315 Width = 14
316 Height = 13
317 Caption = 'tns'
318 Color = clActiveBorder
319 Font.Charset = DEFAULT_CHARSET
320 Font.Color = clMaroon
321 Font.Height = -11
322 Font.Name = 'MS Sans Serif'
323 Font.Style = []
324 ParentColor = False
325 ParentFont = False
326 Visible = False
327 end
328 object pnlDiagnosticTests: TGroupBox
329 Left = 256
330 Top = 0
331 Width = 267
332 Height = 110
333 Caption = 'Diagnostic Tests'
334 Font.Charset = DEFAULT_CHARSET
335 Font.Color = clWindowText
336 Font.Height = -11
337 Font.Name = 'MS Sans Serif'
338 Font.Style = [fsBold]
339 ParentFont = False
340 TabOrder = 1
341 object lblCollType: TLabel
342 Left = 13
343 Top = 33
344 Width = 77
345 Height = 13
346 Caption = 'Collection Type*'
[456]347 Font.Charset = DEFAULT_CHARSET
348 Font.Color = clWindowText
349 Font.Height = -11
[829]350 Font.Name = 'MS Sans Serif'
[456]351 Font.Style = []
352 ParentFont = False
353 end
[829]354 object lblCollTime: TLabel
355 Left = 12
356 Top = 70
[456]357 Width = 104
[829]358 Height = 13
359 Caption = 'Collection Date/Time*'
360 Font.Charset = DEFAULT_CHARSET
361 Font.Color = clWindowText
362 Font.Height = -11
363 Font.Name = 'MS Sans Serif'
364 Font.Style = []
365 ParentFont = False
[456]366 end
[829]367 object cmdImmedColl: TSpeedButton
368 Left = 148
369 Top = 89
370 Width = 21
371 Height = 11
372 Font.Charset = DEFAULT_CHARSET
373 Font.Color = clWindowText
374 Font.Height = -16
375 Font.Name = 'MS Sans Serif'
376 Font.Style = [fsBold]
377 Glyph.Data = {
378 D6000000424DD60000000000000076000000280000000C0000000C0000000100
379 0400000000006000000000000000000000001000000010000000000000000000
380 80000080000000808000800000008000800080800000C0C0C000808080000000
381 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
382 0000333333333333000033333333333300003333333333330000300330033003
383 0000300330033003000033333333333300003333333333330000333333333333
384 0000333333333333000033333333333300003333333333330000}
385 ParentFont = False
[456]386 ParentShowHint = False
[829]387 ShowHint = False
388 OnClick = cmdImmedCollClick
389 end
390 object pnlCollTimeButton: TKeyClickPanel
391 Left = 85
392 Top = 89
393 Width = 20
394 Height = 13
395 BevelOuter = bvNone
396 Caption = 'Select collection time'
397 TabOrder = 5
398 TabStop = True
399 end
400 object cboAvailTest: TORComboBox
401 Left = 13
402 Top = 13
403 Width = 234
404 Height = 21
405 Style = orcsDropDown
406 AutoSelect = True
407 Caption = 'Diagnostic Tests'
408 Color = clWindow
409 DropDownCount = 8
410 Font.Charset = DEFAULT_CHARSET
411 Font.Color = clWindowText
412 Font.Height = -11
413 Font.Name = 'MS Sans Serif'
414 Font.Style = []
415 ItemHeight = 13
416 ItemTipColor = clWindow
417 ItemTipEnable = True
418 ListItemsOnly = False
419 LongList = True
420 LookupPiece = 0
421 MaxLength = 0
422 ParentFont = False
423 Pieces = '2'
424 Sorted = False
425 SynonymChars = '<>'
[456]426 TabOrder = 0
[829]427 TabStop = True
428 OnExit = cboAvailTestExit
429 OnMouseClick = cboAvailTestSelect
430 OnNeedData = cboAvailTestNeedData
431 CharsNeedMatch = 1
[456]432 end
[829]433 object cboCollType: TORComboBox
434 Left = 12
435 Top = 46
436 Width = 165
437 Height = 21
438 Style = orcsDropDown
439 AutoSelect = True
440 Caption = 'Collection Type'
441 Color = clWindow
442 DropDownCount = 8
443 Font.Charset = DEFAULT_CHARSET
444 Font.Color = clWindowText
445 Font.Height = -11
446 Font.Name = 'MS Sans Serif'
447 Font.Style = []
448 ItemHeight = 13
449 ItemTipColor = clWindow
450 ItemTipEnable = True
451 ListItemsOnly = True
452 LongList = False
453 LookupPiece = 0
454 MaxLength = 0
455 ParentFont = False
456 Pieces = '2'
457 Sorted = False
458 SynonymChars = '<>'
[456]459 TabOrder = 1
[829]460 OnChange = cboCollTypeChange
461 CharsNeedMatch = 1
[456]462 end
[829]463 object cboCollTime: TORComboBox
464 Left = 12
465 Top = 82
466 Width = 165
467 Height = 21
468 Style = orcsDropDown
469 AutoSelect = True
470 Caption = 'Collection Date/Time'
471 Color = clWindow
472 DropDownCount = 8
473 Font.Charset = DEFAULT_CHARSET
474 Font.Color = clWindowText
475 Font.Height = -11
476 Font.Name = 'MS Sans Serif'
477 Font.Style = []
478 ItemHeight = 13
479 ItemTipColor = clWindow
480 ItemTipEnable = True
481 ListItemsOnly = False
482 LongList = False
483 LookupPiece = 0
484 MaxLength = 0
485 ParentFont = False
486 Pieces = '2'
487 Sorted = False
488 SynonymChars = '<>'
489 TabOrder = 2
490 OnChange = cboCollTimeChange
491 CharsNeedMatch = 1
492 end
493 object calCollTime: TORDateBox
494 Left = 12
495 Top = 82
496 Width = 165
497 Height = 21
498 Font.Charset = DEFAULT_CHARSET
499 Font.Color = clWindowText
500 Font.Height = -11
501 Font.Name = 'MS Sans Serif'
502 Font.Style = []
503 ParentFont = False
504 TabOrder = 3
505 OnChange = calCollTimeChange
506 DateOnly = False
507 RequireTime = False
508 end
509 object txtImmedColl: TCaptionEdit
510 Left = 12
511 Top = 82
512 Width = 165
513 Height = 21
514 Color = clBtnFace
515 ReadOnly = True
516 TabOrder = 4
517 Text = 'txtImmedColl'
518 end
[456]519 end
[829]520 object pnlBloodComponents: TGroupBox
521 Left = 4
522 Top = 0
523 Width = 246
524 Height = 110
525 Caption = 'Blood Components'
526 Font.Charset = DEFAULT_CHARSET
527 Font.Color = clWindowText
528 Font.Height = -11
529 Font.Name = 'MS Sans Serif'
530 Font.Style = [fsBold]
531 ParentFont = False
532 TabOrder = 0
533 object lblQuantity: TLabel
534 Left = 198
535 Top = 0
536 Width = 43
537 Height = 13
538 Caption = 'Quantity*'
[456]539 Font.Charset = DEFAULT_CHARSET
540 Font.Color = clWindowText
541 Font.Height = -11
[829]542 Font.Name = 'MS Sans Serif'
[456]543 Font.Style = []
544 ParentFont = False
[829]545 end
546 object lblModifiers: TLabel
547 Left = 7
548 Top = 33
549 Width = 42
550 Height = 13
551 Caption = 'Modifiers'
552 Font.Charset = DEFAULT_CHARSET
553 Font.Color = clWindowText
554 Font.Height = -11
555 Font.Name = 'MS Sans Serif'
556 Font.Style = []
557 ParentFont = False
558 end
559 object lblWanted: TLabel
560 Left = 7
561 Top = 70
562 Width = 96
563 Height = 13
564 Caption = 'Date/Time Wanted*'
565 Font.Charset = DEFAULT_CHARSET
566 Font.Color = clWindowText
567 Font.Height = -11
568 Font.Name = 'MS Sans Serif'
569 Font.Style = []
570 ParentFont = False
571 end
572 object cboAvailComp: TORComboBox
573 Left = 11
574 Top = 13
575 Width = 181
576 Height = 21
577 Style = orcsDropDown
578 AutoSelect = True
579 Caption = 'Blood Components'
580 Color = clWindow
581 DropDownCount = 8
582 Font.Charset = DEFAULT_CHARSET
583 Font.Color = clWindowText
584 Font.Height = -11
585 Font.Name = 'MS Sans Serif'
586 Font.Style = []
587 ItemHeight = 13
588 ItemTipColor = clWindow
589 ItemTipEnable = True
590 ListItemsOnly = False
591 LongList = False
592 LookupPiece = 0
593 MaxLength = 0
594 ParentFont = False
595 Pieces = '2'
596 Sorted = False
597 SynonymChars = '<>'
[456]598 TabOrder = 0
[829]599 TabStop = True
600 OnChange = cboAvailCompChange
601 OnExit = cboAvailCompExit
602 OnMouseClick = cboAvailCompSelect
603 OnNeedData = cboAvailCompNeedData
604 CharsNeedMatch = 1
[456]605 end
[829]606 object tQuantity: TEdit
607 Left = 198
608 Top = 13
609 Width = 25
610 Height = 21
611 Font.Charset = DEFAULT_CHARSET
612 Font.Color = clWindowText
613 Font.Height = -11
614 Font.Name = 'MS Sans Serif'
615 Font.Style = []
616 ParentFont = False
617 TabOrder = 1
618 OnChange = tQuantityChange
619 OnClick = tQuantityClick
620 OnEnter = tQuantityEnter
621 end
622 object cboModifiers: TORComboBox
623 Left = 11
624 Top = 46
625 Width = 133
626 Height = 21
627 Style = orcsDropDown
628 AutoSelect = True
629 Caption = 'Modifier'
630 Color = clWindow
631 DropDownCount = 8
632 Font.Charset = DEFAULT_CHARSET
633 Font.Color = clWindowText
634 Font.Height = -11
635 Font.Name = 'MS Sans Serif'
636 Font.Style = []
637 ItemHeight = 13
638 ItemTipColor = clWindow
639 ItemTipEnable = True
640 ListItemsOnly = True
641 LongList = False
642 LookupPiece = 0
643 MaxLength = 0
644 ParentFont = False
645 Sorted = False
646 SynonymChars = '<>'
647 TabOrder = 2
648 OnChange = cboModifiersChange
649 CharsNeedMatch = 1
650 end
651 object calWantTime: TORDateBox
652 Left = 11
653 Top = 82
654 Width = 149
655 Height = 21
656 Font.Charset = DEFAULT_CHARSET
657 Font.Color = clWindowText
658 Font.Height = -11
659 Font.Name = 'MS Sans Serif'
660 Font.Style = []
661 ParentFont = False
662 TabOrder = 3
663 OnChange = calWantTimeChange
664 DateOnly = False
665 RequireTime = False
666 end
[456]667 end
668 end
[829]669 object GroupBox1: TGroupBox
670 Left = 0
671 Top = 0
672 Width = 701
673 Height = 35
674 Align = alTop
675 Caption = ' Personal Quick Orders'
676 Font.Charset = DEFAULT_CHARSET
677 Font.Color = clWindowText
678 Font.Height = -11
679 Font.Name = 'MS Sans Serif'
680 Font.Style = []
681 ParentFont = False
682 TabOrder = 0
683 object cboQuick: TORComboBox
684 Left = 15
685 Top = 11
686 Width = 488
687 Height = 21
688 Style = orcsDropDown
689 AutoSelect = True
690 Color = clWindow
691 DropDownCount = 8
692 ItemHeight = 13
693 ItemTipColor = clWindow
694 ItemTipEnable = True
695 ListItemsOnly = False
696 LongList = True
697 LookupPiece = 0
698 MaxLength = 0
699 Pieces = '2'
700 Sorted = False
701 SynonymChars = '<>'
702 TabOrder = 0
703 OnClick = cboQuickClick
704 CharsNeedMatch = 1
705 end
706 end
[456]707 object pnlSelectedTests: TGroupBox
[829]708 Left = 0
709 Top = 262
710 Width = 701
711 Height = 112
712 Align = alTop
[456]713 Caption = 'Selected Components and Tests'
[829]714 Font.Charset = DEFAULT_CHARSET
715 Font.Color = clWindowText
716 Font.Height = -11
717 Font.Name = 'MS Sans Serif'
718 Font.Style = [fsBold]
719 ParentFont = False
720 TabOrder = 3
[456]721 Visible = False
722 object lvSelectionList: TCaptionListView
[829]723 Left = 5
724 Top = 12
725 Width = 417
726 Height = 91
727 Color = clBtnFace
[456]728 Columns = <
729 item
730 AutoSize = True
731 Caption = 'Test/Component'
732 end
733 item
734 AutoSize = True
735 Caption = 'Qty'
736 end
737 item
738 AutoSize = True
739 Caption = 'Modifiers'
740 end
741 item
[829]742 Caption = 'ModifierItemIndex'
[456]743 Width = 0
[829]744 end
745 item
746 Caption = 'TestIEN'
747 Width = 0
[456]748 end>
[829]749 Font.Charset = DEFAULT_CHARSET
750 Font.Color = clWindowText
751 Font.Height = -11
752 Font.Name = 'MS Sans Serif'
753 Font.Style = [fsBold]
754 ReadOnly = True
[456]755 RowSelect = True
[829]756 ParentFont = False
[456]757 TabOrder = 0
[829]758 TabStop = False
[456]759 ViewStyle = vsReport
[829]760 OnClick = lvSelectionListClick
[456]761 Caption = 'lvSelectionList'
762 end
763 object btnRemove: TButton
[829]764 Left = 428
765 Top = 37
[456]766 Width = 75
767 Height = 21
768 Caption = 'Remove'
[829]769 Font.Charset = DEFAULT_CHARSET
770 Font.Color = clWindowText
771 Font.Height = -11
772 Font.Name = 'MS Sans Serif'
773 Font.Style = []
774 ParentFont = False
[456]775 TabOrder = 1
776 OnClick = btnRemoveClick
777 end
778 object btnRemoveAll: TButton
[829]779 Left = 428
780 Top = 64
[456]781 Width = 75
782 Height = 21
783 Caption = 'Remove All'
[829]784 Font.Charset = DEFAULT_CHARSET
785 Font.Color = clWindowText
786 Font.Height = -11
787 Font.Name = 'MS Sans Serif'
788 Font.Style = []
789 ParentFont = False
[456]790 TabOrder = 2
791 OnClick = btnRemoveAllClick
792 end
793 end
794 end
[829]795 object TabResults: TTabSheet
796 Caption = 'Lab Results'
797 object edtResults: TCaptionRichEdit
798 Left = -4
799 Top = 57
800 Width = 517
801 Height = 290
802 Font.Charset = DEFAULT_CHARSET
803 Font.Color = clWindowText
804 Font.Height = -11
805 Font.Name = 'Courier New'
806 Font.Style = []
807 ParentFont = False
808 TabOrder = 0
809 end
810 end
[456]811 end
[829]812 inherited cmdAccept: TButton
813 Left = 455
814 Top = 399
815 TabOrder = 2
816 Visible = False
817 ExplicitLeft = 455
818 ExplicitTop = 399
819 end
820 inherited cmdQuit: TButton
821 Left = 455
822 Top = 426
823 Width = 52
824 TabOrder = 3
825 ExplicitLeft = 455
826 ExplicitTop = 426
827 ExplicitWidth = 52
828 end
829 inherited pnlMessage: TPanel
830 Left = 8
831 Top = 409
832 Width = 409
833 Height = 49
834 TabOrder = 1
835 ExplicitLeft = 8
836 ExplicitTop = 409
837 ExplicitWidth = 409
838 ExplicitHeight = 49
839 inherited memMessage: TRichEdit
840 Left = 42
841 Top = 5
842 Width = 360
843 ExplicitLeft = 42
844 ExplicitTop = 5
845 ExplicitWidth = 360
846 end
847 end
848 inherited amgrMain: TVA508AccessibilityManager
849 Data = (
850 (
851 'Component = memOrder'
852 'Status = stsDefault')
853 (
854 'Component = cmdAccept'
855 'Status = stsDefault')
856 (
857 'Component = cmdQuit'
858 'Status = stsDefault')
859 (
860 'Component = pnlMessage'
861 'Status = stsDefault')
862 (
863 'Component = memMessage'
864 'Status = stsDefault')
865 (
866 'Component = frmODBBank'
867 'Status = stsDefault')
868 (
869 'Component = pnlComments'
870 'Status = stsDefault')
871 (
872 'Component = btnUpdateComments'
873 'Status = stsDefault')
874 (
875 'Component = btnCancelComment'
876 'Status = stsDefault')
877 (
878 'Component = pgeProduct'
879 'Status = stsDefault')
880 (
881 'Component = TabInfo'
882 'Status = stsDefault')
883 (
884 'Component = edtInfo'
885 'Status = stsDefault')
886 (
887 'Component = TabDiag'
888 'Status = stsDefault')
889 (
890 'Component = TabResults'
891 'Status = stsDefault')
892 (
893 'Component = edtResults'
894 'Status = stsDefault')
895 (
896 'Component = pnlFields'
897 'Status = stsDefault')
898 (
899 'Component = cboUrgency'
900 'Status = stsDefault')
901 (
902 'Component = chkConsent'
903 'Status = stsDefault')
904 (
905 'Component = cboSurgery'
906 'Status = stsDefault')
907 (
908 'Component = pnlSelect'
909 'Status = stsDefault')
910 (
911 'Component = pnlDiagnosticTests'
912 'Status = stsDefault')
913 (
914 'Component = cboAvailTest'
915 'Status = stsDefault')
916 (
917 'Component = pnlBloodComponents'
918 'Status = stsDefault')
919 (
920 'Component = cboAvailComp'
921 'Status = stsDefault')
922 (
923 'Component = tQuantity'
924 'Status = stsDefault')
925 (
926 'Component = cboModifiers'
927 'Status = stsDefault')
928 (
929 'Component = GroupBox1'
930 'Status = stsDefault')
931 (
932 'Component = cboQuick'
933 'Status = stsDefault')
934 (
935 'Component = pnlSelectedTests'
936 'Status = stsDefault')
937 (
938 'Component = lvSelectionList'
939 'Status = stsDefault')
940 (
941 'Component = btnRemove'
942 'Status = stsDefault')
943 (
944 'Component = btnRemoveAll'
945 'Status = stsDefault')
946 (
947 'Component = cboReasons'
948 'Text = Applies to entire order'
949 'Status = stsOK')
950 (
951 'Component = memDiagComment'
952 'Status = stsDefault')
953 (
954 'Component = cboCollType'
955 'Status = stsDefault')
956 (
957 'Component = cboCollTime'
958 'Status = stsDefault')
959 (
960 'Component = calWantTime'
961 'Status = stsDefault')
962 (
963 'Component = calCollTime'
964 'Status = stsDefault')
965 (
966 'Component = txtImmedColl'
967 'Status = stsDefault')
968 (
969 'Component = pnlCollTimeButton'
970 'Status = stsDefault'))
971 end
[456]972 object dlgLabCollTime: TORDateTimeDlg
[829]973 FMDateTime = 2980923.000000000000000000
[456]974 DateOnly = False
975 RequireTime = True
976 Left = 435
[829]977 Top = 72
[456]978 end
979 object ORWanted: TORDateTimeDlg
[829]980 FMDateTime = 2980923.000000000000000000
[456]981 DateOnly = False
982 RequireTime = True
[829]983 Left = 343
984 Top = 72
[456]985 end
986end
Note: See TracBrowser for help on using the repository browser.