source: cprs/trunk/CPRS-Chart/Orders/fODRad.dfm@ 1424

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

Upgrade to version 27
File size: 15.0 KB
RevLine 
[456]1inherited frmODRad: TfrmODRad
2 Tag = 160
3 Left = 282
4 Top = 225
[829]5 Width = 586
6 Height = 404
[456]7 Caption = 'Order an Imaging Procedure'
[829]8 Constraints.MinHeight = 404
9 Constraints.MinWidth = 586
10 ExplicitLeft = 282
11 ExplicitTop = 225
12 ExplicitWidth = 586
13 ExplicitHeight = 404
[456]14 PixelsPerInch = 96
15 TextHeight = 13
16 inherited memOrder: TCaptionMemo
17 Left = 0
[829]18 Top = 326
19 Width = 490
[456]20 Anchors = [akLeft, akRight, akBottom]
21 TabOrder = 6
[829]22 ExplicitLeft = 0
23 ExplicitTop = 326
24 ExplicitWidth = 490
[456]25 end
26 object FRadCommonCombo: TORListBox [1]
[829]27 Left = 419
28 Top = 362
[456]29 Width = 121
30 Height = 11
31 ItemHeight = 13
32 ParentShowHint = False
33 ShowHint = True
34 TabOrder = 7
35 Visible = False
36 ItemTipColor = clWindow
37 LongList = False
38 end
39 object pnlLeft: TORAutoPanel [2]
40 Left = 0
41 Top = 0
42 Width = 215
[829]43 Height = 321
[456]44 Anchors = [akLeft, akTop, akBottom]
45 BevelOuter = bvNone
46 TabOrder = 0
47 object lblDrug: TLabel
48 Left = 0
[829]49 Top = 34
[456]50 Width = 89
51 Height = 13
52 Caption = 'Imaging Procedure'
53 end
54 object lblAvailMod: TLabel
55 Left = 0
56 Top = 170
57 Width = 88
58 Height = 13
59 Caption = 'Available Modifiers'
60 end
61 object lblImType: TLabel
[829]62 Left = 0
63 Top = 0
[456]64 Width = 64
65 Height = 13
66 Caption = 'Imaging Type'
67 end
68 object lblSelectMod: TLabel
69 Left = 109
70 Top = 170
71 Width = 87
72 Height = 13
73 Caption = 'Selected Modifiers'
74 end
75 object cboImType: TORComboBox
76 Left = 0
[829]77 Top = 13
[456]78 Width = 212
79 Height = 21
80 Style = orcsDropDown
81 AutoSelect = True
82 Caption = 'Imaging Type'
83 Color = clWindow
84 DropDownCount = 8
85 ItemHeight = 13
86 ItemTipColor = clWindow
87 ItemTipEnable = True
88 ListItemsOnly = True
89 LongList = False
90 LookupPiece = 0
91 MaxLength = 0
92 Pieces = '2'
93 Sorted = False
94 SynonymChars = '<>'
95 TabOrder = 0
96 OnChange = cboImTypeChange
97 OnDropDownClose = cboImTypeDropDownClose
98 OnExit = cboImTypeExit
99 CharsNeedMatch = 1
100 end
101 object lstSelectMod: TORListBox
102 Left = 109
103 Top = 184
104 Width = 102
105 Height = 68
106 ExtendedSelect = False
107 ItemHeight = 13
108 ParentShowHint = False
109 ShowHint = True
110 TabOrder = 3
111 Caption = 'Selected Modifiers'
112 ItemTipColor = clWindow
113 LongList = False
114 Pieces = '2'
115 end
116 object cboProcedure: TORComboBox
117 Left = 0
[829]118 Top = 47
[456]119 Width = 212
[829]120 Height = 122
[456]121 Style = orcsSimple
122 AutoSelect = True
123 Caption = 'Imaging Procedure'
124 Color = clWindow
125 DropDownCount = 8
126 ItemHeight = 13
127 ItemTipColor = clWindow
128 ItemTipEnable = True
129 ListItemsOnly = True
130 LongList = True
131 LookupPiece = 0
132 MaxLength = 0
133 Pieces = '2'
134 Sorted = False
135 SynonymChars = '<>'
136 TabOrder = 1
137 OnClick = cboProcedureSelect
138 OnExit = cboProcedureExit
139 OnNeedData = cboProcedureNeedData
140 CharsNeedMatch = 1
141 end
142 object cboAvailMod: TORComboBox
143 Left = 0
144 Top = 184
145 Width = 102
146 Height = 94
147 Style = orcsSimple
148 AutoSelect = True
149 Caption = 'Available Modifiers'
150 Color = clWindow
151 DropDownCount = 8
152 ItemHeight = 13
153 ItemTipColor = clWindow
154 ItemTipEnable = True
155 ListItemsOnly = False
156 LongList = False
157 LookupPiece = 0
158 MaxLength = 0
159 ParentShowHint = False
160 Pieces = '2'
161 ShowHint = True
162 Sorted = True
163 SynonymChars = '<>'
164 TabOrder = 2
165 OnKeyDown = cboAvailModKeyDown
166 OnMouseClick = cboAvailModMouseClick
167 CharsNeedMatch = 1
168 end
169 object cmdRemove: TButton
170 Left = 110
171 Top = 255
172 Width = 102
173 Height = 18
174 Caption = 'Remove'
175 TabOrder = 4
176 OnClick = cmdRemoveClick
177 end
178 end
[829]179 inherited cmdAccept: TButton
180 Left = 497
181 Top = 326
182 Anchors = [akRight, akBottom]
183 TabOrder = 3
184 ExplicitLeft = 497
185 ExplicitTop = 326
186 end
187 object pnlRightBase: TORAutoPanel [4]
188 Left = 215
189 Top = 0
190 Width = 362
191 Height = 322
192 Anchors = [akLeft, akTop, akRight, akBottom]
[456]193 BevelOuter = bvNone
[829]194 Caption = 'pnlRightBase'
195 TabOrder = 1
196 object pnlRight: TORAutoPanel
197 Left = 0
198 Top = 127
199 Width = 362
200 Height = 195
201 Align = alBottom
202 Anchors = [akLeft, akTop, akRight, akBottom]
203 BevelOuter = bvNone
[456]204 TabOrder = 1
[829]205 object lblRequestDate: TLabel
206 Left = 4
207 Top = 5
208 Width = 62
209 Height = 13
210 Caption = 'Date Desired'
211 end
212 object lblUrgency: TLabel
213 Left = 104
214 Top = 5
215 Width = 40
216 Height = 13
217 Caption = 'Urgency'
218 end
219 object lblTransport: TLabel
220 Left = 204
221 Top = 5
222 Width = 45
223 Height = 13
224 Caption = 'Transport'
225 end
226 object lblCategory: TLabel
227 Left = 4
228 Top = 42
229 Width = 42
230 Height = 13
231 Caption = 'Category'
232 end
233 object lblSubmit: TLabel
234 Left = 154
235 Top = 42
236 Width = 48
237 Height = 13
238 Caption = 'Submit To'
239 end
240 object lblLastExam: TLabel
241 Left = 4
242 Top = 82
243 Width = 134
244 Height = 13
245 Caption = 'Exams Over the Last 7 Days'
246 end
247 object lblAskSubmit: TLabel
248 Left = 446
249 Top = 103
250 Width = 3
251 Height = 13
252 Visible = False
253 end
254 object lblPreOp: TLabel
255 Left = 198
256 Top = 156
257 Width = 84
258 Height = 13
259 Caption = 'PreOp Scheduled'
260 end
261 object calPreOp: TORDateBox
262 Left = 198
263 Top = 170
264 Width = 96
265 Height = 21
266 TabOrder = 8
267 OnChange = calPreOpChange
268 OnExit = calPreOpExit
269 DateOnly = False
270 RequireTime = False
271 Caption = 'PreOp Scheduled'
272 end
273 object chkIsolation: TCheckBox
274 Left = 198
275 Top = 94
276 Width = 97
[456]277 Height = 17
[829]278 Hint = 'Is patient on isolation procedures?'
279 Caption = 'Isolation'
280 ParentShowHint = False
281 ShowHint = True
282 TabOrder = 6
[456]283 OnClick = ControlChange
[829]284 OnExit = chkIsolationExit
[456]285 end
[829]286 object calRequestDate: TORDateBox
287 Left = 4
288 Top = 18
289 Width = 92
290 Height = 21
291 TabOrder = 0
292 OnChange = ControlChange
293 DateOnly = False
294 RequireTime = False
295 Caption = 'Date Desired'
296 end
297 object cboUrgency: TORComboBox
298 Left = 104
299 Top = 18
300 Width = 92
301 Height = 21
302 Style = orcsDropDown
303 AutoSelect = True
304 Caption = 'Urgency'
305 Color = clWindow
306 DropDownCount = 8
307 ItemHeight = 13
308 ItemTipColor = clWindow
309 ItemTipEnable = True
310 ListItemsOnly = True
311 LongList = False
312 LookupPiece = 0
313 MaxLength = 0
314 Pieces = '2'
315 Sorted = False
316 SynonymChars = '<>'
[456]317 TabOrder = 1
[829]318 OnChange = ControlChange
319 CharsNeedMatch = 1
[456]320 end
[829]321 object cboTransport: TORComboBox
322 Left = 204
323 Top = 18
324 Width = 92
325 Height = 21
326 Style = orcsDropDown
327 AutoSelect = True
328 Caption = 'Transport'
329 Color = clWindow
330 DropDownCount = 8
331 ItemHeight = 13
332 ItemTipColor = clWindow
333 ItemTipEnable = True
334 ListItemsOnly = True
335 LongList = False
336 LookupPiece = 0
337 MaxLength = 0
338 Pieces = '2'
339 Sorted = False
340 SynonymChars = '<>'
341 TabOrder = 2
342 OnChange = ControlChange
343 CharsNeedMatch = 1
344 end
345 object cboCategory: TORComboBox
346 Left = 4
347 Top = 57
348 Width = 140
349 Height = 21
350 Style = orcsDropDown
351 AutoSelect = True
352 Caption = 'Category'
353 Color = clWindow
354 DropDownCount = 8
355 ItemHeight = 13
356 ItemTipColor = clWindow
357 ItemTipEnable = True
358 ListItemsOnly = True
359 LongList = False
360 LookupPiece = 0
361 MaxLength = 0
362 Pieces = '2'
363 Sorted = False
364 SynonymChars = '<>'
365 TabOrder = 3
366 OnChange = cboCategoryChange
367 CharsNeedMatch = 1
368 end
369 object chkPreOp: TCheckBox
370 Left = 146
371 Top = 233
372 Width = 61
[456]373 Height = 17
[829]374 Caption = 'Pre-Op'
375 TabOrder = 9
376 Visible = False
[456]377 OnClick = ControlChange
378 end
[829]379 object cboSubmit: TORComboBox
380 Left = 154
381 Top = 57
382 Width = 142
383 Height = 21
384 Style = orcsDropDown
385 AutoSelect = True
386 Caption = 'Submit To'
387 Color = clWindow
388 DropDownCount = 8
389 ItemHeight = 13
390 ItemTipColor = clWindow
391 ItemTipEnable = True
392 ListItemsOnly = True
393 LongList = False
394 LookupPiece = 0
395 MaxLength = 0
396 Pieces = '2'
397 Sorted = False
398 SynonymChars = '<>'
399 TabOrder = 4
400 OnChange = ControlChange
401 CharsNeedMatch = 1
402 end
403 object lstLastExam: TORListBox
404 Left = 4
405 Top = 95
406 Width = 187
407 Height = 98
408 Color = clBtnFace
409 ExtendedSelect = False
410 ItemHeight = 13
411 MultiSelect = True
412 ParentShowHint = False
413 ShowHint = True
414 TabOrder = 5
415 Caption = 'Exams Over the Last 7 Days'
416 ItemTipColor = clWindow
417 LongList = False
418 Pieces = '2'
419 end
420 object grpPregnant: TGroupBox
421 Left = 196
422 Top = 112
423 Width = 158
424 Height = 41
425 Caption = 'Pregnant'
426 TabOrder = 7
427 object radPregnant: TRadioButton
428 Left = 2
429 Top = 17
430 Width = 39
431 Height = 17
432 Caption = 'Yes'
433 TabOrder = 0
434 OnClick = ControlChange
435 end
436 object radPregnantNo: TRadioButton
437 Left = 47
438 Top = 17
439 Width = 35
440 Height = 17
441 Caption = 'No'
442 TabOrder = 1
443 OnClick = ControlChange
444 end
445 object radPregnantUnknown: TRadioButton
446 Left = 87
447 Top = 16
448 Width = 66
449 Height = 17
450 Caption = 'Unknown'
451 TabOrder = 2
452 OnClick = ControlChange
453 end
454 end
[456]455 end
[829]456 object pnlHandR: TPanel
457 Left = 0
[456]458 Top = 0
[829]459 Width = 362
460 Height = 127
461 Align = alClient
462 BevelOuter = bvNone
[456]463 TabOrder = 0
[829]464 object lblHistory: TLabel
465 Left = 0
466 Top = 34
467 Width = 362
468 Height = 13
469 Align = alTop
470 Caption = 'Clinical History (Optional)'
471 ExplicitWidth = 116
472 end
473 object lblReason: TLabel
474 Left = 0
475 Top = 0
476 Width = 362
477 Height = 13
478 Align = alTop
479 Caption = 'Reason for Study (REQUIRED - 64 characters maximum)'
480 ExplicitWidth = 268
481 end
482 object memHistory: TCaptionMemo
483 Left = 0
484 Top = 47
485 Width = 362
486 Height = 80
487 Align = alClient
488 ScrollBars = ssVertical
489 TabOrder = 3
490 OnChange = ControlChange
491 OnExit = memHistoryExit
492 Caption = 'Clinical History (Optional)'
493 end
494 object txtReason: TCaptionEdit
495 Left = 0
496 Top = 13
497 Width = 362
498 Height = 21
499 Align = alTop
500 MaxLength = 64
501 TabOrder = 0
502 OnChange = ControlChange
503 Caption = 'Reason for Study (REQUIRED)'
504 end
[456]505 end
506 end
[829]507 inherited cmdQuit: TButton
508 Left = 498
509 Top = 353
[456]510 Anchors = [akRight, akBottom]
511 TabOrder = 4
[829]512 ExplicitLeft = 498
513 ExplicitTop = 353
[456]514 end
515 inherited pnlMessage: TPanel
[829]516 Left = 5
517 Top = 318
[456]518 Width = 408
519 Height = 55
[829]520 TabOrder = 2
521 ExplicitLeft = 5
522 ExplicitTop = 318
523 ExplicitWidth = 408
524 ExplicitHeight = 55
[456]525 inherited imgMessage: TImage
526 Left = 10
527 Top = 9
[829]528 ExplicitLeft = 10
529 ExplicitTop = 9
[456]530 end
531 inherited memMessage: TRichEdit
532 Left = 55
533 Width = 344
534 Height = 43
[829]535 ExplicitLeft = 55
536 ExplicitWidth = 344
537 ExplicitHeight = 43
[456]538 end
539 end
[829]540 inherited amgrMain: TVA508AccessibilityManager
541 Data = (
542 (
543 'Component = FRadCommonCombo'
544 'Status = stsDefault')
545 (
546 'Component = pnlLeft'
547 'Status = stsDefault')
548 (
549 'Component = cboImType'
550 'Status = stsDefault')
551 (
552 'Component = lstSelectMod'
553 'Status = stsDefault')
554 (
555 'Component = cboProcedure'
556 'Status = stsDefault')
557 (
558 'Component = cboAvailMod'
559 'Status = stsDefault')
560 (
561 'Component = cmdRemove'
562 'Status = stsDefault')
563 (
564 'Component = pnlRightBase'
565 'Status = stsDefault')
566 (
567 'Component = pnlRight'
568 'Status = stsDefault')
569 (
570 'Component = calPreOp'
571 'Status = stsDefault')
572 (
573 'Component = chkIsolation'
574 'Status = stsDefault')
575 (
576 'Component = calRequestDate'
577 'Status = stsDefault')
578 (
579 'Component = cboUrgency'
580 'Status = stsDefault')
581 (
582 'Component = cboTransport'
583 'Status = stsDefault')
584 (
585 'Component = cboCategory'
586 'Status = stsDefault')
587 (
588 'Component = chkPreOp'
589 'Status = stsDefault')
590 (
591 'Component = cboSubmit'
592 'Status = stsDefault')
593 (
594 'Component = lstLastExam'
595 'Status = stsDefault')
596 (
597 'Component = grpPregnant'
598 'Status = stsDefault')
599 (
600 'Component = radPregnant'
601 'Status = stsDefault')
602 (
603 'Component = radPregnantNo'
604 'Status = stsDefault')
605 (
606 'Component = radPregnantUnknown'
607 'Status = stsDefault')
608 (
609 'Component = pnlHandR'
610 'Status = stsDefault')
611 (
612 'Component = memHistory'
613 'Status = stsDefault')
614 (
615 'Component = txtReason'
616 'Status = stsDefault')
617 (
618 'Component = memOrder'
619 'Status = stsDefault')
620 (
621 'Component = cmdAccept'
622 'Status = stsDefault')
623 (
624 'Component = cmdQuit'
625 'Status = stsDefault')
626 (
627 'Component = pnlMessage'
628 'Status = stsDefault')
629 (
630 'Component = memMessage'
631 'Status = stsDefault')
632 (
633 'Component = frmODRad'
634 'Status = stsDefault'))
635 end
[456]636end
Note: See TracBrowser for help on using the repository browser.