source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/Orders/fODRad.dfm@ 1797

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

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