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

Last change on this file since 1797 was 1679, checked in by healthsevak, 10 years ago

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