source: cprs/trunk/CPRS-Chart/Orders/fODDiet.dfm@ 1245

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

Upgrade to version 27
File size: 30.4 KB
Line 
1inherited frmODDiet: TfrmODDiet
2 Left = 541
3 Top = 398
4 Width = 532
5 Height = 291
6 Caption = 'Diet Order'
7 ExplicitWidth = 532
8 ExplicitHeight = 291
9 PixelsPerInch = 96
10 TextHeight = 13
11 object nbkDiet: TPageControl [0]
12 Left = 0
13 Top = 0
14 Width = 524
15 Height = 194
16 ActivePage = pgeOutPt
17 Align = alTop
18 TabOrder = 4
19 TabStop = False
20 OnChange = nbkDietChange
21 OnChanging = nbkDietChanging
22 object pgeDiet: TTabSheet
23 Caption = 'Diet'
24 object lblDietAvail: TLabel
25 Left = 4
26 Top = 0
27 Width = 127
28 Height = 13
29 Caption = 'Available Diet Components'
30 end
31 object lblDietSelect: TLabel
32 Left = 200
33 Top = 0
34 Width = 126
35 Height = 13
36 Caption = 'Selected Diet Components'
37 end
38 object lblComment: TLabel
39 Left = 200
40 Top = 119
41 Width = 92
42 Height = 13
43 Caption = 'Special Instructions'
44 end
45 object lblStart: TLabel
46 Left = 393
47 Top = 0
48 Width = 96
49 Height = 13
50 Caption = 'Effective Date/Time'
51 end
52 object lblStop: TLabel
53 Left = 393
54 Top = 39
55 Width = 100
56 Height = 13
57 Caption = 'Expiration Date/Time'
58 end
59 object lblDelivery: TLabel
60 Left = 393
61 Top = 77
62 Width = 38
63 Height = 13
64 Caption = 'Delivery'
65 end
66 object cboDietAvail: TORComboBox
67 Left = 4
68 Top = 14
69 Width = 188
70 Height = 140
71 Style = orcsSimple
72 AutoSelect = True
73 Caption = 'Available Diet Components'
74 Color = clWindow
75 DropDownCount = 8
76 ItemHeight = 13
77 ItemTipColor = clWindow
78 ItemTipEnable = True
79 ListItemsOnly = True
80 LongList = True
81 LookupPiece = 0
82 MaxLength = 0
83 Pieces = '2'
84 Sorted = False
85 SynonymChars = '<>'
86 TabOrder = 0
87 OnExit = cboDietAvailExit
88 OnMouseClick = cboDietAvailMouseClick
89 OnNeedData = cboDietAvailNeedData
90 CharsNeedMatch = 1
91 end
92 object lstDietSelect: TORListBox
93 Left = 200
94 Top = 14
95 Width = 185
96 Height = 71
97 ItemHeight = 13
98 ParentShowHint = False
99 ShowHint = True
100 TabOrder = 1
101 Caption = 'Selected Diet Components'
102 ItemTipColor = clWindow
103 LongList = False
104 Pieces = '2'
105 end
106 object cmdRemove: TButton
107 Left = 313
108 Top = 85
109 Width = 72
110 Height = 17
111 Caption = 'Remove'
112 TabOrder = 2
113 OnClick = cmdRemoveClick
114 end
115 object txtDietComment: TCaptionEdit
116 Left = 200
117 Top = 133
118 Width = 308
119 Height = 21
120 MaxLength = 80
121 TabOrder = 3
122 OnChange = DietChange
123 Caption = 'Special Instructions'
124 end
125 object calDietStart: TORDateBox
126 Left = 393
127 Top = 14
128 Width = 115
129 Height = 21
130 TabOrder = 4
131 Text = 'Now'
132 OnChange = DietChange
133 DateOnly = False
134 RequireTime = False
135 Caption = 'Effective Date/Time'
136 end
137 object calDietStop: TORDateBox
138 Left = 393
139 Top = 52
140 Width = 115
141 Height = 21
142 TabOrder = 5
143 OnChange = DietChange
144 DateOnly = False
145 RequireTime = False
146 Caption = 'Expiration Date/Time'
147 end
148 object cboDelivery: TORComboBox
149 Left = 393
150 Top = 90
151 Width = 115
152 Height = 21
153 Style = orcsDropDown
154 AutoSelect = True
155 Caption = 'Delivery'
156 Color = clWindow
157 DropDownCount = 8
158 ItemHeight = 13
159 ItemTipColor = clWindow
160 ItemTipEnable = True
161 ListItemsOnly = True
162 LongList = False
163 LookupPiece = 0
164 MaxLength = 0
165 Pieces = '2'
166 Sorted = False
167 SynonymChars = '<>'
168 TabOrder = 6
169 OnChange = DietChange
170 CharsNeedMatch = 1
171 end
172 object chkCancelTubefeeding: TCheckBox
173 Left = 393
174 Top = 114
175 Width = 115
176 Height = 17
177 Caption = 'Cancel Tubefeeding'
178 State = cbGrayed
179 TabOrder = 7
180 Visible = False
181 OnClick = DietChange
182 end
183 end
184 object pgeOutPt: TTabSheet
185 Caption = 'Outpatient Meals'
186 object lblOPStart: TLabel
187 Left = 292
188 Top = 1
189 Width = 48
190 Height = 13
191 Caption = 'Start Date'
192 end
193 object lblOPStop: TLabel
194 Left = 292
195 Top = 37
196 Width = 45
197 Height = 13
198 Caption = 'End Date'
199 end
200 object lblOPDietAvail: TLabel
201 Left = 0
202 Top = 1
203 Width = 70
204 Height = 13
205 Caption = 'Available Diets'
206 end
207 object lblOPComment: TLabel
208 Left = 4
209 Top = 128
210 Width = 92
211 Height = 13
212 Caption = 'Special Instructions'
213 end
214 object lblOPDelivery: TLabel
215 Left = 292
216 Top = 74
217 Width = 38
218 Height = 13
219 Caption = 'Delivery'
220 end
221 object lblOPSelect: TLabel
222 Left = 0
223 Top = 39
224 Width = 64
225 Height = 13
226 Caption = 'Selected Diet'
227 end
228 object grpOPMeal: TKeyClickRadioGroup
229 Left = 168
230 Top = 11
231 Width = 110
232 Height = 107
233 Caption = ' Meal '
234 ItemIndex = 3
235 Items.Strings = (
236 'Breakfast'
237 'Lunch'
238 'Evening'
239 '<none selected>')
240 TabOrder = 3
241 TabStop = True
242 OnClick = grpOPMealClick
243 end
244 object grpOPDoW: TGroupBox
245 Left = 415
246 Top = 5
247 Width = 93
248 Height = 155
249 Caption = 'Days of Week'
250 TabOrder = 8
251 object chkOPMonday: TCheckBox
252 Left = 8
253 Top = 15
254 Width = 80
255 Height = 17
256 Caption = 'Monday'
257 TabOrder = 0
258 OnClick = OPChange
259 end
260 object chkOPTuesday: TCheckBox
261 Left = 8
262 Top = 35
263 Width = 80
264 Height = 17
265 Caption = 'Tuesday'
266 TabOrder = 1
267 OnClick = OPChange
268 end
269 object chkOPWednesday: TCheckBox
270 Left = 8
271 Top = 54
272 Width = 80
273 Height = 17
274 Caption = 'Wednesday'
275 TabOrder = 2
276 OnClick = OPChange
277 end
278 object chkOPThursday: TCheckBox
279 Left = 8
280 Top = 73
281 Width = 80
282 Height = 17
283 Caption = 'Thursday'
284 TabOrder = 3
285 OnClick = OPChange
286 end
287 object chkOPFriday: TCheckBox
288 Left = 8
289 Top = 92
290 Width = 80
291 Height = 17
292 Caption = 'Friday'
293 TabOrder = 4
294 OnClick = OPChange
295 end
296 object chkOPSaturday: TCheckBox
297 Left = 8
298 Top = 111
299 Width = 80
300 Height = 17
301 Caption = 'Saturday'
302 TabOrder = 5
303 OnClick = OPChange
304 end
305 object chkOPSunday: TCheckBox
306 Left = 8
307 Top = 130
308 Width = 80
309 Height = 17
310 Caption = 'Sunday'
311 TabOrder = 6
312 OnClick = OPChange
313 end
314 end
315 object calOPStart: TORDateBox
316 Left = 292
317 Top = 14
318 Width = 120
319 Height = 21
320 TabOrder = 4
321 OnChange = calOPStartChange
322 OnEnter = calOPStartEnter
323 OnExit = calOPStartExit
324 DateOnly = True
325 RequireTime = False
326 Caption = 'Start Date'
327 end
328 object calOPStop: TORDateBox
329 Left = 292
330 Top = 50
331 Width = 120
332 Height = 21
333 TabOrder = 5
334 OnChange = calOPStopChange
335 DateOnly = True
336 RequireTime = False
337 Caption = 'End Date'
338 end
339 object cboOPDietAvail: TORComboBox
340 Left = 0
341 Top = 16
342 Width = 157
343 Height = 21
344 Style = orcsDropDown
345 AutoSelect = True
346 Caption = 'Available Diet Components'
347 Color = clWindow
348 DropDownCount = 8
349 ItemHeight = 13
350 ItemTipColor = clWindow
351 ItemTipEnable = True
352 ListItemsOnly = True
353 LongList = False
354 LookupPiece = 0
355 MaxLength = 0
356 Pieces = '2'
357 Sorted = False
358 SynonymChars = '<>'
359 TabOrder = 0
360 OnExit = cboDietAvailExit
361 OnKeyDown = cboOPDietAvailKeyDown
362 OnMouseClick = cboOPDietAvailMouseClick
363 CharsNeedMatch = 1
364 end
365 object txtOPDietComment: TCaptionEdit
366 Left = 3
367 Top = 143
368 Width = 404
369 Height = 21
370 MaxLength = 80
371 TabOrder = 11
372 OnChange = OPChange
373 Caption = 'Special Instructions'
374 end
375 object cboOPDelivery: TORComboBox
376 Left = 292
377 Top = 86
378 Width = 120
379 Height = 21
380 Style = orcsDropDown
381 AutoSelect = True
382 Caption = 'Delivery'
383 Color = clWindow
384 DropDownCount = 8
385 ItemHeight = 13
386 ItemTipColor = clWindow
387 ItemTipEnable = True
388 ListItemsOnly = True
389 LongList = False
390 LookupPiece = 0
391 MaxLength = 0
392 Pieces = '2'
393 Sorted = False
394 SynonymChars = '<>'
395 TabOrder = 6
396 OnChange = OPChange
397 CharsNeedMatch = 1
398 end
399 object lstOPDietSelect: TORListBox
400 Left = 0
401 Top = 53
402 Width = 156
403 Height = 56
404 ItemHeight = 13
405 ParentShowHint = False
406 ShowHint = True
407 TabOrder = 1
408 Caption = 'Selected Diet Components'
409 ItemTipColor = clWindow
410 LongList = False
411 Pieces = '2'
412 OnChange = OPChange
413 end
414 object cmdOPRemove: TButton
415 Left = 85
416 Top = 110
417 Width = 72
418 Height = 17
419 Caption = 'Remove'
420 TabOrder = 2
421 OnClick = cmdOPRemoveClick
422 end
423 object chkOPCancelTubefeeding: TCheckBox
424 Left = 292
425 Top = 112
426 Width = 115
427 Height = 17
428 Caption = 'Cancel Tubefeeding'
429 State = cbGrayed
430 TabOrder = 7
431 Visible = False
432 OnClick = OPChange
433 end
434 end
435 object pgeTubefeeding: TTabSheet
436 Caption = 'Tubefeeding'
437 object lblTFProductList: TLabel
438 Left = 4
439 Top = 0
440 Width = 105
441 Height = 13
442 Caption = 'Tubefeeding Products'
443 end
444 object lblTFComment: TLabel
445 Left = 4
446 Top = 119
447 Width = 92
448 Height = 13
449 Caption = 'Special Instructions'
450 end
451 object lblTFStrength: TLabel
452 Left = 288
453 Top = 0
454 Width = 40
455 Height = 13
456 Caption = 'Strength'
457 end
458 object lblTFQuantity: TLabel
459 Left = 352
460 Top = 0
461 Width = 39
462 Height = 13
463 Caption = 'Quantity'
464 end
465 object lblTFProduct: TLabel
466 Left = 152
467 Top = 0
468 Width = 37
469 Height = 13
470 Caption = 'Product'
471 end
472 object lblTFAmount: TLabel
473 Left = 428
474 Top = 0
475 Width = 36
476 Height = 13
477 Caption = 'Amount'
478 end
479 object lblOPTFStart: TLabel
480 Left = 341
481 Top = 90
482 Width = 51
483 Height = 13
484 Caption = 'Start Date:'
485 end
486 object cboProduct: TORComboBox
487 Left = 4
488 Top = 14
489 Width = 140
490 Height = 97
491 Style = orcsSimple
492 AutoSelect = True
493 Caption = 'Tubefeeding Products'
494 Color = clWindow
495 DropDownCount = 8
496 ItemHeight = 13
497 ItemTipColor = clWindow
498 ItemTipEnable = True
499 ListItemsOnly = True
500 LongList = True
501 LookupPiece = 0
502 MaxLength = 0
503 Pieces = '2'
504 Sorted = False
505 SynonymChars = '<>'
506 TabOrder = 0
507 OnExit = cboProductExit
508 OnMouseClick = cboProductMouseClick
509 CharsNeedMatch = 1
510 end
511 object txtTFComment: TCaptionEdit
512 Left = 6
513 Top = 133
514 Width = 504
515 Height = 21
516 MaxLength = 240
517 TabOrder = 8
518 OnChange = TFChange
519 Caption = 'Special Instructions'
520 end
521 object grdSelected: TCaptionStringGrid
522 Left = 152
523 Top = 14
524 Width = 356
525 Height = 63
526 ColCount = 4
527 DefaultColWidth = 88
528 DefaultRowHeight = 19
529 FixedCols = 0
530 RowCount = 1
531 FixedRows = 0
532 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
533 ScrollBars = ssVertical
534 TabOrder = 1
535 OnDrawCell = grdSelectedDrawCell
536 OnSelectCell = grdSelectedSelectCell
537 Caption = 'Selected Products'
538 end
539 object cmdTFRemove: TButton
540 Left = 436
541 Top = 77
542 Width = 72
543 Height = 17
544 Caption = 'Remove'
545 TabOrder = 4
546 OnClick = cmdTFRemoveClick
547 end
548 object chkCancelTrays: TCheckBox
549 Left = 152
550 Top = 96
551 Width = 153
552 Height = 17
553 Caption = 'Cancel Future TRAY Orders'
554 TabOrder = 5
555 OnClick = TFChange
556 end
557 object txtQuantity: TCaptionEdit
558 Tag = -1
559 Left = 151
560 Top = 124
561 Width = 93
562 Height = 19
563 Hint =
564 'Enter quantity as 2000 K, 100 ML/HOUR, 8 OZ/TID, etc; total quan' +
565 'tity may not exceed 5000ml.'
566 Ctl3D = False
567 ParentCtl3D = False
568 ParentShowHint = False
569 ShowHint = True
570 TabOrder = 3
571 Visible = False
572 OnChange = txtQuantityChange
573 OnEnter = txtQuantityEnter
574 OnExit = txtQuantityExit
575 OnKeyDown = txtQuantityKeyDown
576 Caption = 'Quantity'
577 end
578 object cboStrength: TCaptionComboBox
579 Tag = -1
580 Left = 252
581 Top = 124
582 Width = 53
583 Height = 21
584 Style = csDropDownList
585 Ctl3D = False
586 ItemHeight = 13
587 ParentCtl3D = False
588 TabOrder = 2
589 Visible = False
590 OnChange = cboStrengthChange
591 OnEnter = cboStrengthEnter
592 OnExit = cboStrengthExit
593 OnKeyDown = cboStrengthKeyDown
594 Items.Strings = (
595 '1/4'
596 '1/2'
597 '3/4'
598 'FULL')
599 Caption = 'Strength'
600 end
601 object calOPTFStart: TORDateBox
602 Left = 341
603 Top = 104
604 Width = 169
605 Height = 21
606 TabStop = False
607 TabOrder = 7
608 Visible = False
609 OnChange = TFChange
610 DateOnly = False
611 RequireTime = False
612 Caption = 'Start Date:'
613 end
614 object cboOPTFRecurringMeals: TORComboBox
615 Left = 342
616 Top = 105
617 Width = 160
618 Height = 21
619 Style = orcsDropDown
620 AutoSelect = True
621 Color = clWindow
622 DropDownCount = 8
623 ItemHeight = 13
624 ItemTipColor = clWindow
625 ItemTipEnable = True
626 ListItemsOnly = False
627 LongList = False
628 LookupPiece = 0
629 MaxLength = 0
630 Pieces = '2,3'
631 Sorted = False
632 SynonymChars = '<>'
633 TabPositions = '12'
634 TabOrder = 6
635 TabStop = True
636 OnChange = TFChange
637 CharsNeedMatch = 1
638 end
639 end
640 object pgeEarlyLate: TTabSheet
641 Caption = 'Early / Late Tray'
642 object lblELStart: TLabel
643 Left = 287
644 Top = 2
645 Width = 48
646 Height = 13
647 Caption = 'Start Date'
648 end
649 object lblELStop: TLabel
650 Left = 287
651 Top = 46
652 Width = 45
653 Height = 13
654 Caption = 'End Date'
655 end
656 object grpMeal: TKeyClickRadioGroup
657 Left = 4
658 Top = 2
659 Width = 106
660 Height = 93
661 Caption = ' Meal '
662 ItemIndex = 3
663 Items.Strings = (
664 'Breakfast'
665 'Lunch'
666 'Evening'
667 '<none selected>')
668 TabOrder = 0
669 TabStop = True
670 OnClick = grpMealClick
671 end
672 object grpMealTime: TGroupBox
673 Left = 114
674 Top = 4
675 Width = 161
676 Height = 93
677 Caption = ' Meal Times '
678 TabOrder = 1
679 object lblNoTimes: TLabel
680 Left = 29
681 Top = 44
682 Width = 96
683 Height = 13
684 Caption = 'No meal times listed.'
685 Visible = False
686 end
687 object radET1: TRadioButton
688 Left = 8
689 Top = 18
690 Width = 56
691 Height = 17
692 TabOrder = 0
693 Visible = False
694 OnClick = ELChange
695 end
696 object radET2: TRadioButton
697 Left = 8
698 Top = 43
699 Width = 56
700 Height = 17
701 TabOrder = 1
702 Visible = False
703 OnClick = ELChange
704 end
705 object radET3: TRadioButton
706 Left = 8
707 Top = 68
708 Width = 56
709 Height = 17
710 TabOrder = 2
711 Visible = False
712 OnClick = ELChange
713 end
714 object radLT1: TRadioButton
715 Left = 92
716 Top = 18
717 Width = 56
718 Height = 17
719 TabOrder = 3
720 Visible = False
721 OnClick = ELChange
722 end
723 object radLT2: TRadioButton
724 Left = 92
725 Top = 43
726 Width = 56
727 Height = 17
728 TabOrder = 4
729 Visible = False
730 OnClick = ELChange
731 end
732 object radLT3: TRadioButton
733 Left = 92
734 Top = 68
735 Width = 56
736 Height = 17
737 TabOrder = 5
738 Visible = False
739 OnClick = ELChange
740 end
741 end
742 object calELStart: TORDateBox
743 Left = 287
744 Top = 15
745 Width = 120
746 Height = 21
747 TabOrder = 2
748 OnChange = calELStartChange
749 OnEnter = calELStartEnter
750 OnExit = calELStartExit
751 DateOnly = True
752 RequireTime = False
753 Caption = 'Start Date'
754 end
755 object calELStop: TORDateBox
756 Left = 287
757 Top = 60
758 Width = 120
759 Height = 21
760 TabOrder = 4
761 OnChange = calELStopChange
762 DateOnly = True
763 RequireTime = False
764 Caption = 'End Date'
765 end
766 object grpDoW: TGroupBox
767 Left = 415
768 Top = 2
769 Width = 93
770 Height = 152
771 Caption = 'Days of Week'
772 TabOrder = 5
773 object chkMonday: TCheckBox
774 Left = 8
775 Top = 16
776 Width = 80
777 Height = 17
778 Caption = 'Monday'
779 TabOrder = 0
780 OnClick = ELChange
781 end
782 object chkTuesday: TCheckBox
783 Left = 8
784 Top = 35
785 Width = 80
786 Height = 17
787 Caption = 'Tuesday'
788 TabOrder = 1
789 OnClick = ELChange
790 end
791 object chkWednesday: TCheckBox
792 Left = 8
793 Top = 54
794 Width = 80
795 Height = 17
796 Caption = 'Wednesday'
797 TabOrder = 2
798 OnClick = ELChange
799 end
800 object chkThursday: TCheckBox
801 Left = 8
802 Top = 73
803 Width = 80
804 Height = 17
805 Caption = 'Thursday'
806 TabOrder = 3
807 OnClick = ELChange
808 end
809 object chkFriday: TCheckBox
810 Left = 8
811 Top = 92
812 Width = 80
813 Height = 17
814 Caption = 'Friday'
815 TabOrder = 4
816 OnClick = ELChange
817 end
818 object chkSaturday: TCheckBox
819 Left = 8
820 Top = 111
821 Width = 80
822 Height = 17
823 Caption = 'Saturday'
824 TabOrder = 5
825 OnClick = ELChange
826 end
827 object chkSunday: TCheckBox
828 Left = 9
829 Top = 130
830 Width = 80
831 Height = 17
832 Caption = 'Sunday'
833 TabOrder = 6
834 OnClick = ELChange
835 end
836 end
837 object chkBagged: TCheckBox
838 Left = 4
839 Top = 120
840 Width = 85
841 Height = 17
842 Caption = 'Bagged Meal'
843 TabOrder = 6
844 OnClick = ELChange
845 end
846 object cboOPELRecurringMeals: TORComboBox
847 Left = 287
848 Top = 15
849 Width = 121
850 Height = 21
851 Style = orcsDropDown
852 AutoSelect = True
853 Color = clWindow
854 DropDownCount = 8
855 ItemHeight = 13
856 ItemTipColor = clWindow
857 ItemTipEnable = True
858 ListItemsOnly = False
859 LongList = False
860 LookupPiece = 0
861 MaxLength = 0
862 Pieces = '2,3'
863 Sorted = False
864 SynonymChars = '<>'
865 TabPositions = '12'
866 TabOrder = 3
867 TabStop = True
868 OnChange = ELChange
869 CharsNeedMatch = 1
870 end
871 end
872 object pgeIsolations: TTabSheet
873 Caption = 'Isolations / Precautions'
874 object lblIsolation: TLabel
875 Left = 4
876 Top = 0
877 Width = 123
878 Height = 13
879 Caption = 'Select Type of Precaution'
880 end
881 object lblIPComment: TLabel
882 Left = 4
883 Top = 119
884 Width = 54
885 Height = 13
886 Caption = 'Instructions'
887 end
888 object lblIPCurrent: TLabel
889 Left = 224
890 Top = 0
891 Width = 76
892 Height = 13
893 Caption = 'Current Isolation'
894 end
895 object lstIsolation: TORListBox
896 Left = 4
897 Top = 14
898 Width = 212
899 Height = 97
900 ItemHeight = 13
901 ParentShowHint = False
902 ShowHint = True
903 TabOrder = 0
904 Caption = 'Select Type of Precaution'
905 ItemTipColor = clWindow
906 LongList = False
907 Pieces = '2'
908 OnChange = IPChange
909 end
910 object txtIPComment: TCaptionEdit
911 Left = 4
912 Top = 133
913 Width = 504
914 Height = 21
915 MaxLength = 240
916 TabOrder = 2
917 OnChange = IPChange
918 Caption = 'Instructions'
919 end
920 object txtIPCurrent: TCaptionEdit
921 Left = 224
922 Top = 14
923 Width = 212
924 Height = 21
925 Color = clBtnFace
926 ReadOnly = True
927 TabOrder = 1
928 Text = '<none>'
929 Caption = 'Current Isolation'
930 end
931 end
932 object pgeAdditional: TTabSheet
933 Caption = 'Additional Order'
934 object lblAddlOrder: TLabel
935 Left = 4
936 Top = 24
937 Width = 125
938 Height = 13
939 Caption = 'Enter Additional Diet Order'
940 end
941 object lblOPAOStart: TLabel
942 Left = 6
943 Top = 72
944 Width = 51
945 Height = 13
946 Caption = 'Start Date:'
947 end
948 object txtAOComment: TCaptionEdit
949 Left = 4
950 Top = 38
951 Width = 504
952 Height = 21
953 MaxLength = 80
954 TabOrder = 1
955 OnChange = AOChange
956 Caption = 'Enter Additional Diet Order'
957 end
958 object calOPAOStart: TORDateBox
959 Left = 54
960 Top = 88
961 Width = 169
962 Height = 21
963 TabStop = False
964 TabOrder = 4
965 Visible = False
966 OnChange = AOChange
967 DateOnly = False
968 RequireTime = False
969 Caption = 'Start Date:'
970 end
971 object cboOPAORecurringMeals: TORComboBox
972 Left = 6
973 Top = 88
974 Width = 168
975 Height = 21
976 Style = orcsDropDown
977 AutoSelect = True
978 Color = clWindow
979 DropDownCount = 8
980 ItemHeight = 13
981 ItemTipColor = clWindow
982 ItemTipEnable = True
983 ListItemsOnly = False
984 LongList = False
985 LookupPiece = 0
986 MaxLength = 0
987 Pieces = '2,3'
988 Sorted = False
989 SynonymChars = '<>'
990 TabPositions = '12'
991 TabOrder = 2
992 TabStop = True
993 OnChange = AOChange
994 CharsNeedMatch = 1
995 end
996 end
997 end
998 inherited memOrder: TCaptionMemo
999 Top = 208
1000 ExplicitTop = 208
1001 end
1002 inherited cmdAccept: TButton
1003 Left = 445
1004 Top = 208
1005 TabOrder = 2
1006 ExplicitLeft = 445
1007 ExplicitTop = 208
1008 end
1009 inherited cmdQuit: TButton
1010 Left = 445
1011 Top = 235
1012 TabOrder = 3
1013 ExplicitLeft = 445
1014 ExplicitTop = 235
1015 end
1016 inherited pnlMessage: TPanel
1017 Top = 197
1018 Height = 57
1019 TabOrder = 1
1020 ExplicitTop = 197
1021 ExplicitHeight = 57
1022 inherited imgMessage: TImage
1023 Top = 10
1024 ExplicitTop = 10
1025 end
1026 inherited memMessage: TRichEdit
1027 Height = 45
1028 ExplicitHeight = 45
1029 end
1030 end
1031 inherited amgrMain: TVA508AccessibilityManager
1032 Data = (
1033 (
1034 'Component = nbkDiet'
1035 'Status = stsDefault')
1036 (
1037 'Component = pgeDiet'
1038 'Status = stsDefault')
1039 (
1040 'Component = cboDietAvail'
1041 'Status = stsDefault')
1042 (
1043 'Component = lstDietSelect'
1044 'Status = stsDefault')
1045 (
1046 'Component = cmdRemove'
1047 'Status = stsDefault')
1048 (
1049 'Component = txtDietComment'
1050 'Status = stsDefault')
1051 (
1052 'Component = calDietStart'
1053 'Status = stsDefault')
1054 (
1055 'Component = calDietStop'
1056 'Status = stsDefault')
1057 (
1058 'Component = cboDelivery'
1059 'Status = stsDefault')
1060 (
1061 'Component = chkCancelTubefeeding'
1062 'Status = stsDefault')
1063 (
1064 'Component = pgeOutPt'
1065 'Status = stsDefault')
1066 (
1067 'Component = grpOPMeal'
1068 'Status = stsDefault')
1069 (
1070 'Component = grpOPDoW'
1071 'Status = stsDefault')
1072 (
1073 'Component = chkOPMonday'
1074 'Status = stsDefault')
1075 (
1076 'Component = chkOPTuesday'
1077 'Status = stsDefault')
1078 (
1079 'Component = chkOPWednesday'
1080 'Status = stsDefault')
1081 (
1082 'Component = chkOPThursday'
1083 'Status = stsDefault')
1084 (
1085 'Component = chkOPFriday'
1086 'Status = stsDefault')
1087 (
1088 'Component = chkOPSaturday'
1089 'Status = stsDefault')
1090 (
1091 'Component = chkOPSunday'
1092 'Status = stsDefault')
1093 (
1094 'Component = calOPStart'
1095 'Status = stsDefault')
1096 (
1097 'Component = calOPStop'
1098 'Status = stsDefault')
1099 (
1100 'Component = cboOPDietAvail'
1101 'Status = stsDefault')
1102 (
1103 'Component = txtOPDietComment'
1104 'Status = stsDefault')
1105 (
1106 'Component = cboOPDelivery'
1107 'Status = stsDefault')
1108 (
1109 'Component = lstOPDietSelect'
1110 'Status = stsDefault')
1111 (
1112 'Component = cmdOPRemove'
1113 'Status = stsDefault')
1114 (
1115 'Component = chkOPCancelTubefeeding'
1116 'Status = stsDefault')
1117 (
1118 'Component = pgeTubefeeding'
1119 'Status = stsDefault')
1120 (
1121 'Component = cboProduct'
1122 'Status = stsDefault')
1123 (
1124 'Component = txtTFComment'
1125 'Status = stsDefault')
1126 (
1127 'Component = grdSelected'
1128 'Status = stsDefault')
1129 (
1130 'Component = cmdTFRemove'
1131 'Status = stsDefault')
1132 (
1133 'Component = chkCancelTrays'
1134 'Status = stsDefault')
1135 (
1136 'Component = txtQuantity'
1137 'Status = stsDefault')
1138 (
1139 'Component = cboStrength'
1140 'Status = stsDefault')
1141 (
1142 'Component = calOPTFStart'
1143 'Status = stsDefault')
1144 (
1145 'Component = cboOPTFRecurringMeals'
1146 'Status = stsDefault')
1147 (
1148 'Component = pgeEarlyLate'
1149 'Status = stsDefault')
1150 (
1151 'Component = grpMeal'
1152 'Status = stsDefault')
1153 (
1154 'Component = grpMealTime'
1155 'Status = stsDefault')
1156 (
1157 'Component = radET1'
1158 'Status = stsDefault')
1159 (
1160 'Component = radET2'
1161 'Status = stsDefault')
1162 (
1163 'Component = radET3'
1164 'Status = stsDefault')
1165 (
1166 'Component = radLT1'
1167 'Status = stsDefault')
1168 (
1169 'Component = radLT2'
1170 'Status = stsDefault')
1171 (
1172 'Component = radLT3'
1173 'Status = stsDefault')
1174 (
1175 'Component = calELStart'
1176 'Status = stsDefault')
1177 (
1178 'Component = calELStop'
1179 'Status = stsDefault')
1180 (
1181 'Component = grpDoW'
1182 'Status = stsDefault')
1183 (
1184 'Component = chkMonday'
1185 'Status = stsDefault')
1186 (
1187 'Component = chkTuesday'
1188 'Status = stsDefault')
1189 (
1190 'Component = chkWednesday'
1191 'Status = stsDefault')
1192 (
1193 'Component = chkThursday'
1194 'Status = stsDefault')
1195 (
1196 'Component = chkFriday'
1197 'Status = stsDefault')
1198 (
1199 'Component = chkSaturday'
1200 'Status = stsDefault')
1201 (
1202 'Component = chkSunday'
1203 'Status = stsDefault')
1204 (
1205 'Component = chkBagged'
1206 'Status = stsDefault')
1207 (
1208 'Component = cboOPELRecurringMeals'
1209 'Status = stsDefault')
1210 (
1211 'Component = pgeIsolations'
1212 'Status = stsDefault')
1213 (
1214 'Component = lstIsolation'
1215 'Status = stsDefault')
1216 (
1217 'Component = txtIPComment'
1218 'Status = stsDefault')
1219 (
1220 'Component = txtIPCurrent'
1221 'Status = stsDefault')
1222 (
1223 'Component = pgeAdditional'
1224 'Status = stsDefault')
1225 (
1226 'Component = txtAOComment'
1227 'Status = stsDefault')
1228 (
1229 'Component = calOPAOStart'
1230 'Status = stsDefault')
1231 (
1232 'Component = cboOPAORecurringMeals'
1233 'Status = stsDefault')
1234 (
1235 'Component = memOrder'
1236 'Status = stsDefault')
1237 (
1238 'Component = cmdAccept'
1239 'Status = stsDefault')
1240 (
1241 'Component = cmdQuit'
1242 'Status = stsDefault')
1243 (
1244 'Component = pnlMessage'
1245 'Status = stsDefault')
1246 (
1247 'Component = memMessage'
1248 'Status = stsDefault')
1249 (
1250 'Component = frmODDiet'
1251 'Status = stsDefault'))
1252 end
1253end
Note: See TracBrowser for help on using the repository browser.