Context Navigation

← Previous Revision
Next Revision →
Blame
Revision Log

fODMeds.dfm

Last change on this file was 1679, checked in by healthsevak, 9 years ago
Updating the working copy to CPRS version 28
File size: 28.1 KB

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

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

Download in other formats:

Original Format