source: cprs/trunk/CPRS-Chart/Orders/fODMeds.dfm@ 832

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

Upgrade to version 27

File size: 27.9 KB
Line 
1inherited frmODMeds: TfrmODMeds
2 Left = 321
3 Top = 183
4 Width = 584
5 Height = 572
6 HorzScrollBar.Range = 558
7 VertScrollBar.Range = 399
8 Caption = 'Medication Order'
9 Constraints.MinHeight = 325
10 OnShow = FormShow
11 ExplicitWidth = 584
12 ExplicitHeight = 572
13 DesignSize = (
14 576
15 545)
16 PixelsPerInch = 96
17 TextHeight = 13
18 object pnlMeds: TPanel [0]
19 Left = 6
20 Top = 34
21 Width = 580
22 Height = 470
23 Anchors = [akLeft, akTop, akRight, akBottom]
24 BevelOuter = bvNone
25 TabOrder = 1
26 object sptSelect: TSplitter
27 Left = 0
28 Top = 133
29 Width = 580
30 Height = 4
31 Cursor = crVSplit
32 Align = alTop
33 end
34 object lstQuick: TCaptionListView
35 Left = 0
36 Top = 0
37 Width = 580
38 Height = 133
39 Align = alTop
40 BevelInner = bvLowered
41 BevelOuter = bvSpace
42 Columns = <
43 item
44 Width = 420
45 end>
46 ColumnClick = False
47 HideSelection = False
48 HotTrack = True
49 HoverTime = 2147483647
50 OwnerData = True
51 ParentShowHint = False
52 ShowColumnHeaders = False
53 ShowHint = True
54 TabOrder = 0
55 ViewStyle = vsReport
56 OnChange = lstChange
57 OnClick = ListViewClick
58 OnData = lstQuickData
59 OnDataHint = lstQuickDataHint
60 OnEditing = ListViewEditing
61 OnEnter = ListViewEnter
62 OnKeyUp = ListViewKeyUp
63 OnResize = ListViewResize
64 Caption = 'Quick Orders'
65 end
66 object lstAll: TCaptionListView
67 Left = 0
68 Top = 137
69 Width = 580
70 Height = 333
71 Align = alClient
72 BevelInner = bvLowered
73 BevelOuter = bvNone
74 Columns = <
75 item
76 Width = 420
77 end>
78 ColumnClick = False
79 HideSelection = False
80 HotTrack = True
81 HoverTime = 2147483647
82 OwnerData = True
83 ParentShowHint = False
84 ShowColumnHeaders = False
85 ShowHint = True
86 TabOrder = 1
87 ViewStyle = vsReport
88 OnChange = lstChange
89 OnClick = ListViewClick
90 OnData = lstAllData
91 OnDataHint = lstAllDataHint
92 OnEditing = ListViewEditing
93 OnEnter = ListViewEnter
94 OnKeyUp = ListViewKeyUp
95 OnResize = ListViewResize
96 Caption = 'All Medication orders'
97 end
98 end
99 inherited memOrder: TCaptionMemo
100 Tag = 13
101 Top = 505
102 Width = 502
103 TabStop = True
104 Anchors = [akLeft, akRight, akBottom]
105 TabOrder = 4
106 ExplicitTop = 505
107 ExplicitWidth = 502
108 end
109 object txtMed: TEdit [2]
110 Left = 6
111 Top = 6
112 Width = 580
113 Height = 21
114 Anchors = [akLeft, akTop, akRight]
115 AutoSelect = False
116 TabOrder = 0
117 Text = '(Type a medication name or select from the orders below)'
118 OnChange = txtMedChange
119 OnExit = txtMedExit
120 OnKeyDown = txtMedKeyDown
121 OnKeyUp = txtMedKeyUp
122 end
123 object btnSelect: TButton [3]
124 Left = 515
125 Top = 505
126 Width = 72
127 Height = 21
128 Anchors = [akRight, akBottom]
129 Caption = 'OK'
130 Default = True
131 Enabled = False
132 TabOrder = 5
133 OnClick = btnSelectClick
134 end
135 object pnlFields: TPanel [4]
136 Left = 6
137 Top = 34
138 Width = 580
139 Height = 470
140 Anchors = [akLeft, akTop, akRight, akBottom]
141 BevelOuter = bvNone
142 Enabled = False
143 TabOrder = 2
144 Visible = False
145 OnResize = pnlFieldsResize
146 object pnlTop: TPanel
147 Left = 0
148 Top = 0
149 Width = 580
150 Height = 197
151 Align = alClient
152 Constraints.MinHeight = 80
153 TabOrder = 3
154 DesignSize = (
155 580
156 197)
157 object lblRoute: TLabel
158 Left = 280
159 Top = 23
160 Width = 29
161 Height = 13
162 Anchors = [akTop, akRight]
163 Caption = 'Route'
164 Visible = False
165 end
166 object lblSchedule: TLabel
167 Left = 394
168 Top = 22
169 Width = 45
170 Height = 13
171 Anchors = [akTop, akRight]
172 Caption = 'Schedule'
173 Visible = False
174 WordWrap = True
175 end
176 object txtNSS: TLabel
177 Left = 442
178 Top = 22
179 Width = 71
180 Height = 13
181 Anchors = [akTop, akRight]
182 Caption = '(Day-Of-Week)'
183 Font.Charset = DEFAULT_CHARSET
184 Font.Color = clBlue
185 Font.Height = -11
186 Font.Name = 'MS Sans Serif'
187 Font.Style = []
188 ParentFont = False
189 Visible = False
190 WordWrap = True
191 OnClick = txtNSSClick
192 end
193 object grdDoses: TCaptionStringGrid
194 Left = 0
195 Top = 36
196 Width = 580
197 Height = 156
198 Anchors = [akLeft, akTop, akRight, akBottom]
199 ColCount = 7
200 DefaultColWidth = 76
201 DefaultRowHeight = 21
202 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs]
203 ScrollBars = ssVertical
204 TabOrder = 8
205 OnDrawCell = grdDosesDrawCell
206 OnEnter = grdDosesEnter
207 OnExit = grdDosesExit
208 OnKeyDown = grdDosesKeyDown
209 OnKeyPress = grdDosesKeyPress
210 OnMouseDown = grdDosesMouseDown
211 OnMouseUp = grdDosesMouseUp
212 Caption = 'Complex Dosage'
213 JustToTab = True
214 ColWidths = (
215 76
216 76
217 76
218 76
219 76
220 76
221 76)
222 end
223 object lblGuideline: TStaticText
224 Left = 0
225 Top = 1
226 Width = 181
227 Height = 17
228 Caption = 'Display Restrictions/Guidelines'
229 Color = clBtnFace
230 Font.Charset = DEFAULT_CHARSET
231 Font.Color = clBlue
232 Font.Height = -11
233 Font.Name = 'MS Sans Serif'
234 Font.Style = [fsBold, fsUnderline]
235 ParentColor = False
236 ParentFont = False
237 ShowAccelChar = False
238 TabOrder = 0
239 TabStop = True
240 Visible = False
241 OnClick = lblGuidelineClick
242 end
243 object tabDose: TTabControl
244 Left = 1
245 Top = 19
246 Width = 175
247 Height = 17
248 TabOrder = 3
249 Tabs.Strings = (
250 'Dosage'
251 'Complex')
252 TabIndex = 0
253 TabStop = False
254 TabWidth = 86
255 OnChange = tabDoseChange
256 end
257 object cboDosage: TORComboBox
258 Left = 1
259 Top = 36
260 Width = 279
261 Height = 155
262 Anchors = [akLeft, akTop, akRight, akBottom]
263 Style = orcsSimple
264 AutoSelect = True
265 Caption = 'Dosage'
266 Color = clWindow
267 DropDownCount = 8
268 ItemHeight = 13
269 ItemTipColor = clWindow
270 ItemTipEnable = True
271 ListItemsOnly = False
272 LongList = False
273 LookupPiece = 0
274 MaxLength = 0
275 Pieces = '5,3,6'
276 Sorted = False
277 SynonymChars = '<>'
278 TabPositions = '27,32'
279 TabOrder = 4
280 OnChange = cboDosageChange
281 OnClick = cboDosageClick
282 OnExit = cboDosageExit
283 OnKeyUp = cboDosageKeyUp
284 CharsNeedMatch = 1
285 UniqueAutoComplete = True
286 end
287 object cboRoute: TORComboBox
288 Left = 280
289 Top = 36
290 Width = 113
291 Height = 156
292 Anchors = [akTop, akRight, akBottom]
293 Style = orcsSimple
294 AutoSelect = True
295 Caption = 'Route'
296 Color = clWindow
297 DropDownCount = 8
298 ItemHeight = 13
299 ItemTipColor = clWindow
300 ItemTipEnable = True
301 ListItemsOnly = False
302 LongList = False
303 LookupPiece = 0
304 MaxLength = 0
305 ParentShowHint = False
306 Pieces = '2'
307 ShowHint = True
308 Sorted = False
309 SynonymChars = '<>'
310 TabOrder = 5
311 OnChange = cboRouteChange
312 OnClick = ControlChange
313 OnExit = cboRouteExit
314 CharsNeedMatch = 1
315 UniqueAutoComplete = True
316 end
317 object cboSchedule: TORComboBox
318 Left = 394
319 Top = 36
320 Width = 178
321 Height = 156
322 Anchors = [akTop, akRight, akBottom]
323 Style = orcsSimple
324 AutoSelect = False
325 Caption = 'Schedule'
326 Color = clWindow
327 DropDownCount = 8
328 ItemHeight = 13
329 ItemTipColor = clWindow
330 ItemTipEnable = True
331 ListItemsOnly = False
332 LongList = False
333 LookupPiece = 0
334 MaxLength = 0
335 Pieces = '1'
336 Sorted = True
337 SynonymChars = '<>'
338 TabOrder = 6
339 OnChange = cboScheduleChange
340 OnClick = cboScheduleClick
341 OnEnter = cboScheduleEnter
342 OnExit = cboScheduleExit
343 CharsNeedMatch = 1
344 UniqueAutoComplete = True
345 end
346 object chkPRN: TCheckBox
347 Left = 530
348 Top = 37
349 Width = 42
350 Height = 18
351 Anchors = [akTop, akRight]
352 Caption = 'PRN'
353 Color = clBtnFace
354 ParentColor = False
355 TabOrder = 7
356 OnClick = chkPRNClick
357 end
358 object btnXInsert: TButton
359 Left = 403
360 Top = 3
361 Width = 79
362 Height = 17
363 Caption = 'Insert Row'
364 ParentShowHint = False
365 ShowHint = True
366 TabOrder = 1
367 OnClick = btnXInsertClick
368 end
369 object btnXRemove: TButton
370 Left = 488
371 Top = 3
372 Width = 79
373 Height = 17
374 Caption = 'Remove Row'
375 ParentShowHint = False
376 ShowHint = True
377 TabOrder = 2
378 OnClick = btnXRemoveClick
379 end
380 object pnlXAdminTime: TPanel
381 Left = 432
382 Top = 149
383 Width = 65
384 Height = 17
385 Caption = 'pnlXAdminTime'
386 TabOrder = 9
387 Visible = False
388 OnClick = pnlXAdminTimeClick
389 end
390 end
391 object cboXDosage: TORComboBox
392 Left = 49
393 Top = 122
394 Width = 72
395 Height = 21
396 Style = orcsDropDown
397 AutoSelect = False
398 Caption = 'Dosage'
399 Color = clWindow
400 DropDownCount = 8
401 ItemHeight = 13
402 ItemTipColor = clWindow
403 ItemTipEnable = True
404 ListItemsOnly = False
405 LongList = False
406 LookupPiece = 0
407 MaxLength = 0
408 Pieces = '5'
409 Sorted = False
410 SynonymChars = '<>'
411 TabOrder = 0
412 Visible = False
413 OnChange = cboXDosageChange
414 OnClick = cboXDosageClick
415 OnEnter = cboXDosageEnter
416 OnExit = cboXDosageExit
417 OnKeyDown = memMessageKeyDown
418 OnKeyUp = cboXDosageKeyUp
419 CharsNeedMatch = 1
420 UniqueAutoComplete = True
421 end
422 object cboXRoute: TORComboBox
423 Left = 122
424 Top = 122
425 Width = 72
426 Height = 21
427 Style = orcsDropDown
428 AutoSelect = False
429 Caption = 'Route'
430 Color = clWindow
431 DropDownCount = 8
432 ItemHeight = 13
433 ItemTipColor = clWindow
434 ItemTipEnable = True
435 ListItemsOnly = False
436 LongList = False
437 LookupPiece = 0
438 MaxLength = 0
439 Pieces = '2'
440 Sorted = False
441 SynonymChars = '<>'
442 TabOrder = 1
443 Visible = False
444 OnChange = cboXRouteChange
445 OnClick = cboXRouteClick
446 OnEnter = cboXRouteEnter
447 OnExit = cboXRouteExit
448 OnKeyDown = memMessageKeyDown
449 CharsNeedMatch = 1
450 UniqueAutoComplete = True
451 end
452 object pnlXDuration: TPanel
453 Left = 300
454 Top = 122
455 Width = 72
456 Height = 21
457 BevelOuter = bvNone
458 TabOrder = 4
459 Visible = False
460 OnEnter = pnlXDurationEnter
461 OnExit = pnlXDurationExit
462 DesignSize = (
463 72
464 21)
465 object pnlXDurationButton: TKeyClickPanel
466 Left = 39
467 Top = 1
468 Width = 33
469 Height = 19
470 Anchors = [akLeft, akTop, akRight, akBottom]
471 Caption = 'Duration'
472 TabOrder = 2
473 TabStop = True
474 OnClick = btnXDurationClick
475 object btnXDuration: TSpeedButton
476 Left = 0
477 Top = 0
478 Width = 33
479 Height = 19
480 Caption = 'days'
481 Flat = True
482 Glyph.Data = {
483 AE000000424DAE0000000000000076000000280000000E000000070000000100
484 0400000000003800000000000000000000001000000000000000000000000000
485 8000008000000080800080000000800080008080000080808000C0C0C0000000
486 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
487 330033333333333333003330333333733300330003333F87330030000033FFFF
488 F30033333333333333003333333333333300}
489 Layout = blGlyphRight
490 NumGlyphs = 2
491 Spacing = 0
492 Transparent = False
493 OnClick = btnXDurationClick
494 end
495 end
496 object txtXDuration: TCaptionEdit
497 Left = 0
498 Top = 0
499 Width = 25
500 Height = 21
501 Anchors = [akLeft, akTop, akBottom]
502 TabOrder = 0
503 Text = '0'
504 OnChange = txtXDurationChange
505 OnKeyDown = memMessageKeyDown
506 Caption = 'Duration'
507 end
508 object spnXDuration: TUpDown
509 Left = 25
510 Top = 0
511 Width = 15
512 Height = 21
513 Anchors = [akLeft, akTop, akBottom]
514 Associate = txtXDuration
515 Max = 999
516 TabOrder = 1
517 end
518 end
519 object pnlXSchedule: TPanel
520 Left = 195
521 Top = 122
522 Width = 106
523 Height = 21
524 BevelOuter = bvNone
525 TabOrder = 2
526 Visible = False
527 OnEnter = pnlXScheduleEnter
528 OnExit = pnlXScheduleExit
529 DesignSize = (
530 106
531 21)
532 object cboXSchedule: TORComboBox
533 Left = 0
534 Top = 0
535 Width = 63
536 Height = 21
537 Anchors = [akLeft, akTop, akRight]
538 Style = orcsDropDown
539 AutoSelect = False
540 Caption = 'Schedule'
541 Color = clWindow
542 DropDownCount = 8
543 ItemHeight = 13
544 ItemTipColor = clWindow
545 ItemTipEnable = True
546 ListItemsOnly = False
547 LongList = False
548 LookupPiece = 0
549 MaxLength = 0
550 Pieces = '1'
551 Sorted = False
552 SynonymChars = '<>'
553 TabOrder = 0
554 TabStop = True
555 OnChange = cboXScheduleChange
556 OnClick = cboXScheduleClick
557 OnEnter = cboXScheduleEnter
558 OnExit = cboXScheduleExit
559 OnKeyDown = memMessageKeyDown
560 CharsNeedMatch = 1
561 UniqueAutoComplete = True
562 end
563 object chkXPRN: TCheckBox
564 Left = 63
565 Top = 4
566 Width = 42
567 Height = 11
568 Anchors = [akTop, akRight]
569 Caption = 'PRN'
570 TabOrder = 1
571 OnClick = chkXPRNClick
572 OnKeyDown = memMessageKeyDown
573 end
574 end
575 object pnlBottom: TPanel
576 Left = 0
577 Top = 197
578 Width = 580
579 Height = 273
580 Align = alBottom
581 TabOrder = 5
582 DesignSize = (
583 580
584 273)
585 object lblComment: TLabel
586 Left = 4
587 Top = 5
588 Width = 52
589 Height = 16
590 Alignment = taRightJustify
591 AutoSize = False
592 Caption = 'Comments:'
593 end
594 object lblDays: TLabel
595 Left = 4
596 Top = 65
597 Width = 59
598 Height = 13
599 Caption = 'Days Supply'
600 end
601 object lblQuantity: TLabel
602 Left = 84
603 Top = 65
604 Width = 39
605 Height = 13
606 Caption = 'Quantity'
607 ParentShowHint = False
608 ShowHint = True
609 end
610 object lblRefills: TLabel
611 Left = 164
612 Top = 65
613 Width = 28
614 Height = 13
615 Caption = 'Refills'
616 end
617 object lblPriority: TLabel
618 Left = 500
619 Top = 61
620 Width = 31
621 Height = 13
622 Anchors = [akTop, akRight]
623 Caption = 'Priority'
624 end
625 object Image1: TImage
626 Left = 5
627 Top = 221
628 Width = 31
629 Height = 31
630 Anchors = [akLeft, akBottom]
631 Visible = False
632 ExplicitTop = 177
633 end
634 object chkDoseNow: TCheckBox
635 Left = 3
636 Top = 104
637 Width = 247
638 Height = 21
639 Caption = 'Give additional dose now'
640 TabOrder = 8
641 OnClick = chkDoseNowClick
642 end
643 object memComment: TCaptionMemo
644 Left = 57
645 Top = 2
646 Width = 513
647 Height = 43
648 Anchors = [akLeft, akTop, akRight]
649 ScrollBars = ssVertical
650 TabOrder = 0
651 OnChange = ControlChange
652 OnClick = memCommentClick
653 Caption = 'Comments'
654 end
655 object lblQtyMsg: TStaticText
656 Left = 4
657 Top = 47
658 Width = 206
659 Height = 17
660 Caption = '>> Quantity Dispensed: Multiples of 100 <<'
661 TabOrder = 13
662 end
663 object txtSupply: TCaptionEdit
664 Left = 2
665 Top = 78
666 Width = 60
667 Height = 21
668 AutoSize = False
669 TabOrder = 1
670 Text = '0'
671 OnChange = txtSupplyChange
672 OnClick = txtSupplyClick
673 Caption = 'Days Supply'
674 end
675 object spnSupply: TUpDown
676 Left = 62
677 Top = 78
678 Width = 15
679 Height = 21
680 Associate = txtSupply
681 TabOrder = 2
682 end
683 object txtQuantity: TCaptionEdit
684 Left = 83
685 Top = 78
686 Width = 60
687 Height = 21
688 AutoSize = False
689 TabOrder = 3
690 Text = '0'
691 OnChange = txtQuantityChange
692 OnClick = txtQuantityClick
693 Caption = 'Quantity'
694 end
695 object spnQuantity: TUpDown
696 Left = 143
697 Top = 78
698 Width = 16
699 Height = 21
700 Associate = txtQuantity
701 Max = 32766
702 TabOrder = 4
703 end
704 object txtRefills: TCaptionEdit
705 Left = 164
706 Top = 78
707 Width = 30
708 Height = 21
709 AutoSize = False
710 TabOrder = 5
711 Text = '0'
712 OnChange = txtRefillsChange
713 OnClick = txtRefillsClick
714 Caption = 'Refills'
715 end
716 object spnRefills: TUpDown
717 Left = 194
718 Top = 78
719 Width = 15
720 Height = 21
721 Associate = txtRefills
722 Max = 11
723 TabOrder = 6
724 end
725 object grpPickup: TGroupBox
726 Left = 283
727 Top = 66
728 Width = 172
729 Height = 36
730 Anchors = [akTop, akRight]
731 Caption = 'Pick Up'
732 TabOrder = 7
733 object radPickWindow: TRadioButton
734 Left = 105
735 Top = 14
736 Width = 58
737 Height = 17
738 Caption = '&Window'
739 TabOrder = 2
740 OnClick = ControlChange
741 end
742 object radPickMail: TRadioButton
743 Left = 58
744 Top = 14
745 Width = 38
746 Height = 17
747 Caption = '&Mail'
748 TabOrder = 1
749 OnClick = ControlChange
750 end
751 object radPickClinic: TRadioButton
752 Left = 7
753 Top = 14
754 Width = 44
755 Height = 17
756 Caption = '&Clinic'
757 TabOrder = 0
758 OnClick = ControlChange
759 end
760 end
761 object cboPriority: TORComboBox
762 Left = 499
763 Top = 76
764 Width = 72
765 Height = 21
766 Anchors = [akTop, akRight]
767 Style = orcsDropDown
768 AutoSelect = True
769 Caption = 'Priority'
770 Color = clWindow
771 DropDownCount = 8
772 ItemHeight = 13
773 ItemTipColor = clWindow
774 ItemTipEnable = True
775 ListItemsOnly = True
776 LongList = False
777 LookupPiece = 0
778 MaxLength = 0
779 Pieces = '2'
780 Sorted = False
781 SynonymChars = '<>'
782 TabOrder = 9
783 OnChange = ControlChange
784 CharsNeedMatch = 1
785 end
786 object stcPI: TStaticText
787 Left = 2
788 Top = 123
789 Width = 89
790 Height = 17
791 Caption = 'Patient Instruction'
792 TabOrder = 17
793 Visible = False
794 end
795 object chkPtInstruct: TCheckBox
796 Left = 4
797 Top = 137
798 Width = 14
799 Height = 21
800 Color = clBtnFace
801 ParentColor = False
802 TabOrder = 18
803 Visible = False
804 OnClick = chkPtInstructClick
805 end
806 object memPI: TMemo
807 Left = 23
808 Top = 139
809 Width = 547
810 Height = 35
811 TabStop = False
812 Anchors = [akLeft, akTop, akRight]
813 ReadOnly = True
814 ScrollBars = ssVertical
815 TabOrder = 19
816 Visible = False
817 OnClick = memPIClick
818 OnKeyDown = memPIKeyDown
819 end
820 object memDrugMsg: TMemo
821 Left = 37
822 Top = 220
823 Width = 533
824 Height = 51
825 Anchors = [akLeft, akRight, akBottom]
826 Color = clCream
827 ReadOnly = True
828 ScrollBars = ssVertical
829 TabOrder = 20
830 Visible = False
831 end
832 object lblAdminSch: TMemo
833 Left = 344
834 Top = 120
835 Width = 68
836 Height = 15
837 Anchors = [akLeft, akTop, akRight]
838 Color = clCream
839 ParentShowHint = False
840 ReadOnly = True
841 ScrollBars = ssVertical
842 ShowHint = True
843 TabOrder = 10
844 Visible = False
845 end
846 object lblAdminTime: TVA508StaticText
847 Name = 'lblAdminTime'
848 Left = 164
849 Top = 116
850 Width = 64
851 Height = 15
852 Alignment = taLeftJustify
853 Caption = 'lblAdminTime'
854 TabOrder = 11
855 TabStop = True
856 ShowAccelChar = True
857 end
858 end
859 object cboXSequence: TORComboBox
860 Left = 438
861 Top = 122
862 Width = 64
863 Height = 21
864 Style = orcsDropDown
865 AutoSelect = True
866 Caption = 'Sequence'
867 Color = clWindow
868 DropDownCount = 8
869 Items.Strings = (
870 'and'
871 'then')
872 ItemHeight = 13
873 ItemTipColor = clWindow
874 ItemTipEnable = True
875 ListItemsOnly = False
876 LongList = False
877 LookupPiece = 0
878 MaxLength = 0
879 Sorted = False
880 SynonymChars = '<>'
881 TabOrder = 6
882 Visible = False
883 OnChange = cboXSequenceChange
884 OnEnter = cboXSequenceEnter
885 OnExit = cboXSequenceExit
886 OnKeyDown = memMessageKeyDown
887 CharsNeedMatch = 1
888 end
889 end
890 inherited cmdAccept: TButton
891 Left = 514
892 Top = 505
893 Anchors = [akRight, akBottom]
894 TabOrder = 6
895 TabStop = False
896 Visible = False
897 ExplicitLeft = 514
898 ExplicitTop = 505
899 end
900 inherited cmdQuit: TButton
901 Left = 514
902 Top = 530
903 Width = 51
904 Anchors = [akRight, akBottom]
905 TabOrder = 7
906 ExplicitLeft = 514
907 ExplicitTop = 530
908 ExplicitWidth = 51
909 end
910 inherited pnlMessage: TPanel
911 Left = 31
912 Top = 200
913 OnEnter = pnlMessageEnter
914 ExplicitLeft = 31
915 ExplicitTop = 200
916 inherited imgMessage: TImage
917 Left = 2
918 ExplicitLeft = 2
919 end
920 inherited memMessage: TRichEdit
921 OnKeyDown = memMessageKeyDown
922 end
923 end
924 inherited amgrMain: TVA508AccessibilityManager
925 Data = (
926 (
927 'Component = pnlMeds'
928 'Status = stsDefault')
929 (
930 'Component = lstQuick'
931 'Text = Quick Orders'
932 'Status = stsOK')
933 (
934 'Component = lstAll'
935 'Text = Medications'
936 'Status = stsOK')
937 (
938 'Component = txtMed'
939 'Text = Medication'
940 'Status = stsOK')
941 (
942 'Component = btnSelect'
943 'Status = stsDefault')
944 (
945 'Component = pnlFields'
946 'Status = stsDefault')
947 (
948 'Component = pnlTop'
949 'Status = stsDefault')
950 (
951 'Component = grdDoses'
952 'Status = stsDefault')
953 (
954 'Component = lblGuideline'
955 'Status = stsDefault')
956 (
957 'Component = tabDose'
958 'Status = stsDefault')
959 (
960 'Component = cboDosage'
961 'Status = stsDefault')
962 (
963 'Component = cboRoute'
964 'Status = stsDefault')
965 (
966 'Component = cboSchedule'
967 'Status = stsDefault')
968 (
969 'Component = chkPRN'
970 'Status = stsDefault')
971 (
972 'Component = btnXInsert'
973 'Status = stsDefault')
974 (
975 'Component = btnXRemove'
976 'Status = stsDefault')
977 (
978 'Component = pnlXAdminTime'
979 'Status = stsDefault')
980 (
981 'Component = cboXDosage'
982 'Status = stsDefault')
983 (
984 'Component = cboXRoute'
985 'Status = stsDefault')
986 (
987 'Component = pnlXDuration'
988 'Status = stsDefault')
989 (
990 'Component = pnlXDurationButton'
991 'Status = stsDefault')
992 (
993 'Component = txtXDuration'
994 'Status = stsDefault')
995 (
996 'Component = spnXDuration'
997 'Status = stsDefault')
998 (
999 'Component = pnlXSchedule'
1000 'Status = stsDefault')
1001 (
1002 'Component = cboXSchedule'
1003 'Status = stsDefault')
1004 (
1005 'Component = chkXPRN'
1006 'Status = stsDefault')
1007 (
1008 'Component = pnlBottom'
1009 'Status = stsDefault')
1010 (
1011 'Component = chkDoseNow'
1012 'Status = stsDefault')
1013 (
1014 'Component = memComment'
1015 'Status = stsDefault')
1016 (
1017 'Component = lblQtyMsg'
1018 'Status = stsDefault')
1019 (
1020 'Component = txtSupply'
1021 'Status = stsDefault')
1022 (
1023 'Component = spnSupply'
1024 'Status = stsDefault')
1025 (
1026 'Component = txtQuantity'
1027 'Status = stsDefault')
1028 (
1029 'Component = spnQuantity'
1030 'Status = stsDefault')
1031 (
1032 'Component = txtRefills'
1033 'Status = stsDefault')
1034 (
1035 'Component = spnRefills'
1036 'Status = stsDefault')
1037 (
1038 'Component = grpPickup'
1039 'Status = stsDefault')
1040 (
1041 'Component = radPickWindow'
1042 'Status = stsDefault')
1043 (
1044 'Component = radPickMail'
1045 'Status = stsDefault')
1046 (
1047 'Component = radPickClinic'
1048 'Status = stsDefault')
1049 (
1050 'Component = cboPriority'
1051 'Status = stsDefault')
1052 (
1053 'Component = stcPI'
1054 'Status = stsDefault')
1055 (
1056 'Component = chkPtInstruct'
1057 'Status = stsDefault')
1058 (
1059 'Component = memPI'
1060 'Status = stsDefault')
1061 (
1062 'Component = memDrugMsg'
1063 'Status = stsDefault')
1064 (
1065 'Component = memOrder'
1066 'Status = stsDefault')
1067 (
1068 'Component = cmdAccept'
1069 'Status = stsDefault')
1070 (
1071 'Component = cmdQuit'
1072 'Status = stsDefault')
1073 (
1074 'Component = pnlMessage'
1075 'Status = stsDefault')
1076 (
1077 'Component = memMessage'
1078 'Status = stsDefault')
1079 (
1080 'Component = frmODMeds'
1081 'Status = stsDefault')
1082 (
1083 'Component = cboXSequence'
1084 'Status = stsDefault')
1085 (
1086 'Component = lblAdminSch'
1087 'Status = stsDefault')
1088 (
1089 'Component = lblAdminTime'
1090 'Status = stsDefault'))
1091 end
1092 object dlgStart: TORDateTimeDlg
1093 FMDateTime = 3001101.000000000000000000
1094 DateOnly = False
1095 RequireTime = True
1096 Left = 444
1097 Top = 336
1098 end
1099 object timCheckChanges: TTimer
1100 Enabled = False
1101 Interval = 500
1102 OnTimer = timCheckChangesTimer
1103 Left = 477
1104 Top = 336
1105 end
1106 object popDuration: TPopupMenu
1107 AutoHotkeys = maManual
1108 Left = 380
1109 Top = 145
1110 object popBlank: TMenuItem
1111 Caption = '(no selection)'
1112 OnClick = popDurationClick
1113 end
1114 object months1: TMenuItem
1115 Tag = 5
1116 Caption = 'months'
1117 OnClick = popDurationClick
1118 end
1119 object weeks1: TMenuItem
1120 Tag = 4
1121 Caption = 'weeks'
1122 OnClick = popDurationClick
1123 end
1124 object popDays: TMenuItem
1125 Tag = 3
1126 Caption = 'days'
1127 OnClick = popDurationClick
1128 end
1129 object hours1: TMenuItem
1130 Tag = 2
1131 Caption = 'hours'
1132 OnClick = popDurationClick
1133 end
1134 object minutes1: TMenuItem
1135 Tag = 1
1136 Caption = 'minutes'
1137 OnClick = popDurationClick
1138 end
1139 end
1140end
Note: See TracBrowser for help on using the repository browser.