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

Last change on this file since 1727 was 1679, checked in by healthsevak, 9 years ago

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