Context Navigation

fEditConsult.dfm@ 1560

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

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

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

Download in other formats:

Original Format