Context Navigation

fEditProc.dfm@ 1687

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

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

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

Download in other formats:

Original Format