Context Navigation

fODRad.dfm@ 1727

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

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

Download in other formats:

Original Format