Context Navigation

fODConsult.dfm@ 1689

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

Line
1	inherited frmODCslt: TfrmODCslt
2	Tag = 110
3	Left = 430
4	Top = 203
5	Width = 606
6	Height = 376
7	HorzScrollBar.Range = 590
8	VertScrollBar.Range = 340
9	Caption = 'Order a Consult'
10	Constraints.MinHeight = 376
11	Constraints.MinWidth = 606
12	Font.Charset = ANSI_CHARSET
13	ExplicitWidth = 606
14	ExplicitHeight = 376
15	PixelsPerInch = 96
16	TextHeight = 13
17	object lblService: TLabel [0]
18	Left = 1
19	Top = 2
20	Width = 134
21	Height = 13
22	Caption = 'Consult to Service/Specialty'
23	end
24	object lblProvDiag: TLabel [1]
25	Left = 309
26	Top = 81
27	Width = 100
28	Height = 13
29	Anchors = [akTop, akRight]
30	Caption = 'Provisional Diagnosis'
31	end
32	object lblUrgency: TLabel [2]
33	Left = 309
34	Top = 2
35	Width = 40
36	Height = 13
37	Anchors = [akTop, akRight]
38	Caption = 'Urgency'
39	end
40	object lblPlace: TLabel [3]
41	Left = 454
42	Top = 43
43	Width = 100
44	Height = 13
45	Anchors = [akTop, akRight]
46	Caption = 'Place of Consultation'
47	end
48	object lblAttn: TLabel [4]
49	Left = 454
50	Top = 2
51	Width = 42
52	Height = 13
53	Anchors = [akTop, akRight]
54	Caption = 'Attention'
55	end
56	object pnlReason: TPanel [5]
57	Left = 3
58	Top = 128
59	Width = 585
60	Height = 161
61	Anchors = [akLeft, akTop, akRight]
62	BevelOuter = bvNone
63	TabOrder = 10
64	object lblReason: TLabel
65	Left = 0
66	Top = 0
67	Width = 585
68	Height = 13
69	Align = alTop
70	Caption = 'Reason for Request'
71	ExplicitWidth = 95
72	end
73	object memReason: TRichEdit
74	Left = 0
75	Top = 13
76	Width = 585
77	Height = 148
78	Align = alClient
79	Font.Charset = ANSI_CHARSET
80	Font.Color = clWindowText
81	Font.Height = -11
82	Font.Name = 'Courier New'
83	Font.Style = []
84	Constraints.MinHeight = 40
85	ParentFont = False
86	PopupMenu = popReason
87	ScrollBars = ssBoth
88	TabOrder = 0
89	WantTabs = True
90	OnChange = ControlChange
91	OnExit = memReasonExit
92	OnKeyDown = memReasonKeyDown
93	OnKeyPress = memReasonKeyPress
94	OnKeyUp = memReasonKeyUp
95	end
96	end
97	inherited memOrder: TCaptionMemo
98	Left = 3
99	Top = 305
100	Width = 417
101	Height = 41
102	TabStop = True
103	Anchors = [akLeft, akBottom]
104	Lines.Strings = (
105	'The order text...'
106	'----------------------------------------------'
107	'--------------------------------'
108	'An order message may be displayed here.')
109	TabOrder = 11
110	ExplicitLeft = 3
111	ExplicitTop = 305
112	ExplicitWidth = 417
113	ExplicitHeight = 41
114	end
115	object cboService: TORComboBox [7]
116	Left = 0
117	Top = 16
118	Width = 274
119	Height = 113
120	Anchors = [akLeft, akTop, akRight]
121	Style = orcsSimple
122	AutoSelect = True
123	Caption = 'Consult to Service/Specialty'
124	Color = clWindow
125	DropDownCount = 12
126	ItemHeight = 13
127	ItemTipColor = clWindow
128	ItemTipEnable = True
129	ListItemsOnly = True
130	LongList = False
131	LookupPiece = 0
132	MaxLength = 0
133	Pieces = '2'
134	Sorted = False
135	SynonymChars = '<>'
136	TabOrder = 0
137	TabStop = True
138	OnChange = ControlChange
139	OnClick = cboServiceSelect
140	OnExit = cboServiceExit
141	OnKeyDown = cboServiceKeyDown
142	OnKeyUp = cboServiceKeyUp
143	CharsNeedMatch = 1
144	end
145	object cboUrgency: TORComboBox [8]
146	Left = 309
147	Top = 16
148	Width = 133
149	Height = 21
150	Anchors = [akTop, akRight]
151	Style = orcsDropDown
152	AutoSelect = True
153	Color = clWindow
154	DropDownCount = 8
155	ItemHeight = 13
156	ItemTipColor = clWindow
157	ItemTipEnable = True
158	ListItemsOnly = True
159	LongList = False
160	LookupPiece = 0
161	MaxLength = 0
162	Pieces = '2'
163	Sorted = False
164	SynonymChars = '<>'
165	TabOrder = 3
166	TabStop = True
167	OnChange = ControlChange
168	CharsNeedMatch = 1
169	end
170	object cboPlace: TORComboBox [9]
171	Left = 454
172	Top = 56
173	Width = 136
174	Height = 21
175	Anchors = [akTop, akRight]
176	Style = orcsDropDown
177	AutoSelect = True
178	Color = clWindow
179	DropDownCount = 8
180	ItemHeight = 13
181	ItemTipColor = clWindow
182	ItemTipEnable = True
183	ListItemsOnly = True
184	LongList = False
185	LookupPiece = 0
186	MaxLength = 0
187	Pieces = '2'
188	Sorted = False
189	SynonymChars = '<>'
190	TabOrder = 6
191	OnChange = ControlChange
192	CharsNeedMatch = 1
193	end
194	object txtProvDiag: TCaptionEdit [10]
195	Left = 309
196	Top = 94
197	Width = 231
198	Height = 21
199	Anchors = [akTop, akRight]
200	MaxLength = 180
201	ParentShowHint = False
202	PopupMenu = mnuPopProvDx
203	ShowHint = True
204	TabOrder = 8
205	OnChange = txtProvDiagChange
206	end
207	object txtAttn: TORComboBox [11]
208	Left = 454
209	Top = 16
210	Width = 136
211	Height = 21
212	Anchors = [akTop, akRight]
213	Style = orcsDropDown
214	AutoSelect = True
215	Color = clWindow
216	DropDownCount = 8
217	ItemHeight = 13
218	ItemTipColor = clWindow
219	ItemTipEnable = True
220	ListItemsOnly = True
221	LongList = True
222	LookupPiece = 2
223	MaxLength = 0
224	Pieces = '2,3'
225	Sorted = False
226	SynonymChars = '<>'
227	TabOrder = 4
228	OnChange = ControlChange
229	OnNeedData = txtAttnNeedData
230	CharsNeedMatch = 1
231	end
232	object treService: TORTreeView [12]
233	Left = 0
234	Top = 38
235	Width = 298
236	Height = 220
237	Anchors = [akLeft, akTop, akRight, akBottom]
238	Font.Charset = DEFAULT_CHARSET
239	Font.Color = clWindowText
240	Font.Height = -9
241	Font.Name = 'MS Sans Serif'
242	Font.Style = []
243	HideSelection = False
244	Indent = 19
245	ParentFont = False
246	ReadOnly = True
247	TabOrder = 2
248	Visible = False
249	OnChange = treServiceChange
250	OnCollapsing = treServiceCollapsing
251	OnEnter = treServiceEnter
252	OnExit = treServiceExit
253	OnKeyDown = treServiceKeyDown
254	OnKeyUp = treServiceKeyUp
255	OnMouseDown = treServiceMouseDown
256	NodePiece = 0
257	end
258	object cboCategory: TORComboBox [13]
259	Left = 225
260	Top = -5
261	Width = 5
262	Height = 21
263	Style = orcsDropDown
264	AutoSelect = True
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	Sorted = False
275	SynonymChars = '<>'
276	TabOrder = 15
277	Visible = False
278	CharsNeedMatch = 1
279	end
280	object pnlServiceTreeButton: TKeyClickPanel [14]
281	Left = 274
282	Top = 14
283	Width = 26
284	Height = 26
285	Hint = 'View services/specialties hierarchically'
286	Anchors = [akTop, akRight]
287	BevelOuter = bvNone
288	BevelWidth = 2
289	Caption = 'View services/specialties hierarchically'
290	Font.Charset = ANSI_CHARSET
291	Font.Color = clBtnFace
292	Font.Height = -11
293	Font.Name = 'MS Sans Serif'
294	Font.Style = []
295	ParentFont = False
296	TabOrder = 1
297	TabStop = True
298	OnClick = btnServiceTreeClick
299	OnEnter = pnlServiceTreeButtonEnter
300	OnExit = pnlServiceTreeButtonExit
301	object btnServiceTree: TSpeedButton
302	Left = 2
303	Top = 2
304	Width = 22
305	Height = 22
306	Hint = 'View services/specialties hierarchically'
307	Glyph.Data = {
308	26050000424D26050000000000003604000028000000100000000F0000000100
309	080000000000F000000000000000000000000001000000010000000000000000
310	80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
311	A6000020400000206000002080000020A0000020C0000020E000004000000040
312	20000040400000406000004080000040A0000040C0000040E000006000000060
313	20000060400000606000006080000060A0000060C0000060E000008000000080
314	20000080400000806000008080000080A0000080C0000080E00000A0000000A0
315	200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
316	200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
317	200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
318	20004000400040006000400080004000A0004000C0004000E000402000004020
319	20004020400040206000402080004020A0004020C0004020E000404000004040
320	20004040400040406000404080004040A0004040C0004040E000406000004060
321	20004060400040606000406080004060A0004060C0004060E000408000004080
322	20004080400040806000408080004080A0004080C0004080E00040A0000040A0
323	200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
324	200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
325	200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
326	20008000400080006000800080008000A0008000C0008000E000802000008020
327	20008020400080206000802080008020A0008020C0008020E000804000008040
328	20008040400080406000804080008040A0008040C0008040E000806000008060
329	20008060400080606000806080008060A0008060C0008060E000808000008080
330	20008080400080806000808080008080A0008080C0008080E00080A0000080A0
331	200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
332	200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
333	200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
334	2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
335	2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
336	2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
337	2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
338	2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
339	2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
340	2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
341	FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0700
342	07FFFFFFFFFFFFFFFFFFFFA4A407000400FF040404040404FFFFFFA4FFFF0700
343	07FFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFF
344	FFFF070007FFFFFFFFFFFFA4FFFFFFA4A407000400FF04040404FFA4FFFFFFA4
345	FFFF070007FFFFFFFFFFFFA4FFFFFF07FFFFFFFFFFFFFFFFFFFFFFA4FFFF0700
346	07FFFFFFFFFFFFFFFFFFFFA4A407000400FF0404040404FFFFFFFFA4FFFF0700
347	07FFFFFFFFFFFFFFFFFFFF07FFFFFFFFFFFFFFFFFFFFFFFFFFFF070007FFFFFF
348	FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
349	FFFFFFFFFFFFFFFFFFFF}
350	Margin = 0
351	ParentShowHint = False
352	ShowHint = True
353	OnClick = btnServiceTreeClick
354	end
355	end
356	object cmdLexSearch: TButton [15]
357	Left = 543
358	Top = 94
359	Width = 49
360	Height = 21
361	Anchors = [akTop, akRight]
362	Caption = 'Lexicon'
363	TabOrder = 9
364	OnClick = cmdLexSearchClick
365	end
366	object gbInptOpt: TGroupBox [16]
367	Left = 309
368	Top = 35
369	Width = 140
370	Height = 45
371	Anchors = [akTop, akRight]
372	Caption = 'Patient will be seen as an:'
373	TabOrder = 5
374	object radInpatient: TRadioButton
375	Left = 3
376	Top = 20
377	Width = 61
378	Height = 13
379	Caption = '&Inpatient'
380	TabOrder = 0
381	OnClick = radInpatientClick
382	end
383	object radOutpatient: TRadioButton
384	Left = 67
385	Top = 20
386	Width = 70
387	Height = 13
388	Caption = '&Outpatient'
389	TabOrder = 1
390	OnClick = radOutpatientClick
391	end
392	end
393	object btnDiagnosis: TButton [17]
394	Left = 543
395	Top = 95
396	Width = 49
397	Height = 20
398	Anchors = [akTop, akRight]
399	Caption = 'Diagnosis'
400	TabOrder = 7
401	OnClick = btnDiagnosisClick
402	end
403	inherited cmdAccept: TButton
404	Left = 439
405	Top = 315
406	Anchors = [akLeft, akBottom]
407	TabOrder = 12
408	ExplicitLeft = 439
409	ExplicitTop = 315
410	end
411	inherited cmdQuit: TButton
412	Left = 531
413	Top = 315
414	Width = 61
415	Anchors = [akLeft, akBottom]
416	TabOrder = 13
417	ExplicitLeft = 531
418	ExplicitTop = 315
419	ExplicitWidth = 61
420	end
421	inherited pnlMessage: TPanel
422	Left = 13
423	Top = 295
424	Width = 377
425	Anchors = [akLeft, akRight, akBottom]
426	TabOrder = 14
427	ExplicitLeft = 13
428	ExplicitTop = 295
429	ExplicitWidth = 377
430	inherited memMessage: TRichEdit
431	Width = 292
432	ExplicitWidth = 292
433	end
434	end
435	inherited amgrMain: TVA508AccessibilityManager
436	Data = (
437	(
438	'Component = pnlReason'
439	'Status = stsDefault')
440	(
441	'Component = memReason'
442	'Label = lblReason'
443	'Status = stsOK')
444	(
445	'Component = cboService'
446	'Status = stsDefault')
447	(
448	'Component = cboUrgency'
449	'Label = lblUrgency'
450	'Status = stsOK')
451	(
452	'Component = cboPlace'
453	'Label = lblPlace'
454	'Status = stsOK')
455	(
456	'Component = txtProvDiag'
457	'Label = lblProvDiag'
458	'Status = stsOK')
459	(
460	'Component = txtAttn'
461	'Label = lblAttn'
462	'Status = stsOK')
463	(
464	'Component = treService'
465	'Status = stsDefault')
466	(
467	'Component = cboCategory'
468	'Status = stsDefault')
469	(
470	'Component = pnlServiceTreeButton'
471	'Status = stsDefault')
472	(
473	'Component = cmdLexSearch'
474	'Status = stsDefault')
475	(
476	'Component = gbInptOpt'
477	'Status = stsDefault')
478	(
479	'Component = radInpatient'
480	'Status = stsDefault')
481	(
482	'Component = radOutpatient'
483	'Status = stsDefault')
484	(
485	'Component = btnDiagnosis'
486	'Status = stsDefault')
487	(
488	'Component = memOrder'
489	'Status = stsDefault')
490	(
491	'Component = cmdAccept'
492	'Status = stsDefault')
493	(
494	'Component = cmdQuit'
495	'Status = stsDefault')
496	(
497	'Component = pnlMessage'
498	'Status = stsDefault')
499	(
500	'Component = memMessage'
501	'Status = stsDefault')
502	(
503	'Component = frmODCslt'
504	'Status = stsDefault'))
505	end
506	object mnuPopProvDx: TPopupMenu
507	Left = 353
508	Top = 77
509	object mnuPopProvDxDelete: TMenuItem
510	Caption = 'Delete diagnosis'
511	OnClick = mnuPopProvDxDeleteClick
512	end
513	end
514	object popReason: TPopupMenu
515	OnPopup = popReasonPopup
516	Left = 411
517	Top = 188
518	object popReasonCut: TMenuItem
519	Caption = 'Cu&t'
520	ShortCut = 16472
521	OnClick = popReasonCutClick
522	end
523	object popReasonCopy: TMenuItem
524	Caption = '&Copy'
525	ShortCut = 16451
526	OnClick = popReasonCopyClick
527	end
528	object popReasonPaste: TMenuItem
529	Caption = '&Paste'
530	ShortCut = 16470
531	OnClick = popReasonPasteClick
532	end
533	object popReasonPaste2: TMenuItem
534	Caption = 'Paste2'
535	ShortCut = 8237
536	Visible = False
537	OnClick = popReasonPasteClick
538	end
539	object popReasonReformat: TMenuItem
540	Caption = 'Reformat Paragraph'
541	ShortCut = 16466
542	OnClick = popReasonReformatClick
543	end
544	end
545	end

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

Download in other formats:

Original Format