source: cprs/trunk/CPRS-Chart/fReportsAdhocComponent1.dfm@ 483

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

Initial Upload of Official WV CPRS 1.0.26.76
File size: 11.9 KB
Line 
1object frmReportsAdhocComponent1: TfrmReportsAdhocComponent1
2 Left = 229
3 Top = 195
4 Width = 641
5 Height = 479
6 BorderIcons = [biSystemMenu]
7 Caption = 'ADHOC Health Summary'
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clWindowText
11 Font.Height = -11
12 Font.Name = 'MS Sans Serif'
13 Font.Style = []
14 OldCreateOrder = False
15 Position = poScreenCenter
16 OnClose = FormClose
17 OnCreate = FormCreate
18 OnShow = FormShow
19 PixelsPerInch = 96
20 TextHeight = 13
21 object Splitter1: TSplitter
22 Left = 185
23 Top = 0
24 Width = 5
25 Height = 394
26 Cursor = crHSplit
27 Beveled = True
28 OnCanResize = Splitter1CanResize
29 end
30 object ORComboBox1: TORComboBox
31 Left = 0
32 Top = 0
33 Width = 185
34 Height = 394
35 Style = orcsSimple
36 Align = alLeft
37 AutoSelect = True
38 Caption = 'Available Components'
39 Color = clWindow
40 DropDownCount = 8
41 ItemHeight = 13
42 ItemTipColor = clWindow
43 ItemTipEnable = True
44 ListItemsOnly = False
45 LongList = False
46 LookupPiece = 0
47 MaxLength = 0
48 Pieces = '2'
49 Sorted = True
50 SynonymChars = '<>'
51 TabOrder = 0
52 OnDblClick = btnAddComponentClick
53 OnKeyDown = ORComboBox1KeyDown
54 CharsNeedMatch = 1
55 end
56 object Panel2: TPanel
57 Left = 0
58 Top = 394
59 Width = 633
60 Height = 51
61 Align = alBottom
62 TabOrder = 2
63 DesignSize = (
64 633
65 51)
66 object btnCancelMain: TButton
67 Left = 550
68 Top = 18
69 Width = 75
70 Height = 25
71 Anchors = [akRight, akBottom]
72 Cancel = True
73 Caption = 'Cancel'
74 TabOrder = 2
75 OnClick = btnCancelMainClick
76 end
77 object btnOKMain: TButton
78 Left = 462
79 Top = 18
80 Width = 75
81 Height = 25
82 Anchors = [akRight, akBottom]
83 Caption = 'OK'
84 TabOrder = 1
85 OnClick = btnOKMainClick
86 end
87 object GroupBox1: TGroupBox
88 Left = 0
89 Top = 8
90 Width = 329
91 Height = 41
92 Caption = 'Lookup By:'
93 TabOrder = 0
94 object rbtnHeader: TRadioButton
95 Left = 208
96 Top = 16
97 Width = 105
98 Height = 17
99 Caption = '&Display Header'
100 TabOrder = 2
101 OnClick = rbtnHeaderClick
102 end
103 object rbtnAbbrev: TRadioButton
104 Left = 96
105 Top = 16
106 Width = 89
107 Height = 17
108 Caption = '&Abbreviation'
109 TabOrder = 1
110 OnClick = rbtnAbbrevClick
111 end
112 object rbtnName: TRadioButton
113 Left = 8
114 Top = 16
115 Width = 65
116 Height = 17
117 Caption = '&Name'
118 TabOrder = 0
119 OnClick = rbtnNameClick
120 end
121 end
122 end
123 object Panel3: TPanel
124 Left = 190
125 Top = 0
126 Width = 443
127 Height = 394
128 Align = alClient
129 TabOrder = 1
130 object Splitter4: TSplitter
131 Left = 219
132 Top = 25
133 Width = 5
134 Height = 368
135 Cursor = crHSplit
136 Beveled = True
137 OnCanResize = Splitter4CanResize
138 end
139 object Panel1: TPanel
140 Left = 1
141 Top = 1
142 Width = 441
143 Height = 24
144 Align = alTop
145 BevelOuter = bvNone
146 Caption = 'Component Selection(s)'
147 TabOrder = 0
148 end
149 object ORListBox2: TORListBox
150 Left = 26
151 Top = 25
152 Width = 193
153 Height = 368
154 Align = alLeft
155 DragMode = dmAutomatic
156 ItemHeight = 13
157 ParentShowHint = False
158 ShowHint = True
159 TabOrder = 2
160 OnClick = ORListBox2Click
161 OnDblClick = btnRemoveComponentClick
162 OnDragDrop = ORListBox2DragDrop
163 OnDragOver = ORListBox2DragOver
164 OnEndDrag = ORListBox2EndDrag
165 Caption = 'Selected Components'
166 ItemTipColor = clWindow
167 LongList = False
168 Pieces = '2'
169 end
170 object Panel6: TPanel
171 Left = 1
172 Top = 25
173 Width = 25
174 Height = 368
175 Align = alLeft
176 BevelOuter = bvNone
177 TabOrder = 1
178 object btnRemoveComponent: TButton
179 Left = 4
180 Top = 30
181 Width = 17
182 Height = 22
183 Caption = '<'
184 TabOrder = 1
185 OnClick = btnRemoveComponentClick
186 end
187 object btnRemoveAllComponents: TButton
188 Left = 4
189 Top = 55
190 Width = 17
191 Height = 22
192 Caption = '<<'
193 TabOrder = 2
194 OnClick = btnRemoveAllComponentsClick
195 end
196 object btnAddComponent: TButton
197 Left = 4
198 Top = 5
199 Width = 17
200 Height = 22
201 Caption = '>'
202 TabOrder = 0
203 OnClick = btnAddComponentClick
204 end
205 end
206 object Panel7: TPanel
207 Left = 224
208 Top = 25
209 Width = 218
210 Height = 368
211 Align = alClient
212 BevelOuter = bvNone
213 TabOrder = 3
214 object lblHeaderName: TLabel
215 Left = 30
216 Top = 8
217 Width = 69
218 Height = 13
219 Caption = 'Header Name:'
220 Enabled = False
221 end
222 object lblOccuranceLimit: TLabel
223 Left = 30
224 Top = 48
225 Width = 83
226 Height = 13
227 Caption = 'Occurrence Limit:'
228 Enabled = False
229 end
230 object lblTimeLimit: TLabel
231 Left = 153
232 Top = 48
233 Width = 50
234 Height = 13
235 Caption = 'Time Limit:'
236 Enabled = False
237 end
238 object lblItems: TLabel
239 Left = 30
240 Top = 184
241 Width = 49
242 Height = 13
243 Caption = 'Sub-items:'
244 Enabled = False
245 end
246 object pnl5Button: TKeyClickPanel
247 Left = 0
248 Top = 90
249 Width = 17
250 Height = 24
251 Caption = 'Display selected component earlier'
252 TabOrder = 0
253 TabStop = True
254 OnClick = SpeedButton5Click
255 OnEnter = pnl5ButtonEnter
256 OnExit = pnl5ButtonExit
257 object SpeedButton5: TSpeedButton
258 Left = 0
259 Top = 1
260 Width = 17
261 Height = 22
262 Enabled = False
263 Glyph.Data = {
264 76010000424D7601000000000000760000002800000020000000100000000100
265 0400000000000001000000000000000000001000000010000000000000000000
266 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
267 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
268 3333333333777F3333333333330F033333333333337F7F3333333333330F0333
269 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333
270 33333333337F7F3333333333330F033333333333FF7F7FFFF3333330000F0000
271 3333333777737777F3333330FFFFFFF0333333373F333337333333330FFFFF03
272 333333337F33337F333333330FFFFF033333333373F333733333333330FFF033
273 3333333337F337F33333333330FFF03333333333373F373333333333330F0333
274 33333333337F7F3333333333330F033333333333337373333333333333303333
275 333333333337F333333333333330333333333333333733333333}
276 NumGlyphs = 2
277 OnClick = SpeedButton5Click
278 end
279 end
280 object pnl6Button: TKeyClickPanel
281 Left = 0
282 Top = 115
283 Width = 17
284 Height = 24
285 BevelOuter = bvNone
286 Caption = 'Display selected component later'
287 TabOrder = 1
288 TabStop = True
289 OnClick = SpeedButton6Click
290 OnEnter = pnl5ButtonEnter
291 OnExit = pnl5ButtonExit
292 object SpeedButton6: TSpeedButton
293 Left = 0
294 Top = 1
295 Width = 17
296 Height = 22
297 Enabled = False
298 Glyph.Data = {
299 76010000424D7601000000000000760000002800000020000000100000000100
300 0400000000000001000000000000000000001000000010000000000000000000
301 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
302 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
303 333333333337F33333333333333033333333333333373F3333333333330F0333
304 33333333337F7F3333333333330F033333333333337373F33333333330FFF033
305 3333333337F337F33333333330FFF033333333333733373F333333330FFFFF03
306 333333337F33337F333333330FFFFF033333333373333373F3333330FFFFFFF0
307 33333337FFFF3FF7F3333330000F000033333337777F777733333333330F0333
308 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333
309 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333
310 33333333337F7F33333333333300033333333333337773333333}
311 NumGlyphs = 2
312 OnClick = SpeedButton6Click
313 end
314 end
315 object edtHeaderName: TCaptionEdit
316 Left = 24
317 Top = 24
318 Width = 189
319 Height = 21
320 Enabled = False
321 TabOrder = 2
322 OnExit = edtHeaderNameExit
323 Caption = 'Header Name'
324 end
325 object edtOccuranceLimit: TCaptionEdit
326 Left = 24
327 Top = 64
328 Width = 79
329 Height = 21
330 Enabled = False
331 TabOrder = 3
332 OnExit = edtOccuranceLimitExit
333 Caption = 'Occurance Limit'
334 end
335 object cboTimeLimit: TCaptionComboBox
336 Left = 150
337 Top = 64
338 Width = 63
339 Height = 21
340 ItemHeight = 13
341 TabOrder = 4
342 OnExit = cboTimeLimitExit
343 Items.Strings = (
344 '1D'
345 '2D'
346 '3D'
347 '4D'
348 '5D'
349 '6D'
350 '1W'
351 '2W'
352 '3W'
353 '4W'
354 '1M'
355 '2M'
356 '3M'
357 '4M'
358 '5M'
359 '6M'
360 '7M'
361 '8M'
362 '9M'
363 '10M'
364 '11M'
365 '12M'
366 '1Y'
367 '2Y'
368 '3Y'
369 '4Y'
370 '5Y'
371 '6Y'
372 '7Y'
373 '8Y'
374 '9Y'
375 '10Y'
376 'No Limit')
377 Caption = 'Time Limit'
378 end
379 object gpbDisplay: TGroupBox
380 Left = 24
381 Top = 88
382 Width = 189
383 Height = 89
384 Enabled = False
385 TabOrder = 5
386 object lblICD: TLabel
387 Left = 24
388 Top = 48
389 Width = 82
390 Height = 13
391 Caption = 'ICD Text Display:'
392 Enabled = False
393 end
394 object ckbHospitalLocation: TCheckBox
395 Left = 24
396 Top = 16
397 Width = 153
398 Height = 17
399 Caption = 'Display Hospital Location'
400 Enabled = False
401 TabOrder = 0
402 OnExit = ckbHospitalLocationExit
403 end
404 object ckbProviderNarrative: TCheckBox
405 Left = 24
406 Top = 32
407 Width = 153
408 Height = 17
409 Caption = 'Display Provider Narrative'
410 Enabled = False
411 TabOrder = 1
412 OnExit = ckbProviderNarrativeExit
413 end
414 object cboICD: TCaptionComboBox
415 Left = 24
416 Top = 64
417 Width = 121
418 Height = 21
419 Enabled = False
420 ItemHeight = 13
421 TabOrder = 2
422 OnExit = cboICDExit
423 Items.Strings = (
424 'Long text'
425 'Short text'
426 'Code only'
427 'Text only'
428 'None')
429 Caption = 'ICD Text Display'
430 end
431 end
432 object ORListBox1: TORListBox
433 Left = 24
434 Top = 200
435 Width = 185
436 Height = 149
437 Enabled = False
438 ItemHeight = 13
439 ParentShowHint = False
440 ShowHint = True
441 TabOrder = 6
442 Caption = 'Sub-items'
443 ItemTipColor = clWindow
444 LongList = False
445 Pieces = '2'
446 end
447 object btnEditSubitems: TButton
448 Left = 120
449 Top = 352
450 Width = 89
451 Height = 21
452 Caption = 'Edit Sub-items'
453 Enabled = False
454 TabOrder = 7
455 OnClick = btnEditSubitemsClick
456 end
457 end
458 end
459 object Timer1: TTimer
460 Enabled = False
461 Interval = 100
462 OnTimer = Timer1Timer
463 Left = 591
464 Top = 6
465 end
466end
Note: See TracBrowser for help on using the repository browser.