source: cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.dfm@ 470

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 12.7 KB
RevLine 
[453]1object frmPtDemoEdit: TfrmPtDemoEdit
2 Left = 286
3 Top = 150
4 Width = 594
5 Height = 502
6 Caption = 'Edit Patient Demographics'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'MS Sans Serif'
12 Font.Style = []
13 OldCreateOrder = False
14 Position = poScreenCenter
15 OnCreate = FormCreate
16 OnDestroy = FormDestroy
17 OnShow = FormShow
18 DesignSize = (
19 586
20 468)
21 PixelsPerInch = 96
22 TextHeight = 13
23 object OKBtn: TButton
24 Left = 296
25 Top = 435
26 Width = 75
27 Height = 25
28 Anchors = [akRight, akBottom]
29 Caption = '&OK'
30 ModalResult = 1
31 TabOrder = 0
32 OnClick = OKBtnClick
33 end
34 object CancelBtn: TButton
35 Left = 488
36 Top = 435
37 Width = 75
38 Height = 25
39 Anchors = [akRight, akBottom]
40 Caption = '&Cancel'
41 TabOrder = 2
42 OnClick = CancelBtnClick
43 end
44 object ApplyBtn: TButton
45 Left = 376
46 Top = 435
47 Width = 107
48 Height = 25
49 Anchors = [akRight, akBottom]
50 Caption = '&Apply Changes'
51 Enabled = False
52 TabOrder = 1
53 OnClick = ApplyBtnClick
54 end
55 object PageControl: TPageControl
56 Left = 0
57 Top = 0
58 Width = 586
59 Height = 428
60 ActivePage = DemoTabSheet
61 Align = alTop
62 Anchors = [akLeft, akTop, akRight, akBottom]
63 TabOrder = 3
64 object DemoTabSheet: TTabSheet
65 Caption = 'Demographics'
66 DesignSize = (
67 578
68 400)
69 object LNameLabel: TLabel
70 Left = 27
71 Top = 32
72 Width = 57
73 Height = 13
74 Caption = 'Family/Last:'
75 end
76 object FNameLabel: TLabel
77 Left = 29
78 Top = 56
79 Width = 55
80 Height = 13
81 Caption = 'Given/First:'
82 end
83 object MNameLabel: TLabel
84 Left = 50
85 Top = 80
86 Width = 34
87 Height = 13
88 Caption = 'Middle:'
89 end
90 object CombinedNameLabel: TLabel
91 Left = 56
92 Top = 8
93 Width = 28
94 Height = 13
95 Caption = 'Name'
96 end
97 object PrefixLabel: TLabel
98 Left = 289
99 Top = 136
100 Width = 26
101 Height = 13
102 Anchors = [akTop, akRight]
103 Caption = 'Prefix'
104 Visible = False
105 end
106 object SuffixLabel: TLabel
107 Left = 58
108 Top = 104
109 Width = 26
110 Height = 13
111 Anchors = [akTop, akRight]
112 Caption = 'Suffix'
113 end
114 object DOBLabel: TLabel
115 Left = 25
116 Top = 128
117 Width = 59
118 Height = 13
119 Anchors = [akTop, akRight]
120 Caption = 'Date of Birth'
121 end
122 object SSNumLabel: TLabel
123 Left = 5
124 Top = 152
125 Width = 79
126 Height = 13
127 Anchors = [akTop, akRight]
128 Caption = 'Social Sec Num.'
129 end
130 object SexLabel: TLabel
131 Left = 66
132 Top = 176
133 Width = 18
134 Height = 13
135 Caption = 'Sex'
136 end
137 object DegreeLabel: TLabel
138 Left = 288
139 Top = 160
140 Width = 35
141 Height = 13
142 Anchors = [akTop, akRight]
143 Caption = 'Degree'
144 Visible = False
145 end
146 object CombinedNameEdit: TEdit
147 Left = 95
148 Top = 8
149 Width = 165
150 Height = 21
151 Anchors = [akLeft, akTop, akRight]
152 TabOrder = 0
153 OnChange = CombinedNameEditChange
154 end
155 object LNameEdit: TEdit
156 Left = 95
157 Top = 32
158 Width = 165
159 Height = 21
160 Anchors = [akLeft, akTop, akRight]
161 TabOrder = 1
162 OnChange = LNameEditChange
163 end
164 object FNameEdit: TEdit
165 Left = 95
166 Top = 56
167 Width = 165
168 Height = 21
169 Anchors = [akLeft, akTop, akRight]
170 TabOrder = 2
171 OnChange = FNameEditChange
172 end
173 object MNameEdit: TEdit
174 Left = 95
175 Top = 80
176 Width = 165
177 Height = 21
178 Anchors = [akLeft, akTop, akRight]
179 TabOrder = 3
180 OnChange = MNameEditChange
181 end
182 object PrefixEdit: TEdit
183 Left = 325
184 Top = 136
185 Width = 135
186 Height = 21
187 Anchors = [akTop, akRight]
188 TabOrder = 8
189 Visible = False
190 OnChange = PrefixEditChange
191 end
192 object SuffixEdit: TEdit
193 Left = 95
194 Top = 104
195 Width = 165
196 Height = 21
197 Anchors = [akTop, akRight]
198 TabOrder = 4
199 OnChange = SuffixEditChange
200 end
201 object DOBEdit: TEdit
202 Left = 95
203 Top = 128
204 Width = 165
205 Height = 21
206 Anchors = [akLeft, akTop, akRight]
207 TabOrder = 5
208 OnChange = DOBEditChange
209 end
210 object SSNumEdit: TEdit
211 Left = 95
212 Top = 152
213 Width = 165
214 Height = 21
215 Anchors = [akLeft, akTop, akRight]
216 TabOrder = 6
217 OnChange = SSNumEditChange
218 end
219 object AliasGroupBox: TGroupBox
220 Left = 272
221 Top = 8
222 Width = 297
223 Height = 121
224 Anchors = [akTop, akRight]
225 Caption = 'Alias'
226 TabOrder = 10
227 TabStop = True
228 object AliasNameLabel: TLabel
229 Left = 16
230 Top = 48
231 Width = 53
232 Height = 13
233 Caption = 'Alias Name'
234 end
235 object AliasSSNumLabel: TLabel
236 Left = 8
237 Top = 80
238 Width = 64
239 Height = 13
240 Caption = 'Alias SS Num'
241 end
242 object AliasComboBox: TComboBox
243 Left = 8
244 Top = 16
245 Width = 161
246 Height = 21
247 Style = csDropDownList
248 ItemHeight = 13
249 TabOrder = 0
250 OnChange = AliasComboBoxChange
251 Items.Strings = (
252 'Stuff here...'
253 '<Add New Alias>')
254 end
255 object AliasNameEdit: TEdit
256 Left = 80
257 Top = 48
258 Width = 201
259 Height = 21
260 Color = clInactiveBorder
261 Enabled = False
262 TabOrder = 1
263 OnChange = AliasNameEditChange
264 end
265 object AliasSSNEdit: TEdit
266 Left = 80
267 Top = 80
268 Width = 201
269 Height = 21
270 Color = clInactiveBorder
271 Enabled = False
272 TabOrder = 2
273 OnChange = AliasSSNEditChange
274 end
275 object DelAliasBtn: TButton
276 Left = 227
277 Top = 16
278 Width = 54
279 Height = 22
280 Caption = 'Delete'
281 TabOrder = 3
282 OnClick = DelAliasBtnClick
283 end
284 object AddAliasBtn: TButton
285 Left = 176
286 Top = 16
287 Width = 41
288 Height = 22
289 Caption = 'Add'
290 TabOrder = 4
291 OnClick = AddAliasBtnClick
292 end
293 end
294 object AddressGroupBox: TGroupBox
295 Left = 8
296 Top = 208
297 Width = 569
298 Height = 185
299 Caption = 'Address'
300 TabOrder = 11
301 object CityLabel: TLabel
302 Left = 172
303 Top = 96
304 Width = 17
305 Height = 13
306 Caption = 'City'
307 end
308 object Zip4Label: TLabel
309 Left = 162
310 Top = 120
311 Width = 27
312 Height = 13
313 Caption = 'Zip+4'
314 end
315 object StartingDateLabel: TLabel
316 Left = 104
317 Top = 152
318 Width = 62
319 Height = 13
320 Caption = 'Starting Date'
321 Visible = False
322 end
323 object EndingDateLabel: TLabel
324 Left = 328
325 Top = 152
326 Width = 59
327 Height = 13
328 Caption = 'Ending Date'
329 Visible = False
330 end
331 object AddressRGrp: TRadioGroup
332 Left = 8
333 Top = 24
334 Width = 153
335 Height = 81
336 Caption = 'Address to Edit'
337 ItemIndex = 0
338 Items.Strings = (
339 'Permanent Address'
340 'Temporary Address'
341 'Confidential Address')
342 TabOrder = 0
343 OnClick = AddressRGrpClick
344 end
345 object AddressLine1Edit: TEdit
346 Left = 176
347 Top = 16
348 Width = 225
349 Height = 21
350 TabOrder = 1
351 OnChange = AddressLine1EditChange
352 end
353 object AddressLine2Edit: TEdit
354 Left = 176
355 Top = 38
356 Width = 225
357 Height = 21
358 TabOrder = 2
359 OnChange = AddressLine2EditChange
360 end
361 object AddressLine3Edit: TEdit
362 Left = 176
363 Top = 60
364 Width = 225
365 Height = 21
366 TabOrder = 3
367 OnChange = AddressLine3EditChange
368 end
369 object CityEdit: TEdit
370 Left = 200
371 Top = 96
372 Width = 121
373 Height = 21
374 TabOrder = 4
375 OnChange = CityEditChange
376 end
377 object StateComboBox: TComboBox
378 Left = 328
379 Top = 96
380 Width = 73
381 Height = 21
382 ItemHeight = 13
383 TabOrder = 6
384 Text = '<State>'
385 OnChange = StateComboBoxChange
386 Items.Strings = (
387 'AK'
388 'AL'
389 'AR'
390 'AZ'
391 'CA'
392 'CO'
393 'CT'
394 'DC'
395 'DE'
396 'FL'
397 'GA'
398 'HI'
399 'IA'
400 'ID'
401 'IL'
402 'IN'
403 'KS'
404 'KY'
405 'LA'
406 'MA'
407 'MD'
408 'ME'
409 'MI'
410 'MN'
411 'MO'
412 'MS'
413 'MT'
414 'NC'
415 'ND'
416 'NE'
417 'NH'
418 'NJ'
419 'NM'
420 'NV'
421 'NY'
422 'OH'
423 'OK'
424 'OR'
425 'PA'
426 'RI'
427 'SC'
428 'SD'
429 'TN'
430 'TX'
431 'UT'
432 'VA'
433 'VT'
434 'WA'
435 'WI'
436 'WV'
437 'WY')
438 end
439 object Zip4Edit: TEdit
440 Left = 200
441 Top = 120
442 Width = 121
443 Height = 21
444 TabOrder = 5
445 OnChange = Zip4EditChange
446 end
447 object BadAddressCB: TCheckBox
448 Left = 16
449 Top = 151
450 Width = 89
451 Height = 17
452 Caption = 'Bad Address'
453 TabOrder = 7
454 OnClick = BadAddressCBClick
455 end
456 object TempActiveCB: TCheckBox
457 Left = 16
458 Top = 106
459 Width = 129
460 Height = 17
461 Caption = 'Temp Address Active'
462 TabOrder = 8
463 OnClick = TempActiveCBClick
464 end
465 object PhoneNumGrp: TRadioGroup
466 Left = 416
467 Top = 16
468 Width = 137
469 Height = 89
470 Caption = 'Phone Number'
471 ItemIndex = 0
472 Items.Strings = (
473 'Residence'
474 'Work'
475 'Cell'
476 'Temporary')
477 TabOrder = 9
478 OnClick = PhoneNumGrpClick
479 end
480 object PhoneNumEdit: TEdit
481 Left = 416
482 Top = 120
483 Width = 137
484 Height = 21
485 TabOrder = 10
486 Text = '<Phone Number>'
487 OnChange = PhoneNumEditChange
488 end
489 object StartingDateEdit: TEdit
490 Left = 176
491 Top = 152
492 Width = 145
493 Height = 21
494 TabOrder = 11
495 Visible = False
496 OnChange = StartingDateEditChange
497 end
498 object EndingDateEdit: TEdit
499 Left = 408
500 Top = 152
501 Width = 145
502 Height = 21
503 TabOrder = 12
504 Visible = False
505 OnChange = EndingDateEditChange
506 end
507 object ConfActiveCB: TCheckBox
508 Left = 16
509 Top = 129
510 Width = 129
511 Height = 17
512 Caption = 'Confidential Active'
513 TabOrder = 13
514 Visible = False
515 OnClick = ConfActiveCBClick
516 end
517 end
518 object SexComboBox: TComboBox
519 Left = 95
520 Top = 176
521 Width = 165
522 Height = 21
523 Anchors = [akLeft, akTop, akRight]
524 ItemHeight = 13
525 TabOrder = 7
526 Text = '<Sex>'
527 OnChange = SexComboBoxChange
528 Items.Strings = (
529 'MALE'
530 'FEMALE')
531 end
532 object DegreeEdit: TEdit
533 Left = 325
534 Top = 160
535 Width = 136
536 Height = 21
537 Anchors = [akTop, akRight]
538 TabOrder = 9
539 Visible = False
540 OnChange = DegreeEditChange
541 end
542 end
543 end
544end
Note: See TracBrowser for help on using the repository browser.