Context Navigation

fODRad.dfm@ 1142

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

Line
1	inherited frmODRad: TfrmODRad
2	Tag = 160
3	Left = 282
4	Top = 225
5	Width = 586
6	Height = 404
7	Caption = 'Order an Imaging Procedure'
8	Constraints.MinHeight = 404
9	Constraints.MinWidth = 586
10	ExplicitLeft = 282
11	ExplicitTop = 225
12	ExplicitWidth = 586
13	ExplicitHeight = 404
14	PixelsPerInch = 96
15	TextHeight = 13
16	inherited memOrder: TCaptionMemo
17	Left = 0
18	Top = 326
19	Width = 490
20	Anchors = [akLeft, akRight, akBottom]
21	TabOrder = 6
22	ExplicitLeft = 0
23	ExplicitTop = 326
24	ExplicitWidth = 490
25	end
26	object FRadCommonCombo: TORListBox [1]
27	Left = 419
28	Top = 362
29	Width = 121
30	Height = 11
31	ItemHeight = 13
32	ParentShowHint = False
33	ShowHint = True
34	TabOrder = 7
35	Visible = False
36	ItemTipColor = clWindow
37	LongList = False
38	end
39	object pnlLeft: TORAutoPanel [2]
40	Left = 0
41	Top = 0
42	Width = 215
43	Height = 321
44	Anchors = [akLeft, akTop, akBottom]
45	BevelOuter = bvNone
46	TabOrder = 0
47	object lblDrug: TLabel
48	Left = 0
49	Top = 34
50	Width = 89
51	Height = 13
52	Caption = 'Imaging Procedure'
53	end
54	object lblAvailMod: TLabel
55	Left = 0
56	Top = 170
57	Width = 88
58	Height = 13
59	Caption = 'Available Modifiers'
60	end
61	object lblImType: TLabel
62	Left = 0
63	Top = 0
64	Width = 64
65	Height = 13
66	Caption = 'Imaging Type'
67	end
68	object lblSelectMod: TLabel
69	Left = 109
70	Top = 170
71	Width = 87
72	Height = 13
73	Caption = 'Selected Modifiers'
74	end
75	object cboImType: TORComboBox
76	Left = 0
77	Top = 13
78	Width = 212
79	Height = 21
80	Style = orcsDropDown
81	AutoSelect = True
82	Caption = 'Imaging Type'
83	Color = clWindow
84	DropDownCount = 8
85	ItemHeight = 13
86	ItemTipColor = clWindow
87	ItemTipEnable = True
88	ListItemsOnly = True
89	LongList = False
90	LookupPiece = 0
91	MaxLength = 0
92	Pieces = '2'
93	Sorted = False
94	SynonymChars = '<>'
95	TabOrder = 0
96	OnChange = cboImTypeChange
97	OnDropDownClose = cboImTypeDropDownClose
98	OnExit = cboImTypeExit
99	CharsNeedMatch = 1
100	end
101	object lstSelectMod: TORListBox
102	Left = 109
103	Top = 184
104	Width = 102
105	Height = 68
106	ExtendedSelect = False
107	ItemHeight = 13
108	ParentShowHint = False
109	ShowHint = True
110	TabOrder = 3
111	Caption = 'Selected Modifiers'
112	ItemTipColor = clWindow
113	LongList = False
114	Pieces = '2'
115	end
116	object cboProcedure: TORComboBox
117	Left = 0
118	Top = 47
119	Width = 212
120	Height = 122
121	Style = orcsSimple
122	AutoSelect = True
123	Caption = 'Imaging Procedure'
124	Color = clWindow
125	DropDownCount = 8
126	ItemHeight = 13
127	ItemTipColor = clWindow
128	ItemTipEnable = True
129	ListItemsOnly = True
130	LongList = True
131	LookupPiece = 0
132	MaxLength = 0
133	Pieces = '2'
134	Sorted = False
135	SynonymChars = '<>'
136	TabOrder = 1
137	OnClick = cboProcedureSelect
138	OnExit = cboProcedureExit
139	OnNeedData = cboProcedureNeedData
140	CharsNeedMatch = 1
141	end
142	object cboAvailMod: TORComboBox
143	Left = 0
144	Top = 184
145	Width = 102
146	Height = 94
147	Style = orcsSimple
148	AutoSelect = True
149	Caption = 'Available Modifiers'
150	Color = clWindow
151	DropDownCount = 8
152	ItemHeight = 13
153	ItemTipColor = clWindow
154	ItemTipEnable = True
155	ListItemsOnly = False
156	LongList = False
157	LookupPiece = 0
158	MaxLength = 0
159	ParentShowHint = False
160	Pieces = '2'
161	ShowHint = True
162	Sorted = True
163	SynonymChars = '<>'
164	TabOrder = 2
165	OnKeyDown = cboAvailModKeyDown
166	OnMouseClick = cboAvailModMouseClick
167	CharsNeedMatch = 1
168	end
169	object cmdRemove: TButton
170	Left = 110
171	Top = 255
172	Width = 102
173	Height = 18
174	Caption = 'Remove'
175	TabOrder = 4
176	OnClick = cmdRemoveClick
177	end
178	end
179	inherited cmdAccept: TButton
180	Left = 497
181	Top = 326
182	Anchors = [akRight, akBottom]
183	TabOrder = 3
184	ExplicitLeft = 497
185	ExplicitTop = 326
186	end
187	object pnlRightBase: TORAutoPanel [4]
188	Left = 215
189	Top = 0
190	Width = 362
191	Height = 322
192	Anchors = [akLeft, akTop, akRight, akBottom]
193	BevelOuter = bvNone
194	Caption = 'pnlRightBase'
195	TabOrder = 1
196	object pnlRight: TORAutoPanel
197	Left = 0
198	Top = 127
199	Width = 362
200	Height = 195
201	Align = alBottom
202	Anchors = [akLeft, akTop, akRight, akBottom]
203	BevelOuter = bvNone
204	TabOrder = 1
205	object lblRequestDate: TLabel
206	Left = 4
207	Top = 5
208	Width = 62
209	Height = 13
210	Caption = 'Date Desired'
211	end
212	object lblUrgency: TLabel
213	Left = 104
214	Top = 5
215	Width = 40
216	Height = 13
217	Caption = 'Urgency'
218	end
219	object lblTransport: TLabel
220	Left = 204
221	Top = 5
222	Width = 45
223	Height = 13
224	Caption = 'Transport'
225	end
226	object lblCategory: TLabel
227	Left = 4
228	Top = 42
229	Width = 42
230	Height = 13
231	Caption = 'Category'
232	end
233	object lblSubmit: TLabel
234	Left = 154
235	Top = 42
236	Width = 48
237	Height = 13
238	Caption = 'Submit To'
239	end
240	object lblLastExam: TLabel
241	Left = 4
242	Top = 82
243	Width = 134
244	Height = 13
245	Caption = 'Exams Over the Last 7 Days'
246	end
247	object lblAskSubmit: TLabel
248	Left = 446
249	Top = 103
250	Width = 3
251	Height = 13
252	Visible = False
253	end
254	object lblPreOp: TLabel
255	Left = 198
256	Top = 156
257	Width = 84
258	Height = 13
259	Caption = 'PreOp Scheduled'
260	end
261	object calPreOp: TORDateBox
262	Left = 198
263	Top = 170
264	Width = 96
265	Height = 21
266	TabOrder = 8
267	OnChange = calPreOpChange
268	OnExit = calPreOpExit
269	DateOnly = False
270	RequireTime = False
271	Caption = 'PreOp Scheduled'
272	end
273	object chkIsolation: TCheckBox
274	Left = 198
275	Top = 94
276	Width = 97
277	Height = 17
278	Hint = 'Is patient on isolation procedures?'
279	Caption = 'Isolation'
280	ParentShowHint = False
281	ShowHint = True
282	TabOrder = 6
283	OnClick = ControlChange
284	OnExit = chkIsolationExit
285	end
286	object calRequestDate: TORDateBox
287	Left = 4
288	Top = 18
289	Width = 92
290	Height = 21
291	TabOrder = 0
292	OnChange = ControlChange
293	DateOnly = False
294	RequireTime = False
295	Caption = 'Date Desired'
296	end
297	object cboUrgency: TORComboBox
298	Left = 104
299	Top = 18
300	Width = 92
301	Height = 21
302	Style = orcsDropDown
303	AutoSelect = True
304	Caption = 'Urgency'
305	Color = clWindow
306	DropDownCount = 8
307	ItemHeight = 13
308	ItemTipColor = clWindow
309	ItemTipEnable = True
310	ListItemsOnly = True
311	LongList = False
312	LookupPiece = 0
313	MaxLength = 0
314	Pieces = '2'
315	Sorted = False
316	SynonymChars = '<>'
317	TabOrder = 1
318	OnChange = ControlChange
319	CharsNeedMatch = 1
320	end
321	object cboTransport: TORComboBox
322	Left = 204
323	Top = 18
324	Width = 92
325	Height = 21
326	Style = orcsDropDown
327	AutoSelect = True
328	Caption = 'Transport'
329	Color = clWindow
330	DropDownCount = 8
331	ItemHeight = 13
332	ItemTipColor = clWindow
333	ItemTipEnable = True
334	ListItemsOnly = True
335	LongList = False
336	LookupPiece = 0
337	MaxLength = 0
338	Pieces = '2'
339	Sorted = False
340	SynonymChars = '<>'
341	TabOrder = 2
342	OnChange = ControlChange
343	CharsNeedMatch = 1
344	end
345	object cboCategory: TORComboBox
346	Left = 4
347	Top = 57
348	Width = 140
349	Height = 21
350	Style = orcsDropDown
351	AutoSelect = True
352	Caption = 'Category'
353	Color = clWindow
354	DropDownCount = 8
355	ItemHeight = 13
356	ItemTipColor = clWindow
357	ItemTipEnable = True
358	ListItemsOnly = True
359	LongList = False
360	LookupPiece = 0
361	MaxLength = 0
362	Pieces = '2'
363	Sorted = False
364	SynonymChars = '<>'
365	TabOrder = 3
366	OnChange = cboCategoryChange
367	CharsNeedMatch = 1
368	end
369	object chkPreOp: TCheckBox
370	Left = 146
371	Top = 233
372	Width = 61
373	Height = 17
374	Caption = 'Pre-Op'
375	TabOrder = 9
376	Visible = False
377	OnClick = ControlChange
378	end
379	object cboSubmit: TORComboBox
380	Left = 154
381	Top = 57
382	Width = 142
383	Height = 21
384	Style = orcsDropDown
385	AutoSelect = True
386	Caption = 'Submit To'
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 = 4
400	OnChange = ControlChange
401	CharsNeedMatch = 1
402	end
403	object lstLastExam: TORListBox
404	Left = 4
405	Top = 95
406	Width = 187
407	Height = 98
408	Color = clBtnFace
409	ExtendedSelect = False
410	ItemHeight = 13
411	MultiSelect = True
412	ParentShowHint = False
413	ShowHint = True
414	TabOrder = 5
415	Caption = 'Exams Over the Last 7 Days'
416	ItemTipColor = clWindow
417	LongList = False
418	Pieces = '2'
419	end
420	object grpPregnant: TGroupBox
421	Left = 196
422	Top = 112
423	Width = 158
424	Height = 41
425	Caption = 'Pregnant'
426	TabOrder = 7
427	object radPregnant: TRadioButton
428	Left = 2
429	Top = 17
430	Width = 39
431	Height = 17
432	Caption = 'Yes'
433	TabOrder = 0
434	OnClick = ControlChange
435	end
436	object radPregnantNo: TRadioButton
437	Left = 47
438	Top = 17
439	Width = 35
440	Height = 17
441	Caption = 'No'
442	TabOrder = 1
443	OnClick = ControlChange
444	end
445	object radPregnantUnknown: TRadioButton
446	Left = 87
447	Top = 16
448	Width = 66
449	Height = 17
450	Caption = 'Unknown'
451	TabOrder = 2
452	OnClick = ControlChange
453	end
454	end
455	end
456	object pnlHandR: TPanel
457	Left = 0
458	Top = 0
459	Width = 362
460	Height = 127
461	Align = alClient
462	BevelOuter = bvNone
463	TabOrder = 0
464	object lblHistory: TLabel
465	Left = 0
466	Top = 34
467	Width = 362
468	Height = 13
469	Align = alTop
470	Caption = 'Clinical History (Optional)'
471	ExplicitWidth = 116
472	end
473	object lblReason: TLabel
474	Left = 0
475	Top = 0
476	Width = 362
477	Height = 13
478	Align = alTop
479	Caption = 'Reason for Study (REQUIRED - 64 characters maximum)'
480	ExplicitWidth = 268
481	end
482	object memHistory: TCaptionMemo
483	Left = 0
484	Top = 47
485	Width = 362
486	Height = 80
487	Align = alClient
488	ScrollBars = ssVertical
489	TabOrder = 3
490	OnChange = ControlChange
491	OnExit = memHistoryExit
492	Caption = 'Clinical History (Optional)'
493	end
494	object txtReason: TCaptionEdit
495	Left = 0
496	Top = 13
497	Width = 362
498	Height = 21
499	Align = alTop
500	MaxLength = 64
501	TabOrder = 0
502	OnChange = ControlChange
503	Caption = 'Reason for Study (REQUIRED)'
504	end
505	end
506	end
507	inherited cmdQuit: TButton
508	Left = 498
509	Top = 353
510	Anchors = [akRight, akBottom]
511	TabOrder = 4
512	ExplicitLeft = 498
513	ExplicitTop = 353
514	end
515	inherited pnlMessage: TPanel
516	Left = 5
517	Top = 318
518	Width = 408
519	Height = 55
520	TabOrder = 2
521	ExplicitLeft = 5
522	ExplicitTop = 318
523	ExplicitWidth = 408
524	ExplicitHeight = 55
525	inherited imgMessage: TImage
526	Left = 10
527	Top = 9
528	ExplicitLeft = 10
529	ExplicitTop = 9
530	end
531	inherited memMessage: TRichEdit
532	Left = 55
533	Width = 344
534	Height = 43
535	ExplicitLeft = 55
536	ExplicitWidth = 344
537	ExplicitHeight = 43
538	end
539	end
540	inherited amgrMain: TVA508AccessibilityManager
541	Data = (
542	(
543	'Component = FRadCommonCombo'
544	'Status = stsDefault')
545	(
546	'Component = pnlLeft'
547	'Status = stsDefault')
548	(
549	'Component = cboImType'
550	'Status = stsDefault')
551	(
552	'Component = lstSelectMod'
553	'Status = stsDefault')
554	(
555	'Component = cboProcedure'
556	'Status = stsDefault')
557	(
558	'Component = cboAvailMod'
559	'Status = stsDefault')
560	(
561	'Component = cmdRemove'
562	'Status = stsDefault')
563	(
564	'Component = pnlRightBase'
565	'Status = stsDefault')
566	(
567	'Component = pnlRight'
568	'Status = stsDefault')
569	(
570	'Component = calPreOp'
571	'Status = stsDefault')
572	(
573	'Component = chkIsolation'
574	'Status = stsDefault')
575	(
576	'Component = calRequestDate'
577	'Status = stsDefault')
578	(
579	'Component = cboUrgency'
580	'Status = stsDefault')
581	(
582	'Component = cboTransport'
583	'Status = stsDefault')
584	(
585	'Component = cboCategory'
586	'Status = stsDefault')
587	(
588	'Component = chkPreOp'
589	'Status = stsDefault')
590	(
591	'Component = cboSubmit'
592	'Status = stsDefault')
593	(
594	'Component = lstLastExam'
595	'Status = stsDefault')
596	(
597	'Component = grpPregnant'
598	'Status = stsDefault')
599	(
600	'Component = radPregnant'
601	'Status = stsDefault')
602	(
603	'Component = radPregnantNo'
604	'Status = stsDefault')
605	(
606	'Component = radPregnantUnknown'
607	'Status = stsDefault')
608	(
609	'Component = pnlHandR'
610	'Status = stsDefault')
611	(
612	'Component = memHistory'
613	'Status = stsDefault')
614	(
615	'Component = txtReason'
616	'Status = stsDefault')
617	(
618	'Component = memOrder'
619	'Status = stsDefault')
620	(
621	'Component = cmdAccept'
622	'Status = stsDefault')
623	(
624	'Component = cmdQuit'
625	'Status = stsDefault')
626	(
627	'Component = pnlMessage'
628	'Status = stsDefault')
629	(
630	'Component = memMessage'
631	'Status = stsDefault')
632	(
633	'Component = frmODRad'
634	'Status = stsDefault'))
635	end
636	end

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

Download in other formats:

Original Format