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

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

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