source: cprs/trunk/CPRS-Chart/Encounter/fVisitType.dfm@ 1166

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

Upgrade to version 27
File size: 12.7 KB
Line 
1inherited frmVisitType: TfrmVisitType
2 Left = 260
3 Caption = 'Encounter VisitType'
4 ClientHeight = 438
5 ClientWidth = 592
6 Constraints.MinHeight = 465
7 Constraints.MinWidth = 600
8 OnCloseQuery = FormCloseQuery
9 ExplicitLeft = 260
10 ExplicitWidth = 600
11 ExplicitHeight = 472
12 PixelsPerInch = 96
13 TextHeight = 13
14 inherited btnOK: TBitBtn
15 Left = 436
16 Top = 414
17 TabOrder = 3
18 ExplicitLeft = 474
19 ExplicitTop = 459
20 end
21 object pnlTop: TPanel [1]
22 Left = 0
23 Top = 0
24 Width = 592
25 Height = 105
26 Align = alTop
27 BevelOuter = bvNone
28 TabOrder = 0
29 ExplicitWidth = 630
30 object splLeft: TSplitter
31 Left = 145
32 Top = 0
33 Height = 105
34 ExplicitLeft = 154
35 ExplicitTop = 7
36 ExplicitHeight = 145
37 end
38 object splRight: TSplitter
39 Left = 361
40 Top = 0
41 Height = 105
42 ExplicitLeft = 634
43 end
44 object pnlLeft: TPanel
45 Left = 0
46 Top = 0
47 Width = 145
48 Height = 105
49 Align = alLeft
50 BevelOuter = bvNone
51 TabOrder = 0
52 ExplicitHeight = 145
53 object lblVTypeSection: TLabel
54 Left = 0
55 Top = 0
56 Width = 145
57 Height = 13
58 Align = alTop
59 Caption = 'Type of Visit'
60 ExplicitWidth = 58
61 end
62 object lstVTypeSection: TORListBox
63 Tag = 10
64 Left = 0
65 Top = 13
66 Width = 145
67 Height = 92
68 Align = alClient
69 ItemHeight = 13
70 ParentShowHint = False
71 ShowHint = True
72 TabOrder = 0
73 OnClick = lstVTypeSectionClick
74 Caption = 'Type of Visit'
75 ItemTipColor = clWindow
76 LongList = False
77 Pieces = '3'
78 CheckEntireLine = True
79 end
80 end
81 object pnlModifiers: TPanel
82 Left = 364
83 Top = 0
84 Width = 228
85 Height = 105
86 Align = alClient
87 BevelOuter = bvNone
88 TabOrder = 2
89 ExplicitLeft = 431
90 ExplicitWidth = 199
91 ExplicitHeight = 145
92 object lblMod: TLabel
93 Left = 0
94 Top = 0
95 Width = 228
96 Height = 13
97 Hint = 'Modifiers'
98 Align = alTop
99 Caption = 'Modifiers'
100 ParentShowHint = False
101 ShowHint = True
102 ExplicitWidth = 42
103 end
104 object lbMods: TORListBox
105 Left = 0
106 Top = 13
107 Width = 228
108 Height = 92
109 Style = lbOwnerDrawFixed
110 Align = alClient
111 Font.Charset = DEFAULT_CHARSET
112 Font.Color = clWindowText
113 Font.Height = -11
114 Font.Name = 'MS Sans Serif'
115 Font.Style = []
116 ItemHeight = 14
117 ParentFont = False
118 ParentShowHint = False
119 ShowHint = True
120 TabOrder = 0
121 Caption = 'Modifiers'
122 ItemTipColor = clWindow
123 LongList = False
124 Pieces = '2,3'
125 TabPosInPixels = True
126 CheckBoxes = True
127 CheckEntireLine = True
128 OnClickCheck = lbModsClickCheck
129 ExplicitWidth = 199
130 ExplicitHeight = 132
131 end
132 end
133 object pnlSection: TPanel
134 Left = 148
135 Top = 0
136 Width = 213
137 Height = 105
138 Align = alLeft
139 BevelOuter = bvNone
140 Caption = 'pnlSection'
141 TabOrder = 1
142 object lblVType: TLabel
143 Left = 0
144 Top = 0
145 Width = 213
146 Height = 13
147 Align = alTop
148 Caption = 'Section Name'
149 ExplicitWidth = 67
150 end
151 object lbxVisits: TORListBox
152 Tag = 10
153 Left = 0
154 Top = 13
155 Width = 213
156 Height = 92
157 Style = lbOwnerDrawFixed
158 Align = alClient
159 ItemHeight = 16
160 ParentShowHint = False
161 ShowHint = True
162 TabOrder = 0
163 OnClick = lbxVisitsClick
164 Caption = 'Section Name'
165 ItemTipColor = clWindow
166 LongList = False
167 Pieces = '3,4,5'
168 TabPosInPixels = True
169 CheckBoxes = True
170 CheckEntireLine = True
171 OnClickCheck = lbxVisitsClickCheck
172 ExplicitLeft = -3
173 ExplicitTop = 7
174 ExplicitWidth = 281
175 end
176 end
177 end
178 object pnlMiddle: TPanel [2]
179 Left = 0
180 Top = 105
181 Width = 592
182 Height = 164
183 Align = alTop
184 BevelOuter = bvNone
185 TabOrder = 1
186 ExplicitTop = 145
187 ExplicitWidth = 630
188 inline fraVisitRelated: TfraVisitRelated
189 Left = 384
190 Top = 0
191 Width = 208
192 Height = 164
193 Align = alRight
194 TabOrder = 1
195 ExplicitLeft = 384
196 ExplicitWidth = 208
197 ExplicitHeight = 164
198 inherited gbVisitRelatedTo: TGroupBox
199 Width = 208
200 Height = 164
201 ExplicitWidth = 208
202 ExplicitHeight = 164
203 inherited chkMSTYes: TCheckBox
204 Top = 127
205 ExplicitTop = 127
206 end
207 inherited chkMSTNo: TCheckBox
208 Top = 127
209 ExplicitTop = 127
210 end
211 inherited chkHNCYes: TCheckBox
212 Top = 143
213 ExplicitTop = 143
214 end
215 inherited chkHNCNo: TCheckBox
216 Top = 142
217 Width = 150
218 Height = 18
219 Caption = 'Head and/or Neck Cancer No'
220 ExplicitTop = 142
221 ExplicitWidth = 150
222 ExplicitHeight = 18
223 end
224 end
225 end
226 object pnlSC: TPanel
227 Left = 0
228 Top = 0
229 Width = 384
230 Height = 164
231 Align = alClient
232 BevelOuter = bvNone
233 TabOrder = 0
234 ExplicitWidth = 422
235 object lblSCDisplay: TLabel
236 Left = 0
237 Top = 0
238 Width = 384
239 Height = 13
240 Align = alTop
241 Caption = 'Service Connection && Rated Disabilities'
242 ExplicitWidth = 186
243 end
244 object memSCDisplay: TCaptionMemo
245 Left = 0
246 Top = 13
247 Width = 384
248 Height = 151
249 Align = alClient
250 Color = clBtnFace
251 Lines.Strings = (
252 '')
253 ReadOnly = True
254 ScrollBars = ssVertical
255 TabOrder = 0
256 OnEnter = memSCDisplayEnter
257 Caption = 'Service Connection && Rated Disabilities'
258 end
259 end
260 end
261 object pnlBottom: TPanel [3]
262 Left = 0
263 Top = 269
264 Width = 592
265 Height = 141
266 Align = alTop
267 BevelOuter = bvNone
268 TabOrder = 2
269 ExplicitTop = 309
270 ExplicitWidth = 630
271 object btnAdd: TButton
272 Left = 260
273 Top = 35
274 Width = 75
275 Height = 21
276 Caption = 'Add'
277 TabOrder = 1
278 OnClick = btnAddClick
279 end
280 object btnDelete: TButton
281 Left = 260
282 Top = 72
283 Width = 75
284 Height = 21
285 Caption = 'Remove'
286 TabOrder = 2
287 OnClick = btnDeleteClick
288 end
289 object btnPrimary: TButton
290 Left = 260
291 Top = 112
292 Width = 75
293 Height = 21
294 Caption = 'Primary'
295 TabOrder = 3
296 OnClick = btnPrimaryClick
297 end
298 object pnlBottomLeft: TPanel
299 Left = 0
300 Top = 0
301 Width = 240
302 Height = 141
303 Align = alLeft
304 BevelOuter = bvNone
305 TabOrder = 0
306 object lblProvider: TLabel
307 Left = 0
308 Top = 0
309 Width = 240
310 Height = 13
311 Align = alTop
312 Caption = 'Available providers'
313 ExplicitWidth = 89
314 end
315 object cboPtProvider: TORComboBox
316 Left = 0
317 Top = 13
318 Width = 240
319 Height = 128
320 Style = orcsSimple
321 Align = alClient
322 AutoSelect = True
323 Caption = 'Available providers'
324 Color = clWindow
325 DropDownCount = 8
326 ItemHeight = 13
327 ItemTipColor = clWindow
328 ItemTipEnable = True
329 ListItemsOnly = True
330 LongList = True
331 LookupPiece = 2
332 MaxLength = 0
333 Pieces = '2,3'
334 Sorted = False
335 SynonymChars = '<>'
336 TabOrder = 0
337 CheckEntireLine = True
338 OnChange = cboPtProviderChange
339 OnDblClick = cboPtProviderDblClick
340 OnNeedData = cboPtProviderNeedData
341 CharsNeedMatch = 1
342 ExplicitWidth = 260
343 end
344 end
345 object pnlBottomRight: TPanel
346 Left = 352
347 Top = 0
348 Width = 240
349 Height = 141
350 Align = alRight
351 BevelOuter = bvNone
352 TabOrder = 4
353 object lblCurrentProv: TLabel
354 Left = 0
355 Top = 0
356 Width = 240
357 Height = 13
358 Align = alTop
359 Caption = 'Current providers for this encounter'
360 ExplicitWidth = 165
361 end
362 object lbProviders: TORListBox
363 Left = 0
364 Top = 13
365 Width = 240
366 Height = 128
367 Align = alClient
368 ItemHeight = 13
369 ParentShowHint = False
370 ShowHint = True
371 TabOrder = 0
372 OnDblClick = lbProvidersDblClick
373 Caption = 'Current providers for this encounter'
374 ItemTipColor = clWindow
375 LongList = False
376 Pieces = '2'
377 OnChange = lbProvidersChange
378 CheckEntireLine = True
379 ExplicitTop = 11
380 ExplicitWidth = 220
381 end
382 end
383 end
384 inherited btnCancel: TBitBtn
385 Left = 517
386 Top = 414
387 TabOrder = 4
388 ExplicitLeft = 555
389 ExplicitTop = 459
390 end
391 inherited amgrMain: TVA508AccessibilityManager
392 Left = 8
393 Top = 24
394 Data = (
395 (
396 'Component = btnOK'
397 'Status = stsDefault')
398 (
399 'Component = btnCancel'
400 'Status = stsDefault')
401 (
402 'Component = frmVisitType'
403 'Status = stsDefault')
404 (
405 'Component = pnlTop'
406 'Status = stsDefault')
407 (
408 'Component = pnlLeft'
409 'Status = stsDefault')
410 (
411 'Component = lstVTypeSection'
412 'Label = lblVTypeSection'
413 'Status = stsOK')
414 (
415 'Component = pnlMiddle'
416 'Status = stsDefault')
417 (
418 'Component = fraVisitRelated'
419 'Status = stsDefault')
420 (
421 'Component = fraVisitRelated.gbVisitRelatedTo'
422 'Status = stsDefault')
423 (
424 'Component = fraVisitRelated.chkSCYes'
425 'Status = stsDefault')
426 (
427 'Component = fraVisitRelated.chkAOYes'
428 'Status = stsDefault')
429 (
430 'Component = fraVisitRelated.chkIRYes'
431 'Status = stsDefault')
432 (
433 'Component = fraVisitRelated.chkECYes'
434 'Status = stsDefault')
435 (
436 'Component = fraVisitRelated.chkMSTYes'
437 'Status = stsDefault')
438 (
439 'Component = fraVisitRelated.chkMSTNo'
440 'Status = stsDefault')
441 (
442 'Component = fraVisitRelated.chkECNo'
443 'Status = stsDefault')
444 (
445 'Component = fraVisitRelated.chkIRNo'
446 'Status = stsDefault')
447 (
448 'Component = fraVisitRelated.chkAONo'
449 'Status = stsDefault')
450 (
451 'Component = fraVisitRelated.chkSCNo'
452 'Status = stsDefault')
453 (
454 'Component = fraVisitRelated.chkHNCYes'
455 'Status = stsDefault')
456 (
457 'Component = fraVisitRelated.chkHNCNo'
458 'Status = stsDefault')
459 (
460 'Component = fraVisitRelated.chkCVYes'
461 'Status = stsDefault')
462 (
463 'Component = fraVisitRelated.chkCVNo'
464 'Status = stsDefault')
465 (
466 'Component = fraVisitRelated.chkSHDYes'
467 'Status = stsDefault')
468 (
469 'Component = fraVisitRelated.chkSHDNo'
470 'Status = stsDefault')
471 (
472 'Component = fraVisitRelated.lblSCNo'
473 'Status = stsDefault')
474 (
475 'Component = fraVisitRelated.lblSCYes'
476 'Status = stsDefault')
477 (
478 'Component = pnlSC'
479 'Status = stsDefault')
480 (
481 'Component = memSCDisplay'
482 'Label = lblSCDisplay'
483 'Status = stsOK')
484 (
485 'Component = pnlBottom'
486 'Status = stsDefault')
487 (
488 'Component = btnAdd'
489 'Status = stsDefault')
490 (
491 'Component = btnDelete'
492 'Status = stsDefault')
493 (
494 'Component = btnPrimary'
495 'Status = stsDefault')
496 (
497 'Component = pnlBottomLeft'
498 'Status = stsDefault')
499 (
500 'Component = cboPtProvider'
501 'Label = lblProvider'
502 'Status = stsOK')
503 (
504 'Component = pnlBottomRight'
505 'Status = stsDefault')
506 (
507 'Component = lbProviders'
508 'Label = lblCurrentProv'
509 'Status = stsOK')
510 (
511 'Component = pnlModifiers'
512 'Status = stsDefault')
513 (
514 'Component = lbMods'
515 'Label = lblMod'
516 'Status = stsOK')
517 (
518 'Component = pnlSection'
519 'Status = stsDefault')
520 (
521 'Component = lbxVisits'
522 'Label = lblVType'
523 'Status = stsOK'))
524 end
525end
Note: See TracBrowser for help on using the repository browser.