source: cprs/branches/foia-cprs/CPRS-Chart/Orders/fODRad.dfm@ 697

Last change on this file since 697 was 460, checked in by Kevin Toppenberg, 16 years ago

Uploading from OR_30_258
File size: 10.9 KB
Line 
1inherited frmODRad: TfrmODRad
2 Tag = 160
3 Left = 282
4 Top = 225
5 Width = 576
6 Height = 361
7 Caption = 'Order an Imaging Procedure'
8 Constraints.MinHeight = 344
9 Constraints.MinWidth = 576
10 PixelsPerInch = 96
11 TextHeight = 13
12 inherited memOrder: TCaptionMemo
13 Left = 0
14 Top = 283
15 Width = 480
16 Anchors = [akLeft, akRight, akBottom]
17 TabOrder = 6
18 end
19 object FRadCommonCombo: TORListBox [1]
20 Left = 443
21 Top = 346
22 Width = 121
23 Height = 11
24 ItemHeight = 13
25 ParentShowHint = False
26 ShowHint = True
27 TabOrder = 7
28 Visible = False
29 ItemTipColor = clWindow
30 LongList = False
31 end
32 object pnlLeft: TORAutoPanel [2]
33 Left = 0
34 Top = 0
35 Width = 215
36 Height = 281
37 Anchors = [akLeft, akTop, akBottom]
38 BevelOuter = bvNone
39 TabOrder = 0
40 object lblDrug: TLabel
41 Left = 0
42 Top = 38
43 Width = 89
44 Height = 13
45 Caption = 'Imaging Procedure'
46 end
47 object lblAvailMod: TLabel
48 Left = 0
49 Top = 170
50 Width = 88
51 Height = 13
52 Caption = 'Available Modifiers'
53 end
54 object lblImType: TLabel
55 Left = 1
56 Top = 1
57 Width = 64
58 Height = 13
59 Caption = 'Imaging Type'
60 end
61 object lblSelectMod: TLabel
62 Left = 109
63 Top = 170
64 Width = 87
65 Height = 13
66 Caption = 'Selected Modifiers'
67 end
68 object cboImType: TORComboBox
69 Left = 0
70 Top = 15
71 Width = 212
72 Height = 21
73 Style = orcsDropDown
74 AutoSelect = True
75 Caption = 'Imaging Type'
76 Color = clWindow
77 DropDownCount = 8
78 ItemHeight = 13
79 ItemTipColor = clWindow
80 ItemTipEnable = True
81 ListItemsOnly = True
82 LongList = False
83 LookupPiece = 0
84 MaxLength = 0
85 Pieces = '2'
86 Sorted = False
87 SynonymChars = '<>'
88 TabOrder = 0
89 OnChange = cboImTypeChange
90 OnDropDownClose = cboImTypeDropDownClose
91 OnExit = cboImTypeExit
92 CharsNeedMatch = 1
93 end
94 object lstSelectMod: TORListBox
95 Left = 109
96 Top = 184
97 Width = 102
98 Height = 68
99 ExtendedSelect = False
100 ItemHeight = 13
101 ParentShowHint = False
102 ShowHint = True
103 TabOrder = 3
104 Caption = 'Selected Modifiers'
105 ItemTipColor = clWindow
106 LongList = False
107 Pieces = '2'
108 end
109 object cboProcedure: TORComboBox
110 Left = 0
111 Top = 53
112 Width = 212
113 Height = 114
114 Style = orcsSimple
115 AutoSelect = True
116 Caption = 'Imaging Procedure'
117 Color = clWindow
118 DropDownCount = 8
119 ItemHeight = 13
120 ItemTipColor = clWindow
121 ItemTipEnable = True
122 ListItemsOnly = True
123 LongList = True
124 LookupPiece = 0
125 MaxLength = 0
126 Pieces = '2'
127 Sorted = False
128 SynonymChars = '<>'
129 TabOrder = 1
130 OnClick = cboProcedureSelect
131 OnExit = cboProcedureExit
132 OnNeedData = cboProcedureNeedData
133 CharsNeedMatch = 1
134 end
135 object cboAvailMod: TORComboBox
136 Left = 0
137 Top = 184
138 Width = 102
139 Height = 94
140 Style = orcsSimple
141 AutoSelect = True
142 Caption = 'Available Modifiers'
143 Color = clWindow
144 DropDownCount = 8
145 ItemHeight = 13
146 ItemTipColor = clWindow
147 ItemTipEnable = True
148 ListItemsOnly = False
149 LongList = False
150 LookupPiece = 0
151 MaxLength = 0
152 ParentShowHint = False
153 Pieces = '2'
154 ShowHint = True
155 Sorted = True
156 SynonymChars = '<>'
157 TabOrder = 2
158 OnKeyDown = cboAvailModKeyDown
159 OnMouseClick = cboAvailModMouseClick
160 CharsNeedMatch = 1
161 end
162 object cmdRemove: TButton
163 Left = 110
164 Top = 255
165 Width = 102
166 Height = 18
167 Caption = 'Remove'
168 TabOrder = 4
169 OnClick = cmdRemoveClick
170 end
171 end
172 object pnlRight: TORAutoPanel [3]
173 Left = 214
174 Top = 85
175 Width = 355
176 Height = 195
177 Anchors = [akLeft, akRight, akBottom]
178 BevelOuter = bvNone
179 TabOrder = 3
180 object lblRequestDate: TLabel
181 Left = 4
182 Top = 5
183 Width = 78
184 Height = 13
185 Caption = 'Requested Date'
186 end
187 object lblUrgency: TLabel
188 Left = 104
189 Top = 5
190 Width = 40
191 Height = 13
192 Caption = 'Urgency'
193 end
194 object lblTransport: TLabel
195 Left = 204
196 Top = 5
197 Width = 45
198 Height = 13
199 Caption = 'Transport'
200 end
201 object lblCategory: TLabel
202 Left = 4
203 Top = 42
204 Width = 42
205 Height = 13
206 Caption = 'Category'
207 end
208 object lblSubmit: TLabel
209 Left = 154
210 Top = 42
211 Width = 48
212 Height = 13
213 Caption = 'Submit To'
214 end
215 object lblLastExam: TLabel
216 Left = 4
217 Top = 82
218 Width = 134
219 Height = 13
220 Caption = 'Exams Over the Last 7 Days'
221 end
222 object lblAskSubmit: TLabel
223 Left = 446
224 Top = 103
225 Width = 3
226 Height = 13
227 Visible = False
228 end
229 object lblPreOp: TLabel
230 Left = 198
231 Top = 156
232 Width = 84
233 Height = 13
234 Caption = 'PreOp Scheduled'
235 end
236 object calPreOp: TORDateBox
237 Left = 198
238 Top = 170
239 Width = 96
240 Height = 21
241 TabOrder = 8
242 OnChange = calPreOpChange
243 OnExit = calPreOpExit
244 DateOnly = False
245 RequireTime = False
246 Caption = 'PreOp Scheduled'
247 end
248 object chkIsolation: TCheckBox
249 Left = 198
250 Top = 94
251 Width = 97
252 Height = 17
253 Hint = 'Is patient on isolation procedures?'
254 Caption = 'Isolation'
255 ParentShowHint = False
256 ShowHint = True
257 TabOrder = 6
258 OnClick = ControlChange
259 OnExit = chkIsolationExit
260 end
261 object calRequestDate: TORDateBox
262 Left = 4
263 Top = 18
264 Width = 92
265 Height = 21
266 TabOrder = 0
267 Text = 'TODAY'
268 OnChange = ControlChange
269 DateOnly = False
270 RequireTime = False
271 Caption = 'Requested Date'
272 end
273 object cboUrgency: TORComboBox
274 Left = 104
275 Top = 18
276 Width = 92
277 Height = 21
278 Style = orcsDropDown
279 AutoSelect = True
280 Caption = 'Urgency'
281 Color = clWindow
282 DropDownCount = 8
283 ItemHeight = 13
284 ItemTipColor = clWindow
285 ItemTipEnable = True
286 ListItemsOnly = True
287 LongList = False
288 LookupPiece = 0
289 MaxLength = 0
290 Pieces = '2'
291 Sorted = False
292 SynonymChars = '<>'
293 TabOrder = 1
294 OnChange = ControlChange
295 CharsNeedMatch = 1
296 end
297 object cboTransport: TORComboBox
298 Left = 204
299 Top = 18
300 Width = 92
301 Height = 21
302 Style = orcsDropDown
303 AutoSelect = True
304 Caption = 'Transport'
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 = '<>'
317 TabOrder = 2
318 OnChange = ControlChange
319 CharsNeedMatch = 1
320 end
321 object cboCategory: TORComboBox
322 Left = 4
323 Top = 57
324 Width = 140
325 Height = 21
326 Style = orcsDropDown
327 AutoSelect = True
328 Caption = 'Category'
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 = 3
342 OnChange = cboCategoryChange
343 CharsNeedMatch = 1
344 end
345 object chkPreOp: TCheckBox
346 Left = 146
347 Top = 233
348 Width = 61
349 Height = 17
350 Caption = 'Pre-Op'
351 TabOrder = 9
352 Visible = False
353 OnClick = ControlChange
354 end
355 object cboSubmit: TORComboBox
356 Left = 154
357 Top = 57
358 Width = 142
359 Height = 21
360 Style = orcsDropDown
361 AutoSelect = True
362 Caption = 'Submit To'
363 Color = clWindow
364 DropDownCount = 8
365 ItemHeight = 13
366 ItemTipColor = clWindow
367 ItemTipEnable = True
368 ListItemsOnly = True
369 LongList = False
370 LookupPiece = 0
371 MaxLength = 0
372 Pieces = '2'
373 Sorted = False
374 SynonymChars = '<>'
375 TabOrder = 4
376 OnChange = ControlChange
377 CharsNeedMatch = 1
378 end
379 object lstLastExam: TORListBox
380 Left = 4
381 Top = 95
382 Width = 187
383 Height = 98
384 Color = clBtnFace
385 ExtendedSelect = False
386 ItemHeight = 13
387 MultiSelect = True
388 ParentShowHint = False
389 ShowHint = True
390 TabOrder = 5
391 Caption = 'Exams Over the Last 7 Days'
392 ItemTipColor = clWindow
393 LongList = False
394 Pieces = '2'
395 end
396 object grpPregnant: TGroupBox
397 Left = 196
398 Top = 112
399 Width = 158
400 Height = 41
401 Caption = 'Pregnant'
402 TabOrder = 7
403 object radPregnant: TRadioButton
404 Left = 2
405 Top = 17
406 Width = 39
407 Height = 17
408 Caption = 'Yes'
409 TabOrder = 0
410 OnClick = ControlChange
411 end
412 object radPregnantNo: TRadioButton
413 Left = 47
414 Top = 17
415 Width = 35
416 Height = 17
417 Caption = 'No'
418 TabOrder = 1
419 OnClick = ControlChange
420 end
421 object radPregnantUnknown: TRadioButton
422 Left = 87
423 Top = 16
424 Width = 66
425 Height = 17
426 Caption = 'Unknown'
427 TabOrder = 2
428 OnClick = ControlChange
429 end
430 end
431 end
432 object pnlHandR: TPanel [4]
433 Left = 215
434 Top = 0
435 Width = 353
436 Height = 84
437 Anchors = [akLeft, akTop, akRight, akBottom]
438 BevelOuter = bvNone
439 TabOrder = 2
440 DesignSize = (
441 353
442 84)
443 object lblReason: TLabel
444 Left = 3
445 Top = 0
446 Width = 125
447 Height = 13
448 Caption = 'History && Reason for Exam'
449 end
450 object memReason: TCaptionMemo
451 Left = 3
452 Top = 15
453 Width = 346
454 Height = 68
455 Anchors = [akLeft, akTop, akRight, akBottom]
456 ScrollBars = ssVertical
457 TabOrder = 0
458 OnChange = ControlChange
459 OnExit = memReasonExit
460 Caption = 'History && Reason for Exam'
461 end
462 end
463 inherited cmdAccept: TButton
464 Left = 487
465 Top = 283
466 Anchors = [akRight, akBottom]
467 TabOrder = 4
468 end
469 inherited cmdQuit: TButton
470 Left = 488
471 Top = 310
472 Anchors = [akRight, akBottom]
473 TabOrder = 5
474 end
475 inherited pnlMessage: TPanel
476 Left = 13
477 Top = 262
478 Width = 408
479 Height = 55
480 TabOrder = 1
481 inherited imgMessage: TImage
482 Left = 10
483 Top = 9
484 end
485 inherited memMessage: TRichEdit
486 Left = 55
487 Width = 344
488 Height = 43
489 end
490 end
491end
Note: See TracBrowser for help on using the repository browser.