Context Navigation

fODMeds.dfm@ 1424

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

Line
1	inherited frmODMeds: TfrmODMeds
2	Left = 321
3	Top = 183
4	Width = 584
5	Height = 572
6	HorzScrollBar.Range = 558
7	VertScrollBar.Range = 399
8	Caption = 'Medication Order'
9	Constraints.MinHeight = 325
10	OnShow = FormShow
11	ExplicitWidth = 584
12	ExplicitHeight = 572
13	DesignSize = (
14	576
15	545)
16	PixelsPerInch = 96
17	TextHeight = 13
18	object pnlMeds: TPanel [0]
19	Left = 6
20	Top = 34
21	Width = 580
22	Height = 470
23	Anchors = [akLeft, akTop, akRight, akBottom]
24	BevelOuter = bvNone
25	TabOrder = 1
26	object sptSelect: TSplitter
27	Left = 0
28	Top = 133
29	Width = 580
30	Height = 4
31	Cursor = crVSplit
32	Align = alTop
33	end
34	object lstQuick: TCaptionListView
35	Left = 0
36	Top = 0
37	Width = 580
38	Height = 133
39	Align = alTop
40	BevelInner = bvLowered
41	BevelOuter = bvSpace
42	Columns = <
43	item
44	Width = 420
45	end>
46	ColumnClick = False
47	HideSelection = False
48	HotTrack = True
49	HoverTime = 2147483647
50	OwnerData = True
51	ParentShowHint = False
52	ShowColumnHeaders = False
53	ShowHint = True
54	TabOrder = 0
55	ViewStyle = vsReport
56	OnChange = lstChange
57	OnClick = ListViewClick
58	OnData = lstQuickData
59	OnDataHint = lstQuickDataHint
60	OnEditing = ListViewEditing
61	OnEnter = ListViewEnter
62	OnKeyUp = ListViewKeyUp
63	OnResize = ListViewResize
64	Caption = 'Quick Orders'
65	end
66	object lstAll: TCaptionListView
67	Left = 0
68	Top = 137
69	Width = 580
70	Height = 333
71	Align = alClient
72	BevelInner = bvLowered
73	BevelOuter = bvNone
74	Columns = <
75	item
76	Width = 420
77	end>
78	ColumnClick = False
79	HideSelection = False
80	HotTrack = True
81	HoverTime = 2147483647
82	OwnerData = True
83	ParentShowHint = False
84	ShowColumnHeaders = False
85	ShowHint = True
86	TabOrder = 1
87	ViewStyle = vsReport
88	OnChange = lstChange
89	OnClick = ListViewClick
90	OnData = lstAllData
91	OnDataHint = lstAllDataHint
92	OnEditing = ListViewEditing
93	OnEnter = ListViewEnter
94	OnKeyUp = ListViewKeyUp
95	OnResize = ListViewResize
96	Caption = 'All Medication orders'
97	end
98	end
99	inherited memOrder: TCaptionMemo
100	Tag = 13
101	Top = 505
102	Width = 502
103	TabStop = True
104	Anchors = [akLeft, akRight, akBottom]
105	TabOrder = 4
106	ExplicitTop = 505
107	ExplicitWidth = 502
108	end
109	object txtMed: TEdit [2]
110	Left = 6
111	Top = 6
112	Width = 580
113	Height = 21
114	Anchors = [akLeft, akTop, akRight]
115	AutoSelect = False
116	TabOrder = 0
117	Text = '(Type a medication name or select from the orders below)'
118	OnChange = txtMedChange
119	OnExit = txtMedExit
120	OnKeyDown = txtMedKeyDown
121	OnKeyUp = txtMedKeyUp
122	end
123	object btnSelect: TButton [3]
124	Left = 515
125	Top = 505
126	Width = 72
127	Height = 21
128	Anchors = [akRight, akBottom]
129	Caption = 'OK'
130	Default = True
131	Enabled = False
132	TabOrder = 5
133	OnClick = btnSelectClick
134	end
135	object pnlFields: TPanel [4]
136	Left = 6
137	Top = 34
138	Width = 580
139	Height = 470
140	Anchors = [akLeft, akTop, akRight, akBottom]
141	BevelOuter = bvNone
142	Enabled = False
143	TabOrder = 2
144	Visible = False
145	OnResize = pnlFieldsResize
146	object pnlTop: TPanel
147	Left = 0
148	Top = 0
149	Width = 580
150	Height = 197
151	Align = alClient
152	Constraints.MinHeight = 80
153	TabOrder = 3
154	DesignSize = (
155	580
156	197)
157	object lblRoute: TLabel
158	Left = 280
159	Top = 23
160	Width = 29
161	Height = 13
162	Anchors = [akTop, akRight]
163	Caption = 'Route'
164	Visible = False
165	end
166	object lblSchedule: TLabel
167	Left = 394
168	Top = 22
169	Width = 45
170	Height = 13
171	Anchors = [akTop, akRight]
172	Caption = 'Schedule'
173	Visible = False
174	WordWrap = True
175	end
176	object txtNSS: TLabel
177	Left = 442
178	Top = 22
179	Width = 71
180	Height = 13
181	Anchors = [akTop, akRight]
182	Caption = '(Day-Of-Week)'
183	Font.Charset = DEFAULT_CHARSET
184	Font.Color = clBlue
185	Font.Height = -11
186	Font.Name = 'MS Sans Serif'
187	Font.Style = []
188	ParentFont = False
189	Visible = False
190	WordWrap = True
191	OnClick = txtNSSClick
192	end
193	object grdDoses: TCaptionStringGrid
194	Left = 0
195	Top = 36
196	Width = 580
197	Height = 156
198	Anchors = [akLeft, akTop, akRight, akBottom]
199	ColCount = 7
200	DefaultColWidth = 76
201	DefaultRowHeight = 21
202	Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goTabs]
203	ScrollBars = ssVertical
204	TabOrder = 8
205	OnDrawCell = grdDosesDrawCell
206	OnEnter = grdDosesEnter
207	OnExit = grdDosesExit
208	OnKeyDown = grdDosesKeyDown
209	OnKeyPress = grdDosesKeyPress
210	OnMouseDown = grdDosesMouseDown
211	OnMouseUp = grdDosesMouseUp
212	Caption = 'Complex Dosage'
213	JustToTab = True
214	ColWidths = (
215	76
216	76
217	76
218	76
219	76
220	76
221	76)
222	end
223	object lblGuideline: TStaticText
224	Left = 0
225	Top = 1
226	Width = 181
227	Height = 17
228	Caption = 'Display Restrictions/Guidelines'
229	Color = clBtnFace
230	Font.Charset = DEFAULT_CHARSET
231	Font.Color = clBlue
232	Font.Height = -11
233	Font.Name = 'MS Sans Serif'
234	Font.Style = [fsBold, fsUnderline]
235	ParentColor = False
236	ParentFont = False
237	ShowAccelChar = False
238	TabOrder = 0
239	TabStop = True
240	Visible = False
241	OnClick = lblGuidelineClick
242	end
243	object tabDose: TTabControl
244	Left = 1
245	Top = 19
246	Width = 175
247	Height = 17
248	TabOrder = 3
249	Tabs.Strings = (
250	'Dosage'
251	'Complex')
252	TabIndex = 0
253	TabStop = False
254	TabWidth = 86
255	OnChange = tabDoseChange
256	end
257	object cboDosage: TORComboBox
258	Left = 1
259	Top = 36
260	Width = 279
261	Height = 155
262	Anchors = [akLeft, akTop, akRight, akBottom]
263	Style = orcsSimple
264	AutoSelect = True
265	Caption = 'Dosage'
266	Color = clWindow
267	DropDownCount = 8
268	ItemHeight = 13
269	ItemTipColor = clWindow
270	ItemTipEnable = True
271	ListItemsOnly = False
272	LongList = False
273	LookupPiece = 0
274	MaxLength = 0
275	Pieces = '5,3,6'
276	Sorted = False
277	SynonymChars = '<>'
278	TabPositions = '27,32'
279	TabOrder = 4
280	OnChange = cboDosageChange
281	OnClick = cboDosageClick
282	OnExit = cboDosageExit
283	OnKeyUp = cboDosageKeyUp
284	CharsNeedMatch = 1
285	UniqueAutoComplete = True
286	end
287	object cboRoute: TORComboBox
288	Left = 280
289	Top = 36
290	Width = 113
291	Height = 156
292	Anchors = [akTop, akRight, akBottom]
293	Style = orcsSimple
294	AutoSelect = True
295	Caption = 'Route'
296	Color = clWindow
297	DropDownCount = 8
298	ItemHeight = 13
299	ItemTipColor = clWindow
300	ItemTipEnable = True
301	ListItemsOnly = False
302	LongList = False
303	LookupPiece = 0
304	MaxLength = 0
305	ParentShowHint = False
306	Pieces = '2'
307	ShowHint = True
308	Sorted = False
309	SynonymChars = '<>'
310	TabOrder = 5
311	OnChange = cboRouteChange
312	OnClick = ControlChange
313	OnExit = cboRouteExit
314	CharsNeedMatch = 1
315	UniqueAutoComplete = True
316	end
317	object cboSchedule: TORComboBox
318	Left = 394
319	Top = 36
320	Width = 178
321	Height = 156
322	Anchors = [akTop, akRight, akBottom]
323	Style = orcsSimple
324	AutoSelect = False
325	Caption = 'Schedule'
326	Color = clWindow
327	DropDownCount = 8
328	ItemHeight = 13
329	ItemTipColor = clWindow
330	ItemTipEnable = True
331	ListItemsOnly = False
332	LongList = False
333	LookupPiece = 0
334	MaxLength = 0
335	Pieces = '1'
336	Sorted = True
337	SynonymChars = '<>'
338	TabOrder = 6
339	OnChange = cboScheduleChange
340	OnClick = cboScheduleClick
341	OnEnter = cboScheduleEnter
342	OnExit = cboScheduleExit
343	CharsNeedMatch = 1
344	UniqueAutoComplete = True
345	end
346	object chkPRN: TCheckBox
347	Left = 530
348	Top = 37
349	Width = 42
350	Height = 18
351	Anchors = [akTop, akRight]
352	Caption = 'PRN'
353	Color = clBtnFace
354	ParentColor = False
355	TabOrder = 7
356	OnClick = chkPRNClick
357	end
358	object btnXInsert: TButton
359	Left = 403
360	Top = 3
361	Width = 79
362	Height = 17
363	Caption = 'Insert Row'
364	ParentShowHint = False
365	ShowHint = True
366	TabOrder = 1
367	OnClick = btnXInsertClick
368	end
369	object btnXRemove: TButton
370	Left = 488
371	Top = 3
372	Width = 79
373	Height = 17
374	Caption = 'Remove Row'
375	ParentShowHint = False
376	ShowHint = True
377	TabOrder = 2
378	OnClick = btnXRemoveClick
379	end
380	object pnlXAdminTime: TPanel
381	Left = 432
382	Top = 149
383	Width = 65
384	Height = 17
385	Caption = 'pnlXAdminTime'
386	TabOrder = 9
387	Visible = False
388	OnClick = pnlXAdminTimeClick
389	end
390	end
391	object cboXDosage: TORComboBox
392	Left = 49
393	Top = 122
394	Width = 72
395	Height = 21
396	Style = orcsDropDown
397	AutoSelect = False
398	Caption = 'Dosage'
399	Color = clWindow
400	DropDownCount = 8
401	ItemHeight = 13
402	ItemTipColor = clWindow
403	ItemTipEnable = True
404	ListItemsOnly = False
405	LongList = False
406	LookupPiece = 0
407	MaxLength = 0
408	Pieces = '5'
409	Sorted = False
410	SynonymChars = '<>'
411	TabOrder = 0
412	Visible = False
413	OnChange = cboXDosageChange
414	OnClick = cboXDosageClick
415	OnEnter = cboXDosageEnter
416	OnExit = cboXDosageExit
417	OnKeyDown = memMessageKeyDown
418	OnKeyUp = cboXDosageKeyUp
419	CharsNeedMatch = 1
420	UniqueAutoComplete = True
421	end
422	object cboXRoute: TORComboBox
423	Left = 122
424	Top = 122
425	Width = 72
426	Height = 21
427	Style = orcsDropDown
428	AutoSelect = False
429	Caption = 'Route'
430	Color = clWindow
431	DropDownCount = 8
432	ItemHeight = 13
433	ItemTipColor = clWindow
434	ItemTipEnable = True
435	ListItemsOnly = False
436	LongList = False
437	LookupPiece = 0
438	MaxLength = 0
439	Pieces = '2'
440	Sorted = False
441	SynonymChars = '<>'
442	TabOrder = 1
443	Visible = False
444	OnChange = cboXRouteChange
445	OnClick = cboXRouteClick
446	OnEnter = cboXRouteEnter
447	OnExit = cboXRouteExit
448	OnKeyDown = memMessageKeyDown
449	CharsNeedMatch = 1
450	UniqueAutoComplete = True
451	end
452	object pnlXDuration: TPanel
453	Left = 300
454	Top = 122
455	Width = 72
456	Height = 21
457	BevelOuter = bvNone
458	TabOrder = 4
459	Visible = False
460	OnEnter = pnlXDurationEnter
461	OnExit = pnlXDurationExit
462	DesignSize = (
463	72
464	21)
465	object pnlXDurationButton: TKeyClickPanel
466	Left = 39
467	Top = 1
468	Width = 33
469	Height = 19
470	Anchors = [akLeft, akTop, akRight, akBottom]
471	Caption = 'Duration'
472	TabOrder = 2
473	TabStop = True
474	OnClick = btnXDurationClick
475	object btnXDuration: TSpeedButton
476	Left = 0
477	Top = 0
478	Width = 33
479	Height = 19
480	Caption = 'days'
481	Flat = True
482	Glyph.Data = {
483	AE000000424DAE0000000000000076000000280000000E000000070000000100
484	0400000000003800000000000000000000001000000000000000000000000000
485	8000008000000080800080000000800080008080000080808000C0C0C0000000
486	FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
487	330033333333333333003330333333733300330003333F87330030000033FFFF
488	F30033333333333333003333333333333300}
489	Layout = blGlyphRight
490	NumGlyphs = 2
491	Spacing = 0
492	Transparent = False
493	OnClick = btnXDurationClick
494	end
495	end
496	object txtXDuration: TCaptionEdit
497	Left = 0
498	Top = 0
499	Width = 25
500	Height = 21
501	Anchors = [akLeft, akTop, akBottom]
502	TabOrder = 0
503	Text = '0'
504	OnChange = txtXDurationChange
505	OnKeyDown = memMessageKeyDown
506	Caption = 'Duration'
507	end
508	object spnXDuration: TUpDown
509	Left = 25
510	Top = 0
511	Width = 15
512	Height = 21
513	Anchors = [akLeft, akTop, akBottom]
514	Associate = txtXDuration
515	Max = 999
516	TabOrder = 1
517	end
518	end
519	object pnlXSchedule: TPanel
520	Left = 195
521	Top = 122
522	Width = 106
523	Height = 21
524	BevelOuter = bvNone
525	TabOrder = 2
526	Visible = False
527	OnEnter = pnlXScheduleEnter
528	OnExit = pnlXScheduleExit
529	DesignSize = (
530	106
531	21)
532	object cboXSchedule: TORComboBox
533	Left = 0
534	Top = 0
535	Width = 63
536	Height = 21
537	Anchors = [akLeft, akTop, akRight]
538	Style = orcsDropDown
539	AutoSelect = False
540	Caption = 'Schedule'
541	Color = clWindow
542	DropDownCount = 8
543	ItemHeight = 13
544	ItemTipColor = clWindow
545	ItemTipEnable = True
546	ListItemsOnly = False
547	LongList = False
548	LookupPiece = 0
549	MaxLength = 0
550	Pieces = '1'
551	Sorted = False
552	SynonymChars = '<>'
553	TabOrder = 0
554	TabStop = True
555	OnChange = cboXScheduleChange
556	OnClick = cboXScheduleClick
557	OnEnter = cboXScheduleEnter
558	OnExit = cboXScheduleExit
559	OnKeyDown = memMessageKeyDown
560	CharsNeedMatch = 1
561	UniqueAutoComplete = True
562	end
563	object chkXPRN: TCheckBox
564	Left = 63
565	Top = 4
566	Width = 42
567	Height = 11
568	Anchors = [akTop, akRight]
569	Caption = 'PRN'
570	TabOrder = 1
571	OnClick = chkXPRNClick
572	OnKeyDown = memMessageKeyDown
573	end
574	end
575	object pnlBottom: TPanel
576	Left = 0
577	Top = 197
578	Width = 580
579	Height = 273
580	Align = alBottom
581	TabOrder = 5
582	DesignSize = (
583	580
584	273)
585	object lblComment: TLabel
586	Left = 4
587	Top = 5
588	Width = 52
589	Height = 16
590	Alignment = taRightJustify
591	AutoSize = False
592	Caption = 'Comments:'
593	end
594	object lblDays: TLabel
595	Left = 4
596	Top = 65
597	Width = 59
598	Height = 13
599	Caption = 'Days Supply'
600	end
601	object lblQuantity: TLabel
602	Left = 84
603	Top = 65
604	Width = 39
605	Height = 13
606	Caption = 'Quantity'
607	ParentShowHint = False
608	ShowHint = True
609	end
610	object lblRefills: TLabel
611	Left = 164
612	Top = 65
613	Width = 28
614	Height = 13
615	Caption = 'Refills'
616	end
617	object lblPriority: TLabel
618	Left = 500
619	Top = 61
620	Width = 31
621	Height = 13
622	Anchors = [akTop, akRight]
623	Caption = 'Priority'
624	end
625	object Image1: TImage
626	Left = 5
627	Top = 221
628	Width = 31
629	Height = 31
630	Anchors = [akLeft, akBottom]
631	Visible = False
632	ExplicitTop = 177
633	end
634	object chkDoseNow: TCheckBox
635	Left = 3
636	Top = 104
637	Width = 247
638	Height = 21
639	Caption = 'Give additional dose now'
640	TabOrder = 8
641	OnClick = chkDoseNowClick
642	end
643	object memComment: TCaptionMemo
644	Left = 57
645	Top = 2
646	Width = 513
647	Height = 43
648	Anchors = [akLeft, akTop, akRight]
649	ScrollBars = ssVertical
650	TabOrder = 0
651	OnChange = ControlChange
652	OnClick = memCommentClick
653	Caption = 'Comments'
654	end
655	object lblQtyMsg: TStaticText
656	Left = 4
657	Top = 47
658	Width = 206
659	Height = 17
660	Caption = '>> Quantity Dispensed: Multiples of 100 <<'
661	TabOrder = 13
662	end
663	object txtSupply: TCaptionEdit
664	Left = 2
665	Top = 78
666	Width = 60
667	Height = 21
668	AutoSize = False
669	TabOrder = 1
670	Text = '0'
671	OnChange = txtSupplyChange
672	OnClick = txtSupplyClick
673	Caption = 'Days Supply'
674	end
675	object spnSupply: TUpDown
676	Left = 62
677	Top = 78
678	Width = 15
679	Height = 21
680	Associate = txtSupply
681	TabOrder = 2
682	end
683	object txtQuantity: TCaptionEdit
684	Left = 83
685	Top = 78
686	Width = 60
687	Height = 21
688	AutoSize = False
689	TabOrder = 3
690	Text = '0'
691	OnChange = txtQuantityChange
692	OnClick = txtQuantityClick
693	Caption = 'Quantity'
694	end
695	object spnQuantity: TUpDown
696	Left = 143
697	Top = 78
698	Width = 16
699	Height = 21
700	Associate = txtQuantity
701	Max = 32766
702	TabOrder = 4
703	end
704	object txtRefills: TCaptionEdit
705	Left = 164
706	Top = 78
707	Width = 30
708	Height = 21
709	AutoSize = False
710	TabOrder = 5
711	Text = '0'
712	OnChange = txtRefillsChange
713	OnClick = txtRefillsClick
714	Caption = 'Refills'
715	end
716	object spnRefills: TUpDown
717	Left = 194
718	Top = 78
719	Width = 15
720	Height = 21
721	Associate = txtRefills
722	Max = 11
723	TabOrder = 6
724	end
725	object grpPickup: TGroupBox
726	Left = 283
727	Top = 66
728	Width = 172
729	Height = 36
730	Anchors = [akTop, akRight]
731	Caption = 'Pick Up'
732	TabOrder = 7
733	object radPickWindow: TRadioButton
734	Left = 105
735	Top = 14
736	Width = 58
737	Height = 17
738	Caption = '&Window'
739	TabOrder = 2
740	OnClick = ControlChange
741	end
742	object radPickMail: TRadioButton
743	Left = 58
744	Top = 14
745	Width = 38
746	Height = 17
747	Caption = '&Mail'
748	TabOrder = 1
749	OnClick = ControlChange
750	end
751	object radPickClinic: TRadioButton
752	Left = 7
753	Top = 14
754	Width = 44
755	Height = 17
756	Caption = '&Clinic'
757	TabOrder = 0
758	OnClick = ControlChange
759	end
760	end
761	object cboPriority: TORComboBox
762	Left = 499
763	Top = 76
764	Width = 72
765	Height = 21
766	Anchors = [akTop, akRight]
767	Style = orcsDropDown
768	AutoSelect = True
769	Caption = 'Priority'
770	Color = clWindow
771	DropDownCount = 8
772	ItemHeight = 13
773	ItemTipColor = clWindow
774	ItemTipEnable = True
775	ListItemsOnly = True
776	LongList = False
777	LookupPiece = 0
778	MaxLength = 0
779	Pieces = '2'
780	Sorted = False
781	SynonymChars = '<>'
782	TabOrder = 9
783	OnChange = ControlChange
784	CharsNeedMatch = 1
785	end
786	object stcPI: TStaticText
787	Left = 2
788	Top = 123
789	Width = 89
790	Height = 17
791	Caption = 'Patient Instruction'
792	TabOrder = 17
793	Visible = False
794	end
795	object chkPtInstruct: TCheckBox
796	Left = 4
797	Top = 137
798	Width = 14
799	Height = 21
800	Color = clBtnFace
801	ParentColor = False
802	TabOrder = 18
803	Visible = False
804	OnClick = chkPtInstructClick
805	end
806	object memPI: TMemo
807	Left = 23
808	Top = 139
809	Width = 547
810	Height = 35
811	TabStop = False
812	Anchors = [akLeft, akTop, akRight]
813	ReadOnly = True
814	ScrollBars = ssVertical
815	TabOrder = 19
816	Visible = False
817	OnClick = memPIClick
818	OnKeyDown = memPIKeyDown
819	end
820	object memDrugMsg: TMemo
821	Left = 37
822	Top = 220
823	Width = 533
824	Height = 51
825	Anchors = [akLeft, akRight, akBottom]
826	Color = clCream
827	ReadOnly = True
828	ScrollBars = ssVertical
829	TabOrder = 20
830	Visible = False
831	end
832	object lblAdminSch: TMemo
833	Left = 344
834	Top = 120
835	Width = 68
836	Height = 15
837	Anchors = [akLeft, akTop, akRight]
838	Color = clCream
839	ParentShowHint = False
840	ReadOnly = True
841	ScrollBars = ssVertical
842	ShowHint = True
843	TabOrder = 10
844	Visible = False
845	end
846	object lblAdminTime: TVA508StaticText
847	Name = 'lblAdminTime'
848	Left = 164
849	Top = 116
850	Width = 64
851	Height = 15
852	Alignment = taLeftJustify
853	Caption = 'lblAdminTime'
854	TabOrder = 11
855	TabStop = True
856	ShowAccelChar = True
857	end
858	end
859	object cboXSequence: TORComboBox
860	Left = 438
861	Top = 122
862	Width = 64
863	Height = 21
864	Style = orcsDropDown
865	AutoSelect = True
866	Caption = 'Sequence'
867	Color = clWindow
868	DropDownCount = 8
869	Items.Strings = (
870	'and'
871	'then')
872	ItemHeight = 13
873	ItemTipColor = clWindow
874	ItemTipEnable = True
875	ListItemsOnly = False
876	LongList = False
877	LookupPiece = 0
878	MaxLength = 0
879	Sorted = False
880	SynonymChars = '<>'
881	TabOrder = 6
882	Visible = False
883	OnChange = cboXSequenceChange
884	OnEnter = cboXSequenceEnter
885	OnExit = cboXSequenceExit
886	OnKeyDown = memMessageKeyDown
887	CharsNeedMatch = 1
888	end
889	end
890	inherited cmdAccept: TButton
891	Left = 514
892	Top = 505
893	Anchors = [akRight, akBottom]
894	TabOrder = 6
895	TabStop = False
896	Visible = False
897	ExplicitLeft = 514
898	ExplicitTop = 505
899	end
900	inherited cmdQuit: TButton
901	Left = 514
902	Top = 530
903	Width = 51
904	Anchors = [akRight, akBottom]
905	TabOrder = 7
906	ExplicitLeft = 514
907	ExplicitTop = 530
908	ExplicitWidth = 51
909	end
910	inherited pnlMessage: TPanel
911	Left = 31
912	Top = 200
913	OnEnter = pnlMessageEnter
914	ExplicitLeft = 31
915	ExplicitTop = 200
916	inherited imgMessage: TImage
917	Left = 2
918	ExplicitLeft = 2
919	end
920	inherited memMessage: TRichEdit
921	OnKeyDown = memMessageKeyDown
922	end
923	end
924	inherited amgrMain: TVA508AccessibilityManager
925	Data = (
926	(
927	'Component = pnlMeds'
928	'Status = stsDefault')
929	(
930	'Component = lstQuick'
931	'Text = Quick Orders'
932	'Status = stsOK')
933	(
934	'Component = lstAll'
935	'Text = Medications'
936	'Status = stsOK')
937	(
938	'Component = txtMed'
939	'Text = Medication'
940	'Status = stsOK')
941	(
942	'Component = btnSelect'
943	'Status = stsDefault')
944	(
945	'Component = pnlFields'
946	'Status = stsDefault')
947	(
948	'Component = pnlTop'
949	'Status = stsDefault')
950	(
951	'Component = grdDoses'
952	'Status = stsDefault')
953	(
954	'Component = lblGuideline'
955	'Status = stsDefault')
956	(
957	'Component = tabDose'
958	'Status = stsDefault')
959	(
960	'Component = cboDosage'
961	'Status = stsDefault')
962	(
963	'Component = cboRoute'
964	'Status = stsDefault')
965	(
966	'Component = cboSchedule'
967	'Status = stsDefault')
968	(
969	'Component = chkPRN'
970	'Status = stsDefault')
971	(
972	'Component = btnXInsert'
973	'Status = stsDefault')
974	(
975	'Component = btnXRemove'
976	'Status = stsDefault')
977	(
978	'Component = pnlXAdminTime'
979	'Status = stsDefault')
980	(
981	'Component = cboXDosage'
982	'Status = stsDefault')
983	(
984	'Component = cboXRoute'
985	'Status = stsDefault')
986	(
987	'Component = pnlXDuration'
988	'Status = stsDefault')
989	(
990	'Component = pnlXDurationButton'
991	'Status = stsDefault')
992	(
993	'Component = txtXDuration'
994	'Status = stsDefault')
995	(
996	'Component = spnXDuration'
997	'Status = stsDefault')
998	(
999	'Component = pnlXSchedule'
1000	'Status = stsDefault')
1001	(
1002	'Component = cboXSchedule'
1003	'Status = stsDefault')
1004	(
1005	'Component = chkXPRN'
1006	'Status = stsDefault')
1007	(
1008	'Component = pnlBottom'
1009	'Status = stsDefault')
1010	(
1011	'Component = chkDoseNow'
1012	'Status = stsDefault')
1013	(
1014	'Component = memComment'
1015	'Status = stsDefault')
1016	(
1017	'Component = lblQtyMsg'
1018	'Status = stsDefault')
1019	(
1020	'Component = txtSupply'
1021	'Status = stsDefault')
1022	(
1023	'Component = spnSupply'
1024	'Status = stsDefault')
1025	(
1026	'Component = txtQuantity'
1027	'Status = stsDefault')
1028	(
1029	'Component = spnQuantity'
1030	'Status = stsDefault')
1031	(
1032	'Component = txtRefills'
1033	'Status = stsDefault')
1034	(
1035	'Component = spnRefills'
1036	'Status = stsDefault')
1037	(
1038	'Component = grpPickup'
1039	'Status = stsDefault')
1040	(
1041	'Component = radPickWindow'
1042	'Status = stsDefault')
1043	(
1044	'Component = radPickMail'
1045	'Status = stsDefault')
1046	(
1047	'Component = radPickClinic'
1048	'Status = stsDefault')
1049	(
1050	'Component = cboPriority'
1051	'Status = stsDefault')
1052	(
1053	'Component = stcPI'
1054	'Status = stsDefault')
1055	(
1056	'Component = chkPtInstruct'
1057	'Status = stsDefault')
1058	(
1059	'Component = memPI'
1060	'Status = stsDefault')
1061	(
1062	'Component = memDrugMsg'
1063	'Status = stsDefault')
1064	(
1065	'Component = memOrder'
1066	'Status = stsDefault')
1067	(
1068	'Component = cmdAccept'
1069	'Status = stsDefault')
1070	(
1071	'Component = cmdQuit'
1072	'Status = stsDefault')
1073	(
1074	'Component = pnlMessage'
1075	'Status = stsDefault')
1076	(
1077	'Component = memMessage'
1078	'Status = stsDefault')
1079	(
1080	'Component = frmODMeds'
1081	'Status = stsDefault')
1082	(
1083	'Component = cboXSequence'
1084	'Status = stsDefault')
1085	(
1086	'Component = lblAdminSch'
1087	'Status = stsDefault')
1088	(
1089	'Component = lblAdminTime'
1090	'Status = stsDefault'))
1091	end
1092	object dlgStart: TORDateTimeDlg
1093	FMDateTime = 3001101.000000000000000000
1094	DateOnly = False
1095	RequireTime = True
1096	Left = 444
1097	Top = 336
1098	end
1099	object timCheckChanges: TTimer
1100	Enabled = False
1101	Interval = 500
1102	OnTimer = timCheckChangesTimer
1103	Left = 477
1104	Top = 336
1105	end
1106	object popDuration: TPopupMenu
1107	AutoHotkeys = maManual
1108	Left = 380
1109	Top = 145
1110	object popBlank: TMenuItem
1111	Caption = '(no selection)'
1112	OnClick = popDurationClick
1113	end
1114	object months1: TMenuItem
1115	Tag = 5
1116	Caption = 'months'
1117	OnClick = popDurationClick
1118	end
1119	object weeks1: TMenuItem
1120	Tag = 4
1121	Caption = 'weeks'
1122	OnClick = popDurationClick
1123	end
1124	object popDays: TMenuItem
1125	Tag = 3
1126	Caption = 'days'
1127	OnClick = popDurationClick
1128	end
1129	object hours1: TMenuItem
1130	Tag = 2
1131	Caption = 'hours'
1132	OnClick = popDurationClick
1133	end
1134	object minutes1: TMenuItem
1135	Tag = 1
1136	Caption = 'minutes'
1137	OnClick = popDurationClick
1138	end
1139	end
1140	end

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

Download in other formats:

Original Format