source: cprs/trunk/CPRS-Chart/Consults/fODProc.dfm@ 1356

Last change on this file since 1356 was 829, checked in by Kevin Toppenberg, 14 years ago

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