source: cprs/trunk/CPRS-Chart/Consults/fEditConsult.dfm@ 1677

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

Upgrade to version 27

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