Context Navigation

← Previous Revision
Next Revision →
Blame
Revision Log

fEditConsult.dfm

Last change on this file was 1679, checked in by healthsevak, 9 years ago
Updating the working copy to CPRS version 28
File size: 13.4 KB

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

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

Download in other formats:

Original Format