source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fODBBank.dfm@ 1696

Last change on this file since 1696 was 1693, checked in by healthsevak, 10 years ago

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