source: cprs/trunk/CPRS-Chart/Consults/fEditProc.dfm@ 1028

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

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