Context Navigation

fODDiet.dfm@ 1722

Last change on this file since 1722 was 1693, checked in by healthsevak, 9 years ago
Committing the files for first time to this new branch
File size: 30.9 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	ExplicitLeft = 0
25	ExplicitTop = 0
26	ExplicitWidth = 0
27	ExplicitHeight = 0
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'
441	ExplicitLeft = 0
442	ExplicitTop = 0
443	ExplicitWidth = 0
444	ExplicitHeight = 0
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
594	ItemHeight = 0
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'
650	ExplicitLeft = 0
651	ExplicitTop = 0
652	ExplicitWidth = 0
653	ExplicitHeight = 0
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'
886	ExplicitLeft = 0
887	ExplicitTop = 0
888	ExplicitWidth = 0
889	ExplicitHeight = 0
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'
950	ExplicitLeft = 0
951	ExplicitTop = 0
952	ExplicitWidth = 0
953	ExplicitHeight = 0
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
1020	ExplicitTop = 208
1021	end
1022	inherited cmdAccept: TButton
1023	Left = 445
1024	Top = 208
1025	TabOrder = 2
1026	ExplicitLeft = 445
1027	ExplicitTop = 208
1028	end
1029	inherited cmdQuit: TButton
1030	Left = 445
1031	Top = 235
1032	TabOrder = 3
1033	ExplicitLeft = 445
1034	ExplicitTop = 235
1035	end
1036	inherited pnlMessage: TPanel
1037	Top = 197
1038	Height = 57
1039	TabOrder = 1
1040	ExplicitTop = 197
1041	ExplicitHeight = 57
1042	inherited imgMessage: TImage
1043	Top = 10
1044	ExplicitTop = 10
1045	end
1046	inherited memMessage: TRichEdit
1047	Height = 45
1048	ExplicitHeight = 45
1049	end
1050	end
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
1273	end

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

Download in other formats:

Original Format