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

Last change on this file since 1706 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
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 ExplicitWidth = 600
10 ExplicitHeight = 465
11 PixelsPerInch = 96
12 TextHeight = 13
13 inherited btnOK: TBitBtn
14 Left = 436
15 Top = 414
16 TabOrder = 3
17 ExplicitLeft = 474
18 ExplicitTop = 459
19 end
20 object pnlTop: TPanel [1]
21 Left = 0
22 Top = 0
23 Width = 592
24 Height = 105
25 Align = alTop
26 BevelOuter = bvNone
27 TabOrder = 0
28 ExplicitWidth = 630
29 object splLeft: TSplitter
30 Left = 145
31 Top = 0
32 Height = 105
33 ExplicitLeft = 154
34 ExplicitTop = 7
35 ExplicitHeight = 145
36 end
37 object splRight: TSplitter
38 Left = 361
39 Top = 0
40 Height = 105
41 ExplicitLeft = 634
42 end
43 object pnlLeft: TPanel
44 Left = 0
45 Top = 0
46 Width = 145
47 Height = 105
48 Align = alLeft
49 BevelOuter = bvNone
50 TabOrder = 0
51 ExplicitHeight = 145
52 object lblVTypeSection: TLabel
53 Left = 0
54 Top = 0
55 Width = 145
56 Height = 13
57 Align = alTop
58 Caption = 'Type of Visit'
59 ExplicitWidth = 58
60 end
61 object lstVTypeSection: TORListBox
62 Tag = 10
63 Left = 0
64 Top = 13
65 Width = 145
66 Height = 92
67 Align = alClient
68 ItemHeight = 13
69 ParentShowHint = False
70 ShowHint = True
71 TabOrder = 0
72 OnClick = lstVTypeSectionClick
73 Caption = 'Type of Visit'
74 ItemTipColor = clWindow
75 LongList = False
76 Pieces = '3'
77 CheckEntireLine = True
78 end
79 end
80 object pnlModifiers: TPanel
81 Left = 364
82 Top = 0
83 Width = 228
84 Height = 105
85 Align = alClient
86 BevelOuter = bvNone
87 TabOrder = 2
88 ExplicitLeft = 431
89 ExplicitWidth = 199
90 ExplicitHeight = 145
91 object lblMod: TLabel
92 Left = 0
93 Top = 0
94 Width = 228
95 Height = 13
96 Hint = 'Modifiers'
97 Align = alTop
98 Caption = 'Modifiers'
99 ParentShowHint = False
100 ShowHint = True
101 ExplicitWidth = 42
102 end
103 object lbMods: TORListBox
104 Left = 0
105 Top = 13
106 Width = 228
107 Height = 92
108 Style = lbOwnerDrawFixed
109 Align = alClient
110 Font.Charset = DEFAULT_CHARSET
111 Font.Color = clWindowText
112 Font.Height = -11
113 Font.Name = 'MS Sans Serif'
114 Font.Style = []
115 ItemHeight = 14
116 ParentFont = False
117 ParentShowHint = False
118 ShowHint = True
119 TabOrder = 0
120 Caption = 'Modifiers'
121 ItemTipColor = clWindow
122 LongList = False
123 Pieces = '2,3'
124 TabPosInPixels = True
125 CheckBoxes = True
126 CheckEntireLine = True
127 OnClickCheck = lbModsClickCheck
128 ExplicitWidth = 199
129 ExplicitHeight = 132
130 end
131 end
132 object pnlSection: TPanel
133 Left = 148
134 Top = 0
135 Width = 213
136 Height = 105
137 Align = alLeft
138 BevelOuter = bvNone
139 Caption = 'pnlSection'
140 TabOrder = 1
141 object lblVType: TLabel
142 Left = 0
143 Top = 0
144 Width = 213
145 Height = 13
146 Align = alTop
147 Caption = 'Section Name'
148 ExplicitWidth = 67
149 end
150 object lbxVisits: TORListBox
151 Tag = 10
152 Left = 0
153 Top = 13
154 Width = 213
155 Height = 92
156 Style = lbOwnerDrawFixed
157 Align = alClient
158 ItemHeight = 16
159 ParentShowHint = False
160 ShowHint = True
161 TabOrder = 0
162 OnClick = lbxVisitsClick
163 Caption = 'Section Name'
164 ItemTipColor = clWindow
165 LongList = False
166 Pieces = '3,4,5'
167 TabPosInPixels = True
168 CheckBoxes = True
169 CheckEntireLine = True
170 OnClickCheck = lbxVisitsClickCheck
171 ExplicitLeft = -3
172 ExplicitTop = 7
173 ExplicitWidth = 281
174 end
175 end
176 end
177 object pnlMiddle: TPanel [2]
178 Left = 0
179 Top = 105
180 Width = 592
181 Height = 164
182 Align = alTop
183 BevelOuter = bvNone
184 TabOrder = 1
185 ExplicitTop = 145
186 ExplicitWidth = 630
187 inline fraVisitRelated: TfraVisitRelated
188 Left = 384
189 Top = 0
190 Width = 208
191 Height = 164
192 Align = alRight
193 TabOrder = 1
194 ExplicitLeft = 422
195 ExplicitWidth = 208
196 ExplicitHeight = 164
197 inherited gbVisitRelatedTo: TGroupBox
198 Width = 208
199 Height = 164
200 ExplicitWidth = 208
201 ExplicitHeight = 164
202 inherited chkMSTYes: TCheckBox
203 Top = 127
204 ExplicitTop = 127
205 end
206 inherited chkMSTNo: TCheckBox
207 Top = 127
208 ExplicitTop = 127
209 end
210 inherited chkHNCYes: TCheckBox
211 Top = 143
212 ExplicitTop = 143
213 end
214 inherited chkHNCNo: TCheckBox
215 Top = 142
216 Width = 150
217 Height = 18
218 Caption = 'Head and/or Neck Cancer No'
219 ExplicitTop = 142
220 ExplicitWidth = 150
221 ExplicitHeight = 18
222 end
223 end
224 end
225 object pnlSC: TPanel
226 Left = 0
227 Top = 0
228 Width = 384
229 Height = 164
230 Align = alClient
231 BevelOuter = bvNone
232 TabOrder = 0
233 ExplicitWidth = 422
234 object lblSCDisplay: TLabel
235 Left = 0
236 Top = 0
237 Width = 384
238 Height = 13
239 Align = alTop
240 Caption = 'Service Connection && Rated Disabilities'
241 ExplicitWidth = 186
242 end
243 object memSCDisplay: TCaptionMemo
244 Left = 0
245 Top = 13
246 Width = 384
247 Height = 151
248 Align = alClient
249 Color = clBtnFace
250 Lines.Strings = (
251 '')
252 ReadOnly = True
253 ScrollBars = ssVertical
254 TabOrder = 0
255 OnEnter = memSCDisplayEnter
256 Caption = 'Service Connection && Rated Disabilities'
257 ExplicitWidth = 422
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.