source: cprs/trunk/CPRS-Chart/Consults/fODConsult.dfm@ 1119

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

Upgrade to version 27
File size: 14.7 KB
Line 
1inherited frmODCslt: TfrmODCslt
2 Tag = 110
3 Left = 430
4 Top = 203
5 Width = 606
6 Height = 376
7 HorzScrollBar.Range = 590
8 VertScrollBar.Range = 340
9 Caption = 'Order a Consult'
10 Constraints.MinHeight = 376
11 Constraints.MinWidth = 606
12 Font.Charset = ANSI_CHARSET
13 ExplicitWidth = 606
14 ExplicitHeight = 376
15 PixelsPerInch = 96
16 TextHeight = 13
17 object lblService: TLabel [0]
18 Left = 1
19 Top = 2
20 Width = 134
21 Height = 13
22 Caption = 'Consult to Service/Specialty'
23 end
24 object lblProvDiag: TLabel [1]
25 Left = 309
26 Top = 81
27 Width = 100
28 Height = 13
29 Anchors = [akTop, akRight]
30 Caption = 'Provisional Diagnosis'
31 end
32 object lblUrgency: TLabel [2]
33 Left = 309
34 Top = 2
35 Width = 40
36 Height = 13
37 Anchors = [akTop, akRight]
38 Caption = 'Urgency'
39 end
40 object lblPlace: TLabel [3]
41 Left = 454
42 Top = 43
43 Width = 100
44 Height = 13
45 Anchors = [akTop, akRight]
46 Caption = 'Place of Consultation'
47 end
48 object lblAttn: TLabel [4]
49 Left = 454
50 Top = 2
51 Width = 42
52 Height = 13
53 Anchors = [akTop, akRight]
54 Caption = 'Attention'
55 end
56 object pnlReason: TPanel [5]
57 Left = 3
58 Top = 128
59 Width = 585
60 Height = 161
61 Anchors = [akLeft, akTop, akRight]
62 BevelOuter = bvNone
63 TabOrder = 10
64 object lblReason: TLabel
65 Left = 0
66 Top = 0
67 Width = 585
68 Height = 13
69 Align = alTop
70 Caption = 'Reason for Request'
71 ExplicitWidth = 95
72 end
73 object memReason: TRichEdit
74 Left = 0
75 Top = 13
76 Width = 585
77 Height = 148
78 Align = alClient
79 Font.Charset = ANSI_CHARSET
80 Font.Color = clWindowText
81 Font.Height = -11
82 Font.Name = 'Courier New'
83 Font.Style = []
84 Constraints.MinHeight = 40
85 ParentFont = False
86 PopupMenu = popReason
87 ScrollBars = ssBoth
88 TabOrder = 0
89 WantTabs = True
90 OnChange = ControlChange
91 OnExit = memReasonExit
92 OnKeyDown = memReasonKeyDown
93 OnKeyPress = memReasonKeyPress
94 OnKeyUp = memReasonKeyUp
95 end
96 end
97 inherited memOrder: TCaptionMemo
98 Left = 3
99 Top = 305
100 Width = 417
101 Height = 41
102 TabStop = True
103 Anchors = [akLeft, akBottom]
104 Lines.Strings = (
105 'The order text...'
106 '----------------------------------------------'
107 '--------------------------------'
108 'An order message may be displayed here.')
109 TabOrder = 11
110 ExplicitLeft = 3
111 ExplicitTop = 305
112 ExplicitWidth = 417
113 ExplicitHeight = 41
114 end
115 object cboService: TORComboBox [7]
116 Left = 0
117 Top = 16
118 Width = 274
119 Height = 113
120 Anchors = [akLeft, akTop, akRight]
121 Style = orcsSimple
122 AutoSelect = True
123 Caption = 'Consult to Service/Specialty'
124 Color = clWindow
125 DropDownCount = 12
126 ItemHeight = 13
127 ItemTipColor = clWindow
128 ItemTipEnable = True
129 ListItemsOnly = True
130 LongList = False
131 LookupPiece = 0
132 MaxLength = 0
133 Pieces = '2'
134 Sorted = False
135 SynonymChars = '<>'
136 TabOrder = 0
137 TabStop = True
138 OnChange = ControlChange
139 OnClick = cboServiceSelect
140 OnExit = cboServiceExit
141 OnKeyDown = cboServiceKeyDown
142 OnKeyUp = cboServiceKeyUp
143 CharsNeedMatch = 1
144 end
145 object cboUrgency: TORComboBox [8]
146 Left = 309
147 Top = 16
148 Width = 133
149 Height = 21
150 Anchors = [akTop, akRight]
151 Style = orcsDropDown
152 AutoSelect = True
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 = 3
166 TabStop = True
167 OnChange = ControlChange
168 CharsNeedMatch = 1
169 end
170 object cboPlace: TORComboBox [9]
171 Left = 454
172 Top = 56
173 Width = 136
174 Height = 21
175 Anchors = [akTop, akRight]
176 Style = orcsDropDown
177 AutoSelect = True
178 Color = clWindow
179 DropDownCount = 8
180 ItemHeight = 13
181 ItemTipColor = clWindow
182 ItemTipEnable = True
183 ListItemsOnly = True
184 LongList = False
185 LookupPiece = 0
186 MaxLength = 0
187 Pieces = '2'
188 Sorted = False
189 SynonymChars = '<>'
190 TabOrder = 6
191 OnChange = ControlChange
192 CharsNeedMatch = 1
193 end
194 object txtProvDiag: TCaptionEdit [10]
195 Left = 309
196 Top = 94
197 Width = 231
198 Height = 21
199 Anchors = [akTop, akRight]
200 MaxLength = 180
201 ParentShowHint = False
202 PopupMenu = mnuPopProvDx
203 ShowHint = True
204 TabOrder = 8
205 OnChange = txtProvDiagChange
206 end
207 object txtAttn: TORComboBox [11]
208 Left = 454
209 Top = 16
210 Width = 136
211 Height = 21
212 Anchors = [akTop, akRight]
213 Style = orcsDropDown
214 AutoSelect = True
215 Color = clWindow
216 DropDownCount = 8
217 ItemHeight = 13
218 ItemTipColor = clWindow
219 ItemTipEnable = True
220 ListItemsOnly = True
221 LongList = True
222 LookupPiece = 2
223 MaxLength = 0
224 Pieces = '2,3'
225 Sorted = False
226 SynonymChars = '<>'
227 TabOrder = 4
228 OnChange = ControlChange
229 OnNeedData = txtAttnNeedData
230 CharsNeedMatch = 1
231 end
232 object treService: TORTreeView [12]
233 Left = 0
234 Top = 38
235 Width = 298
236 Height = 220
237 Anchors = [akLeft, akTop, akRight, akBottom]
238 Font.Charset = DEFAULT_CHARSET
239 Font.Color = clWindowText
240 Font.Height = -9
241 Font.Name = 'MS Sans Serif'
242 Font.Style = []
243 HideSelection = False
244 Indent = 19
245 ParentFont = False
246 ReadOnly = True
247 TabOrder = 2
248 Visible = False
249 OnChange = treServiceChange
250 OnCollapsing = treServiceCollapsing
251 OnEnter = treServiceEnter
252 OnExit = treServiceExit
253 OnKeyDown = treServiceKeyDown
254 OnKeyUp = treServiceKeyUp
255 OnMouseDown = treServiceMouseDown
256 NodePiece = 0
257 end
258 object cboCategory: TORComboBox [13]
259 Left = 225
260 Top = -5
261 Width = 5
262 Height = 21
263 Style = orcsDropDown
264 AutoSelect = True
265 Color = clWindow
266 DropDownCount = 8
267 ItemHeight = 13
268 ItemTipColor = clWindow
269 ItemTipEnable = True
270 ListItemsOnly = False
271 LongList = False
272 LookupPiece = 0
273 MaxLength = 0
274 Sorted = False
275 SynonymChars = '<>'
276 TabOrder = 15
277 Visible = False
278 CharsNeedMatch = 1
279 end
280 object pnlServiceTreeButton: TKeyClickPanel [14]
281 Left = 274
282 Top = 14
283 Width = 26
284 Height = 26
285 Hint = 'View services/specialties hierarchically'
286 Anchors = [akTop, akRight]
287 BevelOuter = bvNone
288 BevelWidth = 2
289 Caption = 'View services/specialties hierarchically'
290 Font.Charset = ANSI_CHARSET
291 Font.Color = clBtnFace
292 Font.Height = -11
293 Font.Name = 'MS Sans Serif'
294 Font.Style = []
295 ParentFont = False
296 TabOrder = 1
297 TabStop = True
298 OnClick = btnServiceTreeClick
299 OnEnter = pnlServiceTreeButtonEnter
300 OnExit = pnlServiceTreeButtonExit
301 object btnServiceTree: TSpeedButton
302 Left = 2
303 Top = 2
304 Width = 22
305 Height = 22
306 Hint = 'View services/specialties hierarchically'
307 Glyph.Data = {
308 26050000424D26050000000000003604000028000000100000000F0000000100
309 080000000000F000000000000000000000000001000000010000000000000000
310 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
311 A6000020400000206000002080000020A0000020C0000020E000004000000040
312 20000040400000406000004080000040A0000040C0000040E000006000000060
313 20000060400000606000006080000060A0000060C0000060E000008000000080
314 20000080400000806000008080000080A0000080C0000080E00000A0000000A0
315 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
316 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
317 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
318 20004000400040006000400080004000A0004000C0004000E000402000004020
319 20004020400040206000402080004020A0004020C0004020E000404000004040
320 20004040400040406000404080004040A0004040C0004040E000406000004060
321 20004060400040606000406080004060A0004060C0004060E000408000004080
322 20004080400040806000408080004080A0004080C0004080E00040A0000040A0
323 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
324 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
325 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
326 20008000400080006000800080008000A0008000C0008000E000802000008020
327 20008020400080206000802080008020A0008020C0008020E000804000008040
328 20008040400080406000804080008040A0008040C0008040E000806000008060
329 20008060400080606000806080008060A0008060C0008060E000808000008080
330 20008080400080806000808080008080A0008080C0008080E00080A0000080A0
331 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
332 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
333 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
334 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
335 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
336 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
337 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
338 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
339 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
340 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
341 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFF0700
342 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF040404040404FFFFFFA4FFFF0700
343 07FFFFFFFFFFFFFFFFFFFFA4FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFA4FFFFFFFF
344 FFFF070007FFFFFFFFFFFFA4FFFFFFA4A407000400FF04040404FFA4FFFFFFA4
345 FFFF070007FFFFFFFFFFFFA4FFFFFF07FFFFFFFFFFFFFFFFFFFFFFA4FFFF0700
346 07FFFFFFFFFFFFFFFFFFFFA4A407000400FF0404040404FFFFFFFFA4FFFF0700
347 07FFFFFFFFFFFFFFFFFFFF07FFFFFFFFFFFFFFFFFFFFFFFFFFFF070007FFFFFF
348 FFFFFFFFFFFFFFFFFFFF00FB00FF0404040404FFFFFFFFFFFFFF070007FFFFFF
349 FFFFFFFFFFFFFFFFFFFF}
350 Margin = 0
351 ParentShowHint = False
352 ShowHint = True
353 OnClick = btnServiceTreeClick
354 end
355 end
356 object cmdLexSearch: TButton [15]
357 Left = 543
358 Top = 94
359 Width = 49
360 Height = 21
361 Anchors = [akTop, akRight]
362 Caption = 'Lexicon'
363 TabOrder = 9
364 OnClick = cmdLexSearchClick
365 end
366 object gbInptOpt: TGroupBox [16]
367 Left = 309
368 Top = 35
369 Width = 140
370 Height = 45
371 Anchors = [akTop, akRight]
372 Caption = 'Patient will be seen as an:'
373 TabOrder = 5
374 object radInpatient: TRadioButton
375 Left = 3
376 Top = 20
377 Width = 61
378 Height = 13
379 Caption = '&Inpatient'
380 TabOrder = 0
381 OnClick = radInpatientClick
382 end
383 object radOutpatient: TRadioButton
384 Left = 67
385 Top = 20
386 Width = 70
387 Height = 13
388 Caption = '&Outpatient'
389 TabOrder = 1
390 OnClick = radOutpatientClick
391 end
392 end
393 object btnDiagnosis: TButton [17]
394 Left = 543
395 Top = 95
396 Width = 49
397 Height = 20
398 Anchors = [akTop, akRight]
399 Caption = 'Diagnosis'
400 TabOrder = 7
401 OnClick = btnDiagnosisClick
402 end
403 inherited cmdAccept: TButton
404 Left = 439
405 Top = 315
406 Anchors = [akLeft, akBottom]
407 TabOrder = 12
408 ExplicitLeft = 439
409 ExplicitTop = 315
410 end
411 inherited cmdQuit: TButton
412 Left = 531
413 Top = 315
414 Width = 61
415 Anchors = [akLeft, akBottom]
416 TabOrder = 13
417 ExplicitLeft = 531
418 ExplicitTop = 315
419 ExplicitWidth = 61
420 end
421 inherited pnlMessage: TPanel
422 Left = 13
423 Top = 295
424 Width = 377
425 Anchors = [akLeft, akRight, akBottom]
426 TabOrder = 14
427 ExplicitLeft = 13
428 ExplicitTop = 295
429 ExplicitWidth = 377
430 inherited memMessage: TRichEdit
431 Width = 292
432 ExplicitWidth = 292
433 end
434 end
435 inherited amgrMain: TVA508AccessibilityManager
436 Data = (
437 (
438 'Component = pnlReason'
439 'Status = stsDefault')
440 (
441 'Component = memReason'
442 'Label = lblReason'
443 'Status = stsOK')
444 (
445 'Component = cboService'
446 'Status = stsDefault')
447 (
448 'Component = cboUrgency'
449 'Label = lblUrgency'
450 'Status = stsOK')
451 (
452 'Component = cboPlace'
453 'Label = lblPlace'
454 'Status = stsOK')
455 (
456 'Component = txtProvDiag'
457 'Label = lblProvDiag'
458 'Status = stsOK')
459 (
460 'Component = txtAttn'
461 'Label = lblAttn'
462 'Status = stsOK')
463 (
464 'Component = treService'
465 'Status = stsDefault')
466 (
467 'Component = cboCategory'
468 'Status = stsDefault')
469 (
470 'Component = pnlServiceTreeButton'
471 'Status = stsDefault')
472 (
473 'Component = cmdLexSearch'
474 'Status = stsDefault')
475 (
476 'Component = gbInptOpt'
477 'Status = stsDefault')
478 (
479 'Component = radInpatient'
480 'Status = stsDefault')
481 (
482 'Component = radOutpatient'
483 'Status = stsDefault')
484 (
485 'Component = btnDiagnosis'
486 'Status = stsDefault')
487 (
488 'Component = memOrder'
489 'Status = stsDefault')
490 (
491 'Component = cmdAccept'
492 'Status = stsDefault')
493 (
494 'Component = cmdQuit'
495 'Status = stsDefault')
496 (
497 'Component = pnlMessage'
498 'Status = stsDefault')
499 (
500 'Component = memMessage'
501 'Status = stsDefault')
502 (
503 'Component = frmODCslt'
504 'Status = stsDefault'))
505 end
506 object mnuPopProvDx: TPopupMenu
507 Left = 353
508 Top = 77
509 object mnuPopProvDxDelete: TMenuItem
510 Caption = 'Delete diagnosis'
511 OnClick = mnuPopProvDxDeleteClick
512 end
513 end
514 object popReason: TPopupMenu
515 OnPopup = popReasonPopup
516 Left = 411
517 Top = 188
518 object popReasonCut: TMenuItem
519 Caption = 'Cu&t'
520 ShortCut = 16472
521 OnClick = popReasonCutClick
522 end
523 object popReasonCopy: TMenuItem
524 Caption = '&Copy'
525 ShortCut = 16451
526 OnClick = popReasonCopyClick
527 end
528 object popReasonPaste: TMenuItem
529 Caption = '&Paste'
530 ShortCut = 16470
531 OnClick = popReasonPasteClick
532 end
533 object popReasonPaste2: TMenuItem
534 Caption = 'Paste2'
535 ShortCut = 8237
536 Visible = False
537 OnClick = popReasonPasteClick
538 end
539 object popReasonReformat: TMenuItem
540 Caption = 'Reformat Paragraph'
541 ShortCut = 16466
542 OnClick = popReasonReformatClick
543 end
544 end
545end
Note: See TracBrowser for help on using the repository browser.