Context Navigation

fODDiet.dfm@ 1023

Last change on this file since 1023 was 829, checked in by Kevin Toppenberg, 14 years ago
Upgrade to version 27
File size: 30.4 KB

Line
1	inherited 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
1253	end

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format