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

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

Adding foia-cprs branch
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 OnPaint = FormPaint
11 PixelsPerInch = 96
12 TextHeight = 13
13 inherited memOrder: TCaptionMemo
14 Left = 0
15 Top = 283
16 Width = 480
17 Anchors = [akLeft, akRight, akBottom]
18 TabOrder = 6
19 end
20 object FRadCommonCombo: TORListBox [1]
21 Left = 443
22 Top = 346
23 Width = 121
24 Height = 11
25 ItemHeight = 13
26 ParentShowHint = False
27 ShowHint = True
28 TabOrder = 7
29 Visible = False
30 ItemTipColor = clWindow
31 LongList = False
32 end
33 object pnlLeft: TORAutoPanel [2]
34 Left = 0
35 Top = 0
36 Width = 215
37 Height = 281
38 Anchors = [akLeft, akTop, akBottom]
39 BevelOuter = bvNone
40 TabOrder = 0
41 object lblDrug: TLabel
42 Left = 0
43 Top = 38
44 Width = 89
45 Height = 13
46 Caption = 'Imaging Procedure'
47 end
48 object lblAvailMod: TLabel
49 Left = 0
50 Top = 170
51 Width = 88
52 Height = 13
53 Caption = 'Available Modifiers'
54 end
55 object lblImType: TLabel
56 Left = 1
57 Top = 1
58 Width = 64
59 Height = 13
60 Caption = 'Imaging Type'
61 end
62 object lblSelectMod: TLabel
63 Left = 109
64 Top = 170
65 Width = 87
66 Height = 13
67 Caption = 'Selected Modifiers'
68 end
69 object cboImType: TORComboBox
70 Left = 0
71 Top = 15
72 Width = 212
73 Height = 21
74 Style = orcsDropDown
75 AutoSelect = True
76 Caption = 'Imaging Type'
77 Color = clWindow
78 DropDownCount = 8
79 ItemHeight = 13
80 ItemTipColor = clWindow
81 ItemTipEnable = True
82 ListItemsOnly = True
83 LongList = False
84 LookupPiece = 0
85 MaxLength = 0
86 Pieces = '2'
87 Sorted = False
88 SynonymChars = '<>'
89 TabOrder = 0
90 OnDropDownClose = cboImTypeChange
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 DateOnly = False
244 RequireTime = False
245 Caption = 'PreOp Scheduled'
246 end
247 object chkIsolation: TCheckBox
248 Left = 198
249 Top = 94
250 Width = 97
251 Height = 17
252 Hint = 'Is patient on isolation procedures?'
253 Caption = 'Isolation'
254 ParentShowHint = False
255 ShowHint = True
256 TabOrder = 6
257 OnClick = ControlChange
258 end
259 object calRequestDate: TORDateBox
260 Left = 4
261 Top = 18
262 Width = 92
263 Height = 21
264 TabOrder = 0
265 Text = 'TODAY'
266 OnChange = ControlChange
267 DateOnly = False
268 RequireTime = False
269 Caption = 'Requested Date'
270 end
271 object cboUrgency: TORComboBox
272 Left = 104
273 Top = 18
274 Width = 92
275 Height = 21
276 Style = orcsDropDown
277 AutoSelect = True
278 Caption = 'Urgency'
279 Color = clWindow
280 DropDownCount = 8
281 ItemHeight = 13
282 ItemTipColor = clWindow
283 ItemTipEnable = True
284 ListItemsOnly = True
285 LongList = False
286 LookupPiece = 0
287 MaxLength = 0
288 Pieces = '2'
289 Sorted = False
290 SynonymChars = '<>'
291 TabOrder = 1
292 OnChange = ControlChange
293 CharsNeedMatch = 1
294 end
295 object cboTransport: TORComboBox
296 Left = 204
297 Top = 18
298 Width = 92
299 Height = 21
300 Style = orcsDropDown
301 AutoSelect = True
302 Caption = 'Transport'
303 Color = clWindow
304 DropDownCount = 8
305 ItemHeight = 13
306 ItemTipColor = clWindow
307 ItemTipEnable = True
308 ListItemsOnly = True
309 LongList = False
310 LookupPiece = 0
311 MaxLength = 0
312 Pieces = '2'
313 Sorted = False
314 SynonymChars = '<>'
315 TabOrder = 2
316 OnChange = ControlChange
317 CharsNeedMatch = 1
318 end
319 object cboCategory: TORComboBox
320 Left = 4
321 Top = 57
322 Width = 140
323 Height = 21
324 Style = orcsDropDown
325 AutoSelect = True
326 Caption = 'Category'
327 Color = clWindow
328 DropDownCount = 8
329 ItemHeight = 13
330 ItemTipColor = clWindow
331 ItemTipEnable = True
332 ListItemsOnly = True
333 LongList = False
334 LookupPiece = 0
335 MaxLength = 0
336 Pieces = '2'
337 Sorted = False
338 SynonymChars = '<>'
339 TabOrder = 3
340 OnChange = cboCategoryChange
341 CharsNeedMatch = 1
342 end
343 object chkPreOp: TCheckBox
344 Left = 146
345 Top = 233
346 Width = 61
347 Height = 17
348 Caption = 'Pre-Op'
349 TabOrder = 9
350 Visible = False
351 OnClick = ControlChange
352 end
353 object cboSubmit: TORComboBox
354 Left = 154
355 Top = 57
356 Width = 142
357 Height = 21
358 Style = orcsDropDown
359 AutoSelect = True
360 Caption = 'Submit To'
361 Color = clWindow
362 DropDownCount = 8
363 ItemHeight = 13
364 ItemTipColor = clWindow
365 ItemTipEnable = True
366 ListItemsOnly = True
367 LongList = False
368 LookupPiece = 0
369 MaxLength = 0
370 Pieces = '2'
371 Sorted = False
372 SynonymChars = '<>'
373 TabOrder = 4
374 OnChange = ControlChange
375 CharsNeedMatch = 1
376 end
377 object lstLastExam: TORListBox
378 Left = 4
379 Top = 95
380 Width = 187
381 Height = 98
382 Color = clBtnFace
383 ExtendedSelect = False
384 ItemHeight = 13
385 MultiSelect = True
386 ParentShowHint = False
387 ShowHint = True
388 TabOrder = 5
389 Caption = 'Exams Over the Last 7 Days'
390 ItemTipColor = clWindow
391 LongList = False
392 Pieces = '2'
393 end
394 object grpPregnant: TGroupBox
395 Left = 196
396 Top = 112
397 Width = 158
398 Height = 41
399 Caption = 'Pregnant'
400 TabOrder = 7
401 object radPregnant: TRadioButton
402 Left = 2
403 Top = 17
404 Width = 39
405 Height = 17
406 Caption = 'Yes'
407 TabOrder = 0
408 OnClick = ControlChange
409 end
410 object radPregnantNo: TRadioButton
411 Left = 47
412 Top = 17
413 Width = 35
414 Height = 17
415 Caption = 'No'
416 TabOrder = 1
417 OnClick = ControlChange
418 end
419 object radPregnantUnknown: TRadioButton
420 Left = 87
421 Top = 16
422 Width = 66
423 Height = 17
424 Caption = 'Unknown'
425 TabOrder = 2
426 OnClick = ControlChange
427 end
428 end
429 end
430 object pnlHandR: TPanel [4]
431 Left = 215
432 Top = 0
433 Width = 353
434 Height = 84
435 Anchors = [akLeft, akTop, akRight, akBottom]
436 BevelOuter = bvNone
437 TabOrder = 2
438 DesignSize = (
439 353
440 84)
441 object lblReason: TLabel
442 Left = 3
443 Top = 0
444 Width = 125
445 Height = 13
446 Caption = 'History && Reason for Exam'
447 end
448 object memReason: TCaptionMemo
449 Left = 3
450 Top = 15
451 Width = 346
452 Height = 68
453 Anchors = [akLeft, akTop, akRight, akBottom]
454 ScrollBars = ssVertical
455 TabOrder = 0
456 OnChange = ControlChange
457 OnExit = memReasonExit
458 Caption = 'History && Reason for Exam'
459 end
460 end
461 inherited cmdAccept: TButton
462 Left = 487
463 Top = 283
464 Anchors = [akRight, akBottom]
465 TabOrder = 4
466 end
467 inherited cmdQuit: TButton
468 Left = 488
469 Top = 310
470 Anchors = [akRight, akBottom]
471 TabOrder = 5
472 end
473 inherited pnlMessage: TPanel
474 Left = 13
475 Top = 262
476 Width = 408
477 Height = 55
478 TabOrder = 1
479 inherited imgMessage: TImage
480 Left = 10
481 Top = 9
482 end
483 inherited memMessage: TRichEdit
484 Left = 55
485 Width = 344
486 Height = 43
487 end
488 end
489end
Note: See TracBrowser for help on using the repository browser.