Context Navigation

fEditProc.dfm@ 1702

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

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

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

Download in other formats:

Original Format