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

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

Supporting EMail demographic
File size: 17.1 KB
RevLine 
[453]1object frmPtDemoEdit: TfrmPtDemoEdit
[496]2 Left = 322
3 Top = 116
[495]4 Width = 684
5 Height = 498
[453]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 = (
[495]19 676
20 464)
[453]21 PixelsPerInch = 96
22 TextHeight = 13
23 object OKBtn: TButton
[495]24 Left = 386
25 Top = 431
[453]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
[495]35 Left = 578
36 Top = 431
[453]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
[495]45 Left = 466
46 Top = 431
[453]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
[495]58 Width = 676
59 Height = 424
[453]60 ActivePage = DemoTabSheet
61 Align = alTop
62 Anchors = [akLeft, akTop, akRight, akBottom]
63 TabOrder = 3
64 object DemoTabSheet: TTabSheet
65 Caption = 'Demographics'
66 DesignSize = (
[495]67 668
68 396)
[453]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
[495]98 Left = 379
[453]99 Top = 136
100 Width = 26
101 Height = 13
102 Anchors = [akTop, akRight]
103 Caption = 'Prefix'
104 end
105 object SuffixLabel: TLabel
[495]106 Left = 148
[453]107 Top = 104
108 Width = 26
109 Height = 13
110 Anchors = [akTop, akRight]
111 Caption = 'Suffix'
112 end
113 object DOBLabel: TLabel
[495]114 Left = 115
[453]115 Top = 128
116 Width = 59
117 Height = 13
118 Anchors = [akTop, akRight]
119 Caption = 'Date of Birth'
120 end
121 object SSNumLabel: TLabel
[495]122 Left = 95
[453]123 Top = 152
124 Width = 79
125 Height = 13
126 Anchors = [akTop, akRight]
127 Caption = 'Social Sec Num.'
128 end
129 object SexLabel: TLabel
[496]130 Left = 62
[453]131 Top = 176
[496]132 Width = 21
[453]133 Height = 13
[496]134 Caption = 'Sex:'
[453]135 end
136 object DegreeLabel: TLabel
[496]137 Left = 505
138 Top = 137
[453]139 Width = 35
140 Height = 13
141 Anchors = [akTop, akRight]
142 Caption = 'Degree'
143 end
[496]144 object Label1: TLabel
145 Left = 58
146 Top = 133
147 Width = 26
148 Height = 13
149 Caption = 'DOB:'
150 end
151 object Label2: TLabel
152 Left = 59
153 Top = 156
154 Width = 25
155 Height = 13
156 Caption = 'SSN:'
157 end
158 object Label3: TLabel
159 Left = 379
160 Top = 172
161 Width = 29
162 Height = 13
163 Caption = 'EMail:'
164 end
[453]165 object CombinedNameEdit: TEdit
166 Left = 95
167 Top = 8
[495]168 Width = 255
[453]169 Height = 21
170 Anchors = [akLeft, akTop, akRight]
171 TabOrder = 0
172 OnChange = CombinedNameEditChange
173 end
174 object LNameEdit: TEdit
175 Left = 95
176 Top = 32
[495]177 Width = 255
[453]178 Height = 21
179 Anchors = [akLeft, akTop, akRight]
180 TabOrder = 1
181 OnChange = LNameEditChange
182 end
183 object FNameEdit: TEdit
184 Left = 95
185 Top = 56
[495]186 Width = 255
[453]187 Height = 21
188 Anchors = [akLeft, akTop, akRight]
189 TabOrder = 2
190 OnChange = FNameEditChange
191 end
192 object MNameEdit: TEdit
193 Left = 95
194 Top = 80
[495]195 Width = 255
[453]196 Height = 21
197 Anchors = [akLeft, akTop, akRight]
198 TabOrder = 3
199 OnChange = MNameEditChange
200 end
201 object PrefixEdit: TEdit
[495]202 Left = 415
[453]203 Top = 136
[496]204 Width = 66
[453]205 Height = 21
206 Anchors = [akTop, akRight]
207 TabOrder = 8
208 OnChange = PrefixEditChange
209 end
210 object SuffixEdit: TEdit
[495]211 Left = 185
[453]212 Top = 104
213 Width = 165
214 Height = 21
215 Anchors = [akTop, akRight]
216 TabOrder = 4
217 OnChange = SuffixEditChange
218 end
219 object DOBEdit: TEdit
220 Left = 95
221 Top = 128
[495]222 Width = 255
[453]223 Height = 21
224 Anchors = [akLeft, akTop, akRight]
225 TabOrder = 5
226 OnChange = DOBEditChange
227 end
228 object SSNumEdit: TEdit
229 Left = 95
230 Top = 152
[495]231 Width = 255
[453]232 Height = 21
233 Anchors = [akLeft, akTop, akRight]
234 TabOrder = 6
235 OnChange = SSNumEditChange
236 end
237 object AliasGroupBox: TGroupBox
[495]238 Left = 362
[453]239 Top = 8
240 Width = 297
241 Height = 121
242 Anchors = [akTop, akRight]
243 Caption = 'Alias'
244 TabOrder = 10
245 TabStop = True
246 object AliasNameLabel: TLabel
247 Left = 16
248 Top = 48
249 Width = 53
250 Height = 13
251 Caption = 'Alias Name'
252 end
253 object AliasSSNumLabel: TLabel
254 Left = 8
255 Top = 80
256 Width = 64
257 Height = 13
258 Caption = 'Alias SS Num'
259 end
260 object AliasComboBox: TComboBox
261 Left = 8
262 Top = 16
263 Width = 161
264 Height = 21
265 Style = csDropDownList
266 ItemHeight = 13
267 TabOrder = 0
268 OnChange = AliasComboBoxChange
269 Items.Strings = (
270 'Stuff here...'
271 '<Add New Alias>')
272 end
273 object AliasNameEdit: TEdit
274 Left = 80
275 Top = 48
276 Width = 201
277 Height = 21
278 Color = clInactiveBorder
279 Enabled = False
280 TabOrder = 1
281 OnChange = AliasNameEditChange
282 end
283 object AliasSSNEdit: TEdit
284 Left = 80
285 Top = 80
286 Width = 201
287 Height = 21
288 Color = clInactiveBorder
289 Enabled = False
290 TabOrder = 2
291 OnChange = AliasSSNEditChange
292 end
293 object DelAliasBtn: TButton
294 Left = 227
295 Top = 16
296 Width = 54
297 Height = 22
298 Caption = 'Delete'
299 TabOrder = 3
300 OnClick = DelAliasBtnClick
301 end
302 object AddAliasBtn: TButton
303 Left = 176
304 Top = 16
305 Width = 41
306 Height = 22
307 Caption = 'Add'
308 TabOrder = 4
309 OnClick = AddAliasBtnClick
310 end
311 end
312 object AddressGroupBox: TGroupBox
313 Left = 8
[495]314 Top = 204
315 Width = 482
[453]316 Height = 185
[495]317 Anchors = [akLeft, akRight, akBottom]
[453]318 Caption = 'Address'
319 TabOrder = 11
[495]320 DesignSize = (
321 482
322 185)
[453]323 object CityLabel: TLabel
324 Left = 172
325 Top = 96
326 Width = 17
327 Height = 13
328 Caption = 'City'
329 end
330 object Zip4Label: TLabel
331 Left = 162
332 Top = 120
333 Width = 27
334 Height = 13
335 Caption = 'Zip+4'
336 end
337 object StartingDateLabel: TLabel
338 Left = 104
339 Top = 152
340 Width = 62
341 Height = 13
342 Caption = 'Starting Date'
343 Visible = False
344 end
345 object EndingDateLabel: TLabel
[495]346 Left = 336
[453]347 Top = 152
[495]348 Width = 33
349 Height = 26
[453]350 Caption = 'Ending Date'
351 Visible = False
[495]352 WordWrap = True
[453]353 end
354 object AddressRGrp: TRadioGroup
355 Left = 8
356 Top = 24
357 Width = 153
358 Height = 81
359 Caption = 'Address to Edit'
360 ItemIndex = 0
361 Items.Strings = (
362 'Permanent Address'
363 'Temporary Address'
364 'Confidential Address')
365 TabOrder = 0
366 OnClick = AddressRGrpClick
367 end
368 object AddressLine1Edit: TEdit
369 Left = 176
370 Top = 16
371 Width = 225
372 Height = 21
373 TabOrder = 1
374 OnChange = AddressLine1EditChange
375 end
376 object AddressLine2Edit: TEdit
377 Left = 176
378 Top = 38
379 Width = 225
380 Height = 21
381 TabOrder = 2
382 OnChange = AddressLine2EditChange
383 end
384 object AddressLine3Edit: TEdit
385 Left = 176
386 Top = 60
387 Width = 225
388 Height = 21
389 TabOrder = 3
390 OnChange = AddressLine3EditChange
391 end
392 object CityEdit: TEdit
393 Left = 200
394 Top = 96
395 Width = 121
396 Height = 21
397 TabOrder = 4
398 OnChange = CityEditChange
399 end
400 object StateComboBox: TComboBox
401 Left = 328
402 Top = 96
403 Width = 73
404 Height = 21
405 ItemHeight = 13
[498]406 TabOrder = 5
[453]407 Text = '<State>'
408 OnChange = StateComboBoxChange
409 Items.Strings = (
410 'AK'
411 'AL'
412 'AR'
413 'AZ'
414 'CA'
415 'CO'
416 'CT'
417 'DC'
418 'DE'
419 'FL'
420 'GA'
421 'HI'
422 'IA'
423 'ID'
424 'IL'
425 'IN'
426 'KS'
427 'KY'
428 'LA'
429 'MA'
430 'MD'
431 'ME'
432 'MI'
433 'MN'
434 'MO'
435 'MS'
436 'MT'
437 'NC'
438 'ND'
439 'NE'
440 'NH'
441 'NJ'
442 'NM'
443 'NV'
444 'NY'
445 'OH'
446 'OK'
447 'OR'
448 'PA'
449 'RI'
450 'SC'
451 'SD'
452 'TN'
453 'TX'
454 'UT'
455 'VA'
456 'VT'
457 'WA'
458 'WI'
459 'WV'
460 'WY')
461 end
462 object Zip4Edit: TEdit
463 Left = 200
464 Top = 120
465 Width = 121
466 Height = 21
[498]467 TabOrder = 6
[453]468 OnChange = Zip4EditChange
469 end
470 object BadAddressCB: TCheckBox
471 Left = 16
472 Top = 151
473 Width = 89
474 Height = 17
475 Caption = 'Bad Address'
476 TabOrder = 7
477 OnClick = BadAddressCBClick
478 end
479 object TempActiveCB: TCheckBox
480 Left = 16
481 Top = 106
482 Width = 129
483 Height = 17
484 Caption = 'Temp Address Active'
485 TabOrder = 8
486 OnClick = TempActiveCBClick
487 end
488 object StartingDateEdit: TEdit
489 Left = 176
490 Top = 152
491 Width = 145
492 Height = 21
[495]493 TabOrder = 9
[453]494 Visible = False
495 OnChange = StartingDateEditChange
496 end
497 object EndingDateEdit: TEdit
[495]498 Left = 376
[453]499 Top = 152
[495]500 Width = 98
[453]501 Height = 21
[495]502 Anchors = [akLeft, akRight]
503 TabOrder = 10
[453]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'
[495]513 TabOrder = 11
[453]514 Visible = False
515 OnClick = ConfActiveCBClick
516 end
517 end
518 object SexComboBox: TComboBox
519 Left = 95
520 Top = 176
[495]521 Width = 255
[453]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
[496]533 Left = 542
534 Top = 137
535 Width = 67
[453]536 Height = 21
537 Anchors = [akTop, akRight]
538 TabOrder = 9
539 OnChange = DegreeEditChange
540 end
[495]541 object GroupBox1: TGroupBox
542 Left = 495
543 Top = 204
544 Width = 170
545 Height = 185
546 Anchors = [akRight, akBottom]
547 Caption = 'Phone Numbers'
548 TabOrder = 12
549 object PhoneNumGrp: TRadioGroup
550 Left = 8
551 Top = 16
552 Width = 137
553 Height = 89
554 ItemIndex = 0
555 Items.Strings = (
556 'Residence'
557 'Work'
558 'Cell'
559 'Temporary')
560 TabOrder = 0
561 OnClick = PhoneNumGrpClick
562 end
563 object PhoneNumEdit: TEdit
564 Left = 8
565 Top = 120
566 Width = 137
567 Height = 21
568 TabOrder = 1
569 Text = '<Phone Number>'
570 OnChange = PhoneNumEditChange
571 end
572 end
[496]573 object EMailEdit: TEdit
574 Left = 415
575 Top = 168
[498]576 Width = 242
[496]577 Height = 21
578 Anchors = [akLeft, akTop, akRight]
579 TabOrder = 13
[498]580 OnChange = EMailEditChange
[496]581 end
[453]582 end
583 end
[473]584 object DKLanguageController1: TDKLanguageController
585 Left = 257
586 Top = 10
587 LangData = {
588 0D0066726D507444656D6F45646974010100000001000000070043617074696F
[496]589 6E013900000005004F4B42746E010100000002000000070043617074696F6E00
[473]590 090043616E63656C42746E010100000003000000070043617074696F6E000800
591 4170706C7942746E010100000004000000070043617074696F6E000B00506167
592 65436F6E74726F6C00000C0044656D6F54616253686565740101000000050000
593 00070043617074696F6E000A004C4E616D654C6162656C010100000006000000
594 070043617074696F6E000A00464E616D654C6162656C01010000000700000007
595 0043617074696F6E000A004D4E616D654C6162656C0101000000080000000700
596 43617074696F6E001100436F6D62696E65644E616D654C6162656C0101000000
597 09000000070043617074696F6E000B005072656669784C6162656C0101000000
598 0A000000070043617074696F6E000B005375666669784C6162656C0101000000
599 0B000000070043617074696F6E000800444F424C6162656C01010000000C0000
600 00070043617074696F6E000A0053534E756D4C6162656C01010000000D000000
601 070043617074696F6E0008005365784C6162656C01010000000E000000070043
602 617074696F6E000B004465677265654C6162656C01010000000F000000070043
603 617074696F6E001000436F6D62696E65644E616D6545646974000009004C4E61
604 6D654564697400000900464E616D6545646974000009004D4E616D6545646974
605 00000A005072656669784564697400000A005375666669784564697400000700
606 444F42456469740000090053534E756D4564697400000D00416C69617347726F
607 7570426F78010100000010000000070043617074696F6E000E00416C6961734E
608 616D654C6162656C010100000011000000070043617074696F6E000F00416C69
609 617353534E756D4C6162656C010100000012000000070043617074696F6E000D
610 00416C696173436F6D626F426F7801010000001300000005004974656D73000D
611 00416C6961734E616D654564697400000C00416C69617353534E456469740000
612 0B0044656C416C69617342746E010100000014000000070043617074696F6E00
613 0B00416464416C69617342746E010100000015000000070043617074696F6E00
614 0F004164647265737347726F7570426F78010100000016000000070043617074
615 696F6E000900436974794C6162656C010100000017000000070043617074696F
616 6E0009005A6970344C6162656C010100000018000000070043617074696F6E00
617 11005374617274696E67446174654C6162656C01010000001900000007004361
618 7074696F6E000F00456E64696E67446174654C6162656C01010000001A000000
619 070043617074696F6E000B00416464726573735247727001020000001B000000
620 070043617074696F6E1C00000005004974656D73001000416464726573734C69
621 6E65314564697400001000416464726573734C696E6532456469740000100041
622 6464726573734C696E65334564697400000800436974794564697400000D0053
623 74617465436F6D626F426F7801020000001E00000005004974656D731D000000
624 0400546578740008005A6970344564697400000C004261644164647265737343
625 4201010000001F000000070043617074696F6E000C0054656D70416374697665
[495]626 4342010100000020000000070043617074696F6E0010005374617274696E6744
627 6174654564697400000E00456E64696E67446174654564697400000C00436F6E
628 664163746976654342010100000024000000070043617074696F6E000B005365
629 78436F6D626F426F7801020000002600000005004974656D7325000000040054
630 657874000A00446567726565456469740000090047726F7570426F7831010100
631 000027000000070043617074696F6E000B0050686F6E654E756D477270010100
632 00002800000005004974656D73000C0050686F6E654E756D4564697401010000
[496]633 00290000000400546578740006004C6162656C3101010000002A000000070043
634 617074696F6E0006004C6162656C3201010000002B000000070043617074696F
635 6E0006004C6162656C3301010000002C000000070043617074696F6E00090045
636 4D61696C456469740000}
[473]637 end
[453]638end
Note: See TracBrowser for help on using the repository browser.