source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODDiet.dfm@ 459

Last change on this file since 459 was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch
File size: 21.6 KB
Line 
1inherited frmODDiet: TfrmODDiet
2 Left = 404
3 Top = 199
4 Caption = 'Diet Order'
5 OnKeyDown = FormKeyDown
6 PixelsPerInch = 96
7 TextHeight = 13
8 object nbkDiet: TPageControl [0]
9 Left = 0
10 Top = 0
11 Width = 520
12 Height = 186
13 ActivePage = pgeOutPt
14 Align = alTop
15 TabIndex = 1
16 TabOrder = 4
17 TabStop = False
18 OnChange = nbkDietChange
19 OnChanging = nbkDietChanging
20 object pgeDiet: TTabSheet
21 Caption = 'Diet'
22 object lblDietAvail: TLabel
23 Left = 4
24 Top = 0
25 Width = 127
26 Height = 13
27 Caption = 'Available Diet Components'
28 end
29 object lblDietSelect: TLabel
30 Left = 200
31 Top = 0
32 Width = 126
33 Height = 13
34 Caption = 'Selected Diet Components'
35 end
36 object lblComment: TLabel
37 Left = 200
38 Top = 119
39 Width = 92
40 Height = 13
41 Caption = 'Special Instructions'
42 end
43 object lblStart: TLabel
44 Left = 393
45 Top = 0
46 Width = 96
47 Height = 13
48 Caption = 'Effective Date/Time'
49 end
50 object lblStop: TLabel
51 Left = 393
52 Top = 39
53 Width = 100
54 Height = 13
55 Caption = 'Expiration Date/Time'
56 end
57 object lblDelivery: TLabel
58 Left = 393
59 Top = 77
60 Width = 38
61 Height = 13
62 Caption = 'Delivery'
63 end
64 object cboDietAvail: TORComboBox
65 Left = 4
66 Top = 14
67 Width = 188
68 Height = 140
69 Style = orcsSimple
70 AutoSelect = True
71 Caption = 'Available Diet Components'
72 Color = clWindow
73 DropDownCount = 8
74 ItemHeight = 13
75 ItemTipColor = clWindow
76 ItemTipEnable = True
77 ListItemsOnly = True
78 LongList = True
79 LookupPiece = 0
80 MaxLength = 0
81 Pieces = '2'
82 Sorted = False
83 SynonymChars = '<>'
84 TabOrder = 0
85 OnExit = cboDietAvailExit
86 OnMouseClick = cboDietAvailMouseClick
87 OnNeedData = cboDietAvailNeedData
88 end
89 object lstDietSelect: TORListBox
90 Left = 200
91 Top = 14
92 Width = 185
93 Height = 71
94 ItemHeight = 13
95 ParentShowHint = False
96 ShowHint = True
97 TabOrder = 1
98 Caption = 'Selected Diet Components'
99 ItemTipColor = clWindow
100 LongList = False
101 Pieces = '2'
102 end
103 object cmdRemove: TButton
104 Left = 313
105 Top = 85
106 Width = 72
107 Height = 17
108 Caption = 'Remove'
109 TabOrder = 2
110 OnClick = cmdRemoveClick
111 end
112 object txtDietComment: TCaptionEdit
113 Left = 200
114 Top = 133
115 Width = 308
116 Height = 21
117 MaxLength = 80
118 TabOrder = 3
119 OnChange = DietChange
120 Caption = 'Special Instructions'
121 end
122 object calDietStart: TORDateBox
123 Left = 393
124 Top = 14
125 Width = 115
126 Height = 21
127 TabOrder = 4
128 Text = 'Now'
129 OnChange = DietChange
130 DateOnly = False
131 RequireTime = False
132 Caption = 'Effective Date/Time'
133 end
134 object calDietStop: TORDateBox
135 Left = 393
136 Top = 52
137 Width = 115
138 Height = 21
139 TabOrder = 5
140 OnChange = DietChange
141 DateOnly = False
142 RequireTime = False
143 Caption = 'Expiration Date/Time'
144 end
145 object cboDelivery: TORComboBox
146 Left = 393
147 Top = 90
148 Width = 115
149 Height = 21
150 Style = orcsDropDown
151 AutoSelect = True
152 Caption = 'Delivery'
153 Color = clWindow
154 DropDownCount = 8
155 ItemHeight = 13
156 ItemTipColor = clWindow
157 ItemTipEnable = True
158 ListItemsOnly = True
159 LongList = False
160 LookupPiece = 0
161 MaxLength = 0
162 Pieces = '2'
163 Sorted = False
164 SynonymChars = '<>'
165 TabOrder = 6
166 OnChange = DietChange
167 end
168 object chkCancelTubefeeding: TCheckBox
169 Left = 393
170 Top = 114
171 Width = 115
172 Height = 17
173 Caption = 'Cancel Tubefeeding'
174 State = cbGrayed
175 TabOrder = 7
176 Visible = False
177 OnClick = DietChange
178 end
179 end
180 object pgeOutPt: TTabSheet
181 Caption = 'Outpatient Meals'
182 object lblOPStart: TLabel
183 Left = 292
184 Top = 1
185 Width = 48
186 Height = 13
187 Caption = 'Start Date'
188 end
189 object lblOPStop: TLabel
190 Left = 292
191 Top = 37
192 Width = 45
193 Height = 13
194 Caption = 'End Date'
195 end
196 object lblOPDietAvail: TLabel
197 Left = 127
198 Top = 0
199 Width = 70
200 Height = 13
201 Caption = 'Available Diets'
202 end
203 object lblOPComment: TLabel
204 Left = 4
205 Top = 117
206 Width = 92
207 Height = 13
208 Caption = 'Special Instructions'
209 end
210 object lblOPDelivery: TLabel
211 Left = 292
212 Top = 74
213 Width = 38
214 Height = 13
215 Caption = 'Delivery'
216 end
217 object lblOPSelect: TLabel
218 Left = 127
219 Top = 38
220 Width = 64
221 Height = 13
222 Caption = 'Selected Diet'
223 end
224 object grpOPMeal: TKeyClickRadioGroup
225 Left = 5
226 Top = 5
227 Width = 110
228 Height = 107
229 Caption = ' Meal '
230 ItemIndex = 3
231 Items.Strings = (
232 'Breakfast'
233 'Lunch'
234 'Evening'
235 '<none selected>')
236 TabOrder = 0
237 TabStop = True
238 OnClick = grpOPMealClick
239 end
240 object grpOPDoW: TGroupBox
241 Left = 415
242 Top = 5
243 Width = 93
244 Height = 149
245 Caption = 'Days of Week'
246 TabOrder = 8
247 object chkOPMonday: TCheckBox
248 Left = 8
249 Top = 15
250 Width = 80
251 Height = 17
252 Caption = 'Monday'
253 TabOrder = 0
254 OnClick = OPChange
255 end
256 object chkOPTuesday: TCheckBox
257 Left = 8
258 Top = 35
259 Width = 80
260 Height = 17
261 Caption = 'Tuesday'
262 TabOrder = 1
263 OnClick = OPChange
264 end
265 object chkOPWednesday: TCheckBox
266 Left = 8
267 Top = 54
268 Width = 80
269 Height = 17
270 Caption = 'Wednesday'
271 TabOrder = 2
272 OnClick = OPChange
273 end
274 object chkOPThursday: TCheckBox
275 Left = 8
276 Top = 73
277 Width = 80
278 Height = 17
279 Caption = 'Thursday'
280 TabOrder = 3
281 OnClick = OPChange
282 end
283 object chkOPFriday: TCheckBox
284 Left = 8
285 Top = 92
286 Width = 80
287 Height = 17
288 Caption = 'Friday'
289 TabOrder = 4
290 OnClick = OPChange
291 end
292 object chkOPSaturday: TCheckBox
293 Left = 8
294 Top = 111
295 Width = 80
296 Height = 17
297 Caption = 'Saturday'
298 TabOrder = 5
299 OnClick = OPChange
300 end
301 object chkOPSunday: TCheckBox
302 Left = 8
303 Top = 130
304 Width = 80
305 Height = 17
306 Caption = 'Sunday'
307 TabOrder = 6
308 OnClick = OPChange
309 end
310 end
311 object calOPStart: TORDateBox
312 Left = 292
313 Top = 14
314 Width = 120
315 Height = 21
316 TabOrder = 4
317 OnChange = calOPStartChange
318 OnEnter = calOPStartEnter
319 OnExit = calOPStartExit
320 DateOnly = True
321 RequireTime = False
322 Caption = 'Start Date'
323 end
324 object calOPStop: TORDateBox
325 Left = 292
326 Top = 50
327 Width = 120
328 Height = 21
329 TabOrder = 5
330 OnChange = calOPStopChange
331 DateOnly = True
332 RequireTime = False
333 Caption = 'End Date'
334 end
335 object cboOPDietAvail: TORComboBox
336 Left = 127
337 Top = 15
338 Width = 157
339 Height = 21
340 Style = orcsDropDown
341 AutoSelect = True
342 Caption = 'Available Diet Components'
343 Color = clWindow
344 DropDownCount = 8
345 ItemHeight = 13
346 ItemTipColor = clWindow
347 ItemTipEnable = True
348 ListItemsOnly = True
349 LongList = True
350 LookupPiece = 0
351 MaxLength = 0
352 Pieces = '2'
353 Sorted = False
354 SynonymChars = '<>'
355 TabOrder = 1
356 OnExit = cboDietAvailExit
357 OnMouseClick = cboOPDietAvailMouseClick
358 OnNeedData = cboOPDietAvailNeedData
359 end
360 object txtOPDietComment: TCaptionEdit
361 Left = 4
362 Top = 131
363 Width = 404
364 Height = 21
365 MaxLength = 80
366 TabOrder = 11
367 OnChange = OPChange
368 Caption = 'Special Instructions'
369 end
370 object cboOPDelivery: TORComboBox
371 Left = 292
372 Top = 86
373 Width = 120
374 Height = 21
375 Style = orcsDropDown
376 AutoSelect = True
377 Caption = 'Delivery'
378 Color = clWindow
379 DropDownCount = 8
380 ItemHeight = 13
381 ItemTipColor = clWindow
382 ItemTipEnable = True
383 ListItemsOnly = True
384 LongList = False
385 LookupPiece = 0
386 MaxLength = 0
387 Pieces = '2'
388 Sorted = False
389 SynonymChars = '<>'
390 TabOrder = 9
391 OnChange = OPChange
392 end
393 object lstOPDietSelect: TORListBox
394 Left = 127
395 Top = 52
396 Width = 156
397 Height = 56
398 ItemHeight = 13
399 ParentShowHint = False
400 ShowHint = True
401 TabOrder = 2
402 Caption = 'Selected Diet Components'
403 ItemTipColor = clWindow
404 LongList = False
405 Pieces = '2'
406 end
407 object cmdOPRemove: TButton
408 Left = 212
409 Top = 109
410 Width = 72
411 Height = 17
412 Caption = 'Remove'
413 TabOrder = 3
414 OnClick = cmdOPRemoveClick
415 end
416 object chkOPCancelTubefeeding: TCheckBox
417 Left = 292
418 Top = 112
419 Width = 115
420 Height = 17
421 Caption = 'Cancel Tubefeeding'
422 State = cbGrayed
423 TabOrder = 10
424 Visible = False
425 OnClick = DietChange
426 end
427 end
428 object pgeTubefeeding: TTabSheet
429 Caption = 'Tubefeeding'
430 object lblTFProductList: TLabel
431 Left = 4
432 Top = 0
433 Width = 105
434 Height = 13
435 Caption = 'Tubefeeding Products'
436 end
437 object lblTFComment: TLabel
438 Left = 4
439 Top = 119
440 Width = 92
441 Height = 13
442 Caption = 'Special Instructions'
443 end
444 object lblTFStrength: TLabel
445 Left = 288
446 Top = 0
447 Width = 40
448 Height = 13
449 Caption = 'Strength'
450 end
451 object lblTFQuantity: TLabel
452 Left = 352
453 Top = 0
454 Width = 39
455 Height = 13
456 Caption = 'Quantity'
457 end
458 object lblTFProduct: TLabel
459 Left = 152
460 Top = 0
461 Width = 37
462 Height = 13
463 Caption = 'Product'
464 end
465 object lblTFAmount: TLabel
466 Left = 428
467 Top = 0
468 Width = 36
469 Height = 13
470 Caption = 'Amount'
471 end
472 object cboProduct: TORComboBox
473 Left = 4
474 Top = 14
475 Width = 140
476 Height = 97
477 Style = orcsSimple
478 AutoSelect = True
479 Caption = 'Tubefeeding Products'
480 Color = clWindow
481 DropDownCount = 8
482 ItemHeight = 13
483 ItemTipColor = clWindow
484 ItemTipEnable = True
485 ListItemsOnly = True
486 LongList = True
487 LookupPiece = 0
488 MaxLength = 0
489 Pieces = '2'
490 Sorted = False
491 SynonymChars = '<>'
492 TabOrder = 0
493 OnExit = cboProductExit
494 OnMouseClick = cboProductMouseClick
495 end
496 object txtTFComment: TCaptionEdit
497 Left = 4
498 Top = 133
499 Width = 504
500 Height = 21
501 MaxLength = 240
502 TabOrder = 6
503 OnChange = TFChange
504 Caption = 'Special Instructions'
505 end
506 object grdSelected: TCaptionStringGrid
507 Left = 152
508 Top = 14
509 Width = 356
510 Height = 63
511 ColCount = 4
512 DefaultColWidth = 88
513 DefaultRowHeight = 19
514 FixedCols = 0
515 RowCount = 1
516 FixedRows = 0
517 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
518 ScrollBars = ssVertical
519 TabOrder = 1
520 OnDrawCell = grdSelectedDrawCell
521 OnSelectCell = grdSelectedSelectCell
522 Caption = 'Selected Products'
523 end
524 object cmdTFRemove: TButton
525 Left = 436
526 Top = 77
527 Width = 72
528 Height = 17
529 Caption = 'Remove'
530 TabOrder = 4
531 OnClick = cmdTFRemoveClick
532 end
533 object chkCancelTrays: TCheckBox
534 Left = 152
535 Top = 96
536 Width = 153
537 Height = 17
538 Caption = 'Cancel Future TRAY Orders'
539 TabOrder = 5
540 OnClick = TFChange
541 end
542 object txtQuantity: TCaptionEdit
543 Tag = -1
544 Left = 340
545 Top = 108
546 Width = 93
547 Height = 19
548 Hint =
549 'Enter quantity as 2000 K, 100 CC/HOUR, 8 OZ/TID, etc; total quan' +
550 'tity may not exceed 5000cc.'
551 Ctl3D = False
552 ParentCtl3D = False
553 ParentShowHint = False
554 ShowHint = True
555 TabOrder = 3
556 Visible = False
557 OnChange = txtQuantityChange
558 OnEnter = txtQuantityEnter
559 OnExit = txtQuantityExit
560 OnKeyDown = txtQuantityKeyDown
561 Caption = 'Quantity'
562 end
563 object cboStrength: TCaptionComboBox
564 Tag = -1
565 Left = 444
566 Top = 108
567 Width = 53
568 Height = 21
569 Style = csDropDownList
570 Ctl3D = False
571 ItemHeight = 13
572 ParentCtl3D = False
573 TabOrder = 2
574 Visible = False
575 OnChange = cboStrengthChange
576 OnEnter = cboStrengthEnter
577 OnExit = cboStrengthExit
578 OnKeyDown = cboStrengthKeyDown
579 Items.Strings = (
580 '1/4'
581 '1/2'
582 '3/4'
583 'FULL')
584 Caption = 'Strength'
585 end
586 end
587 object pgeEarlyLate: TTabSheet
588 Caption = 'Early / Late Tray'
589 object lblELStart: TLabel
590 Left = 287
591 Top = 2
592 Width = 48
593 Height = 13
594 Caption = 'Start Date'
595 end
596 object lblELStop: TLabel
597 Left = 287
598 Top = 46
599 Width = 45
600 Height = 13
601 Caption = 'End Date'
602 end
603 object grpMeal: TKeyClickRadioGroup
604 Left = 4
605 Top = 2
606 Width = 106
607 Height = 93
608 Caption = ' Meal '
609 ItemIndex = 3
610 Items.Strings = (
611 'Breakfast'
612 'Lunch'
613 'Evening'
614 '<none selected>')
615 TabOrder = 0
616 TabStop = True
617 OnClick = grpMealClick
618 end
619 object grpMealTime: TGroupBox
620 Left = 114
621 Top = 4
622 Width = 161
623 Height = 93
624 Caption = ' Meal Times '
625 TabOrder = 1
626 object lblNoTimes: TLabel
627 Left = 29
628 Top = 44
629 Width = 96
630 Height = 13
631 Caption = 'No meal times listed.'
632 Visible = False
633 end
634 object radET1: TRadioButton
635 Left = 8
636 Top = 18
637 Width = 56
638 Height = 17
639 TabOrder = 0
640 Visible = False
641 OnClick = ELChange
642 end
643 object radET2: TRadioButton
644 Left = 8
645 Top = 43
646 Width = 56
647 Height = 17
648 TabOrder = 1
649 Visible = False
650 OnClick = ELChange
651 end
652 object radET3: TRadioButton
653 Left = 8
654 Top = 68
655 Width = 56
656 Height = 17
657 TabOrder = 2
658 Visible = False
659 OnClick = ELChange
660 end
661 object radLT1: TRadioButton
662 Left = 92
663 Top = 18
664 Width = 56
665 Height = 17
666 TabOrder = 3
667 Visible = False
668 OnClick = ELChange
669 end
670 object radLT2: TRadioButton
671 Left = 92
672 Top = 43
673 Width = 56
674 Height = 17
675 TabOrder = 4
676 Visible = False
677 OnClick = ELChange
678 end
679 object radLT3: TRadioButton
680 Left = 92
681 Top = 68
682 Width = 56
683 Height = 17
684 TabOrder = 5
685 Visible = False
686 OnClick = ELChange
687 end
688 end
689 object calELStart: TORDateBox
690 Left = 287
691 Top = 15
692 Width = 120
693 Height = 21
694 TabOrder = 2
695 OnChange = calELStartChange
696 OnEnter = calELStartEnter
697 OnExit = calELStartExit
698 DateOnly = True
699 RequireTime = False
700 Caption = 'Start Date'
701 end
702 object calELStop: TORDateBox
703 Left = 287
704 Top = 60
705 Width = 120
706 Height = 21
707 TabOrder = 3
708 OnChange = calELStopChange
709 DateOnly = True
710 RequireTime = False
711 Caption = 'End Date'
712 end
713 object grpDoW: TGroupBox
714 Left = 415
715 Top = 2
716 Width = 93
717 Height = 152
718 Caption = 'Days of Week'
719 TabOrder = 4
720 object chkMonday: TCheckBox
721 Left = 8
722 Top = 16
723 Width = 80
724 Height = 17
725 Caption = 'Monday'
726 TabOrder = 0
727 OnClick = ELChange
728 end
729 object chkTuesday: TCheckBox
730 Left = 8
731 Top = 35
732 Width = 80
733 Height = 17
734 Caption = 'Tuesday'
735 TabOrder = 1
736 OnClick = ELChange
737 end
738 object chkWednesday: TCheckBox
739 Left = 8
740 Top = 54
741 Width = 80
742 Height = 17
743 Caption = 'Wednesday'
744 TabOrder = 2
745 OnClick = ELChange
746 end
747 object chkThursday: TCheckBox
748 Left = 8
749 Top = 73
750 Width = 80
751 Height = 17
752 Caption = 'Thursday'
753 TabOrder = 3
754 OnClick = ELChange
755 end
756 object chkFriday: TCheckBox
757 Left = 8
758 Top = 92
759 Width = 80
760 Height = 17
761 Caption = 'Friday'
762 TabOrder = 4
763 OnClick = ELChange
764 end
765 object chkSaturday: TCheckBox
766 Left = 8
767 Top = 111
768 Width = 80
769 Height = 17
770 Caption = 'Saturday'
771 TabOrder = 5
772 OnClick = ELChange
773 end
774 object chkSunday: TCheckBox
775 Left = 9
776 Top = 130
777 Width = 80
778 Height = 17
779 Caption = 'Sunday'
780 TabOrder = 6
781 OnClick = ELChange
782 end
783 end
784 object chkBagged: TCheckBox
785 Left = 4
786 Top = 120
787 Width = 85
788 Height = 17
789 Caption = 'Bagged Meal'
790 TabOrder = 5
791 OnClick = ELChange
792 end
793 end
794 object pgeIsolations: TTabSheet
795 Caption = 'Isolations / Precautions'
796 object lblIsolation: TLabel
797 Left = 4
798 Top = 0
799 Width = 123
800 Height = 13
801 Caption = 'Select Type of Precaution'
802 end
803 object lblIPComment: TLabel
804 Left = 4
805 Top = 119
806 Width = 54
807 Height = 13
808 Caption = 'Instructions'
809 end
810 object lblIPCurrent: TLabel
811 Left = 224
812 Top = 0
813 Width = 76
814 Height = 13
815 Caption = 'Current Isolation'
816 end
817 object lstIsolation: TORListBox
818 Left = 4
819 Top = 14
820 Width = 212
821 Height = 97
822 ItemHeight = 13
823 ParentShowHint = False
824 ShowHint = True
825 TabOrder = 0
826 Caption = 'Select Type of Precaution'
827 ItemTipColor = clWindow
828 LongList = False
829 Pieces = '2'
830 OnChange = IPChange
831 end
832 object txtIPComment: TCaptionEdit
833 Left = 4
834 Top = 133
835 Width = 504
836 Height = 21
837 MaxLength = 240
838 TabOrder = 2
839 OnChange = IPChange
840 Caption = 'Instructions'
841 end
842 object txtIPCurrent: TCaptionEdit
843 Left = 224
844 Top = 14
845 Width = 212
846 Height = 21
847 Color = clBtnFace
848 ReadOnly = True
849 TabOrder = 1
850 Text = '<none>'
851 Caption = 'Current Isolation'
852 end
853 end
854 object pgeAdditional: TTabSheet
855 Caption = 'Additional Order'
856 object lblAddlOrder: TLabel
857 Left = 4
858 Top = 24
859 Width = 125
860 Height = 13
861 Caption = 'Enter Additional Diet Order'
862 end
863 object txtAOComment: TCaptionEdit
864 Left = 4
865 Top = 38
866 Width = 504
867 Height = 21
868 MaxLength = 80
869 TabOrder = 0
870 OnChange = AOChange
871 Caption = 'Enter Additional Diet Order'
872 end
873 end
874 end
875 inherited cmdAccept: TButton
876 TabOrder = 2
877 end
878 inherited cmdQuit: TButton
879 TabOrder = 3
880 end
881 inherited pnlMessage: TPanel
882 Top = 172
883 Height = 57
884 TabOrder = 1
885 inherited imgMessage: TImage
886 Top = 10
887 end
888 inherited memMessage: TRichEdit
889 Height = 45
890 end
891 end
892end
Note: See TracBrowser for help on using the repository browser.