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

Last change on this file since 496 was 496, checked in by Kevin Toppenberg, 15 years ago

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