Context Navigation

fODProc.dfm@ 1683

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

Line
1	inherited frmODProc: TfrmODProc
2	Tag = 112
3	Left = 208
4	Top = 188
5	Width = 543
6	Height = 393
7	HorzScrollBar.Range = 523
8	VertScrollBar.Range = 295
9	Caption = 'Order a Procedure'
10	Constraints.MinHeight = 393
11	Constraints.MinWidth = 543
12	ExplicitLeft = 208
13	ExplicitTop = 188
14	ExplicitWidth = 543
15	ExplicitHeight = 393
16	PixelsPerInch = 96
17	TextHeight = 13
18	object lblProc: TLabel [0]
19	Left = 4
20	Top = 4
21	Width = 49
22	Height = 13
23	Caption = 'Procedure'
24	end
25	object lblService: TOROffsetLabel [1]
26	Left = 4
27	Top = 42
28	Width = 158
29	Height = 15
30	Caption = 'Service to perform this procedure'
31	HorzOffset = 2
32	Transparent = False
33	VertOffset = 2
34	WordWrap = False
35	end
36	object lblReason: TLabel [2]
37	Left = 4
38	Top = 103
39	Width = 95
40	Height = 13
41	Caption = 'Reason for Request'
42	end
43	object lblUrgency: TStaticText [3]
44	Left = 249
45	Top = 4
46	Width = 44
47	Height = 17
48	Anchors = [akTop, akRight]
49	Caption = 'Urgency'
50	TabOrder = 15
51	end
52	object lblPlace: TStaticText [4]
53	Left = 396
54	Top = 43
55	Width = 104
56	Height = 17
57	Anchors = [akTop, akRight]
58	Caption = 'Place of Consultation'
59	TabOrder = 16
60	end
61	object lblAttn: TStaticText [5]
62	Left = 396
63	Top = 4
64	Width = 46
65	Height = 17
66	Anchors = [akTop, akRight]
67	Caption = 'Attention'
68	TabOrder = 17
69	end
70	object lblProvDiag: TStaticText [6]
71	Left = 249
72	Top = 81
73	Width = 104
74	Height = 17
75	Anchors = [akTop, akRight]
76	Caption = 'Provisional Diagnosis'
77	TabOrder = 18
78	end
79	object pnlReason: TPanel [7]
80	Left = 0
81	Top = 120
82	Width = 528
83	Height = 192
84	Anchors = [akLeft, akTop, akRight, akBottom]
85	BevelOuter = bvNone
86	TabOrder = 9
87	object memReason: TCaptionRichEdit
88	Left = 0
89	Top = 0
90	Width = 528
91	Height = 192
92	Align = alClient
93	Font.Charset = DEFAULT_CHARSET
94	Font.Color = clWindowText
95	Font.Height = -11
96	Font.Name = 'Courier New'
97	Font.Style = []
98	Constraints.MinHeight = 40
99	ParentFont = False
100	PopupMenu = popReason
101	ScrollBars = ssBoth
102	TabOrder = 0
103	WantTabs = True
104	OnChange = ControlChange
105	OnExit = memReasonExit
106	OnKeyDown = memReasonKeyDown
107	OnKeyPress = memReasonKeyPress
108	OnKeyUp = memReasonKeyUp
109	Caption = 'Reason for Request'
110	end
111	end
112	inherited memOrder: TCaptionMemo
113	Left = 0
114	Top = 321
115	Width = 380
116	Height = 41
117	Anchors = [akLeft, akRight]
118	Lines.Strings = (
119	'The order text...'
120
121	'----------------------------------------------------------------' +
122	'--------------'
123	'An order message may be displayed here.')
124	TabOrder = 1
125	ExplicitLeft = 0
126	ExplicitTop = 321
127	ExplicitWidth = 380
128	ExplicitHeight = 41
129	end
130	object cboUrgency: TORComboBox [9]
131	Left = 249
132	Top = 17
133	Width = 133
134	Height = 21
135	Anchors = [akTop, akRight]
136	Style = orcsDropDown
137	AutoSelect = True
138	Caption = 'Urgency'
139	Color = clWindow
140	DropDownCount = 8
141	ItemHeight = 13
142	ItemTipColor = clWindow
143	ItemTipEnable = True
144	ListItemsOnly = True
145	LongList = False
146	LookupPiece = 0
147	MaxLength = 0
148	Pieces = '2'
149	Sorted = False
150	SynonymChars = '<>'
151	TabOrder = 2
152	OnChange = ControlChange
153	CharsNeedMatch = 1
154	end
155	object cboPlace: TORComboBox [10]
156	Left = 396
157	Top = 56
158	Width = 133
159	Height = 21
160	Anchors = [akTop, akRight]
161	Style = orcsDropDown
162	AutoSelect = True
163	Caption = 'Place of Consultation'
164	Color = clWindow
165	DropDownCount = 8
166	ItemHeight = 13
167	ItemTipColor = clWindow
168	ItemTipEnable = True
169	ListItemsOnly = True
170	LongList = False
171	LookupPiece = 0
172	MaxLength = 0
173	Pieces = '2'
174	Sorted = False
175	SynonymChars = '<>'
176	TabOrder = 6
177	OnChange = ControlChange
178	CharsNeedMatch = 1
179	end
180	object txtAttn: TORComboBox [11]
181	Left = 396
182	Top = 17
183	Width = 133
184	Height = 21
185	Anchors = [akTop, akRight]
186	Style = orcsDropDown
187	AutoSelect = True
188	Caption = 'Attention'
189	Color = clWindow
190	DropDownCount = 8
191	ItemHeight = 13
192	ItemTipColor = clWindow
193	ItemTipEnable = True
194	ListItemsOnly = True
195	LongList = True
196	LookupPiece = 2
197	MaxLength = 0
198	Pieces = '2,3'
199	Sorted = False
200	SynonymChars = '<>'
201	TabOrder = 3
202	OnChange = ControlChange
203	OnNeedData = txtAttnNeedData
204	CharsNeedMatch = 1
205	end
206	object cboProc: TORComboBox [12]
207	Left = 4
208	Top = 17
209	Width = 227
210	Height = 21
211	Anchors = [akLeft, akTop, akRight]
212	Style = orcsDropDown
213	AutoSelect = True
214	Caption = 'Procedure'
215	Color = clWindow
216	DropDownCount = 8
217	ItemHeight = 13
218	ItemTipColor = clWindow
219	ItemTipEnable = True
220	ListItemsOnly = True
221	LongList = True
222	LookupPiece = 0
223	MaxLength = 0
224	Pieces = '2'
225	Sorted = False
226	SynonymChars = '<>'
227	TabOrder = 0
228	OnChange = cboProcSelect
229	OnNeedData = cboProcNeedData
230	CharsNeedMatch = 1
231	end
232	object cboCategory: TORComboBox [13]
233	Left = 516
234	Top = 10
235	Width = 3
236	Height = 21
237	Style = orcsDropDown
238	AutoSelect = True
239	Color = clWindow
240	DropDownCount = 8
241	ItemHeight = 13
242	ItemTipColor = clWindow
243	ItemTipEnable = True
244	ListItemsOnly = False
245	LongList = False
246	LookupPiece = 0
247	MaxLength = 0
248	Sorted = False
249	SynonymChars = '<>'
250	TabOrder = 13
251	Visible = False
252	OnChange = ControlChange
253	CharsNeedMatch = 1
254	end
255	object cboService: TORComboBox [14]
256	Left = 4
257	Top = 58
258	Width = 227
259	Height = 21
260	Anchors = [akLeft, akTop, akRight]
261	Style = orcsDropDown
262	AutoSelect = True
263	Caption = 'Service to perform this procedure'
264	Color = clWindow
265	DropDownCount = 8
266	Enabled = False
267	ItemHeight = 13
268	ItemTipColor = clWindow
269	ItemTipEnable = True
270	ListItemsOnly = False
271	LongList = False
272	LookupPiece = 0
273	MaxLength = 0
274	Pieces = '2'
275	Sorted = False
276	SynonymChars = '<>'
277	TabOrder = 4
278	OnChange = cboServiceChange
279	CharsNeedMatch = 1
280	end
281	object cmdLexSearch: TButton [15]
282	Left = 486
283	Top = 93
284	Width = 49
285	Height = 21
286	Anchors = [akTop, akRight]
287	Caption = 'Lexicon'
288	TabOrder = 8
289	OnClick = cmdLexSearchClick
290	end
291	object gbInptOpt: TGroupBox [16]
292	Left = 249
293	Top = 36
294	Width = 140
295	Height = 45
296	Anchors = [akTop, akRight]
297	Caption = 'Patient will be seen as an:'
298	TabOrder = 5
299	object radInpatient: TRadioButton
300	Left = 3
301	Top = 20
302	Width = 61
303	Height = 17
304	Caption = '&Inpatient'
305	TabOrder = 0
306	OnClick = radInpatientClick
307	end
308	object radOutpatient: TRadioButton
309	Left = 67
310	Top = 20
311	Width = 71
312	Height = 17
313	Caption = '&Outpatient'
314	TabOrder = 1
315	OnClick = radOutpatientClick
316	end
317	end
318	object txtProvDiag: TCaptionEdit [17]
319	Left = 249
320	Top = 93
321	Width = 234
322	Height = 21
323	Anchors = [akTop, akRight]
324	MaxLength = 180
325	ParentShowHint = False
326	PopupMenu = mnuPopProvDx
327	ShowHint = True
328	TabOrder = 7
329	OnChange = txtProvDiagChange
330	Caption = 'Provisional Diagnosis'
331	end
332	inherited cmdAccept: TButton
333	Left = 387
334	Top = 339
335	Anchors = [akRight, akBottom]
336	TabOrder = 10
337	ExplicitLeft = 387
338	ExplicitTop = 339
339	end
340	inherited cmdQuit: TButton
341	Left = 469
342	Top = 339
343	Width = 64
344	Anchors = [akRight, akBottom]
345	TabOrder = 11
346	ExplicitLeft = 469
347	ExplicitTop = 339
348	ExplicitWidth = 64
349	end
350	inherited pnlMessage: TPanel
351	Left = 50
352	Top = 320
353	Width = 316
354	Anchors = [akLeft, akRight, akBottom]
355	TabOrder = 12
356	ExplicitLeft = 50
357	ExplicitTop = 320
358	ExplicitWidth = 316
359	inherited memMessage: TRichEdit
360	Width = 254
361	ExplicitWidth = 254
362	end
363	end
364	inherited amgrMain: TVA508AccessibilityManager
365	Data = (
366	(
367	'Component = lblUrgency'
368	'Status = stsDefault')
369	(
370	'Component = lblPlace'
371	'Status = stsDefault')
372	(
373	'Component = lblAttn'
374	'Status = stsDefault')
375	(
376	'Component = lblProvDiag'
377	'Status = stsDefault')
378	(
379	'Component = pnlReason'
380	'Status = stsDefault')
381	(
382	'Component = memReason'
383	'Status = stsDefault')
384	(
385	'Component = cboUrgency'
386	'Status = stsDefault')
387	(
388	'Component = cboPlace'
389	'Status = stsDefault')
390	(
391	'Component = txtAttn'
392	'Status = stsDefault')
393	(
394	'Component = cboProc'
395	'Status = stsDefault')
396	(
397	'Component = cboCategory'
398	'Status = stsDefault')
399	(
400	'Component = cboService'
401	'Status = stsDefault')
402	(
403	'Component = cmdLexSearch'
404	'Status = stsDefault')
405	(
406	'Component = gbInptOpt'
407	'Status = stsDefault')
408	(
409	'Component = radInpatient'
410	'Status = stsDefault')
411	(
412	'Component = radOutpatient'
413	'Status = stsDefault')
414	(
415	'Component = txtProvDiag'
416	'Status = stsDefault')
417	(
418	'Component = memOrder'
419	'Status = stsDefault')
420	(
421	'Component = cmdAccept'
422	'Status = stsDefault')
423	(
424	'Component = cmdQuit'
425	'Status = stsDefault')
426	(
427	'Component = pnlMessage'
428	'Status = stsDefault')
429	(
430	'Component = memMessage'
431	'Status = stsDefault')
432	(
433	'Component = frmODProc'
434	'Status = stsDefault'))
435	end
436	object mnuPopProvDx: TPopupMenu
437	Left = 353
438	Top = 77
439	object mnuPopProvDxDelete: TMenuItem
440	Caption = 'Delete diagnosis'
441	OnClick = mnuPopProvDxDeleteClick
442	end
443	end
444	object popReason: TPopupMenu
445	OnPopup = popReasonPopup
446	Left = 411
447	Top = 169
448	object popReasonCut: TMenuItem
449	Caption = 'Cu&t'
450	ShortCut = 16472
451	OnClick = popReasonCutClick
452	end
453	object popReasonCopy: TMenuItem
454	Caption = '&Copy'
455	ShortCut = 16451
456	OnClick = popReasonCopyClick
457	end
458	object popReasonPaste: TMenuItem
459	Caption = '&Paste'
460	ShortCut = 16470
461	OnClick = popReasonPasteClick
462	end
463	object popReasonPaste2: TMenuItem
464	Caption = 'Paste2'
465	ShortCut = 8237
466	Visible = False
467	OnClick = popReasonPasteClick
468	end
469	object popReasonReformat: TMenuItem
470	Caption = 'Reformat Paragraph'
471	ShortCut = 16466
472	OnClick = popReasonReformatClick
473	end
474	end
475	end

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

Download in other formats:

Original Format