Context Navigation

fODProc.dfm@ 1702

Last change on this file since 1702 was 1693, checked in by healthsevak, 10 years ago
Committing the files for first time to this new branch
File size: 14.2 KB

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

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

Download in other formats:

Original Format