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

Last change on this file since 495 was 495, checked in by Kevin Toppenberg, 17 years ago

Tweaked edit patient demographics window (isolate phone #)
File size: 16.4 KB
Line 
1object frmPtDemoEdit: TfrmPtDemoEdit
2 Left = 196
3 Top = 145
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 = 66
132 Top = 176
133 Width = 18
134 Height = 13
135 Caption = 'Sex'
136 end
137 object DegreeLabel: TLabel
138 Left = 378
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 = 255
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 = 255
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 = 255
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 = 255
177 Height = 21
178 Anchors = [akLeft, akTop, akRight]
179 TabOrder = 3
180 OnChange = MNameEditChange
181 end
182 object PrefixEdit: TEdit
183 Left = 415
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 = 185
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 = 255
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 = 255
214 Height = 21
215 Anchors = [akLeft, akTop, akRight]
216 TabOrder = 6
217 OnChange = SSNumEditChange
218 end
219 object AliasGroupBox: TGroupBox
220 Left = 362
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 = 204
297 Width = 482
298 Height = 185
299 Anchors = [akLeft, akRight, akBottom]
300 Caption = 'Address'
301 TabOrder = 11
302 DesignSize = (
303 482
304 185)
305 object CityLabel: TLabel
306 Left = 172
307 Top = 96
308 Width = 17
309 Height = 13
310 Caption = 'City'
311 end
312 object Zip4Label: TLabel
313 Left = 162
314 Top = 120
315 Width = 27
316 Height = 13
317 Caption = 'Zip+4'
318 end
319 object StartingDateLabel: TLabel
320 Left = 104
321 Top = 152
322 Width = 62
323 Height = 13
324 Caption = 'Starting Date'
325 Visible = False
326 end
327 object EndingDateLabel: TLabel
328 Left = 336
329 Top = 152
330 Width = 33
331 Height = 26
332 Caption = 'Ending Date'
333 Visible = False
334 WordWrap = True
335 end
336 object AddressRGrp: TRadioGroup
337 Left = 8
338 Top = 24
339 Width = 153
340 Height = 81
341 Caption = 'Address to Edit'
342 ItemIndex = 0
343 Items.Strings = (
344 'Permanent Address'
345 'Temporary Address'
346 'Confidential Address')
347 TabOrder = 0
348 OnClick = AddressRGrpClick
349 end
350 object AddressLine1Edit: TEdit
351 Left = 176
352 Top = 16
353 Width = 225
354 Height = 21
355 TabOrder = 1
356 OnChange = AddressLine1EditChange
357 end
358 object AddressLine2Edit: TEdit
359 Left = 176
360 Top = 38
361 Width = 225
362 Height = 21
363 TabOrder = 2
364 OnChange = AddressLine2EditChange
365 end
366 object AddressLine3Edit: TEdit
367 Left = 176
368 Top = 60
369 Width = 225
370 Height = 21
371 TabOrder = 3
372 OnChange = AddressLine3EditChange
373 end
374 object CityEdit: TEdit
375 Left = 200
376 Top = 96
377 Width = 121
378 Height = 21
379 TabOrder = 4
380 OnChange = CityEditChange
381 end
382 object StateComboBox: TComboBox
383 Left = 328
384 Top = 96
385 Width = 73
386 Height = 21
387 ItemHeight = 13
388 TabOrder = 6
389 Text = '<State>'
390 OnChange = StateComboBoxChange
391 Items.Strings = (
392 'AK'
393 'AL'
394 'AR'
395 'AZ'
396 'CA'
397 'CO'
398 'CT'
399 'DC'
400 'DE'
401 'FL'
402 'GA'
403 'HI'
404 'IA'
405 'ID'
406 'IL'
407 'IN'
408 'KS'
409 'KY'
410 'LA'
411 'MA'
412 'MD'
413 'ME'
414 'MI'
415 'MN'
416 'MO'
417 'MS'
418 'MT'
419 'NC'
420 'ND'
421 'NE'
422 'NH'
423 'NJ'
424 'NM'
425 'NV'
426 'NY'
427 'OH'
428 'OK'
429 'OR'
430 'PA'
431 'RI'
432 'SC'
433 'SD'
434 'TN'
435 'TX'
436 'UT'
437 'VA'
438 'VT'
439 'WA'
440 'WI'
441 'WV'
442 'WY')
443 end
444 object Zip4Edit: TEdit
445 Left = 200
446 Top = 120
447 Width = 121
448 Height = 21
449 TabOrder = 5
450 OnChange = Zip4EditChange
451 end
452 object BadAddressCB: TCheckBox
453 Left = 16
454 Top = 151
455 Width = 89
456 Height = 17
457 Caption = 'Bad Address'
458 TabOrder = 7
459 OnClick = BadAddressCBClick
460 end
461 object TempActiveCB: TCheckBox
462 Left = 16
463 Top = 106
464 Width = 129
465 Height = 17
466 Caption = 'Temp Address Active'
467 TabOrder = 8
468 OnClick = TempActiveCBClick
469 end
470 object StartingDateEdit: TEdit
471 Left = 176
472 Top = 152
473 Width = 145
474 Height = 21
475 TabOrder = 9
476 Visible = False
477 OnChange = StartingDateEditChange
478 end
479 object EndingDateEdit: TEdit
480 Left = 376
481 Top = 152
482 Width = 98
483 Height = 21
484 Anchors = [akLeft, akRight]
485 TabOrder = 10
486 Visible = False
487 OnChange = EndingDateEditChange
488 end
489 object ConfActiveCB: TCheckBox
490 Left = 16
491 Top = 129
492 Width = 129
493 Height = 17
494 Caption = 'Confidential Active'
495 TabOrder = 11
496 Visible = False
497 OnClick = ConfActiveCBClick
498 end
499 end
500 object SexComboBox: TComboBox
501 Left = 95
502 Top = 176
503 Width = 255
504 Height = 21
505 Anchors = [akLeft, akTop, akRight]
506 ItemHeight = 13
507 TabOrder = 7
508 Text = '<Sex>'
509 OnChange = SexComboBoxChange
510 Items.Strings = (
511 'MALE'
512 'FEMALE')
513 end
514 object DegreeEdit: TEdit
515 Left = 415
516 Top = 160
517 Width = 136
518 Height = 21
519 Anchors = [akTop, akRight]
520 TabOrder = 9
521 Visible = False
522 OnChange = DegreeEditChange
523 end
524 object GroupBox1: TGroupBox
525 Left = 495
526 Top = 204
527 Width = 170
528 Height = 185
529 Anchors = [akRight, akBottom]
530 Caption = 'Phone Numbers'
531 TabOrder = 12
532 object PhoneNumGrp: TRadioGroup
533 Left = 8
534 Top = 16
535 Width = 137
536 Height = 89
537 ItemIndex = 0
538 Items.Strings = (
539 'Residence'
540 'Work'
541 'Cell'
542 'Temporary')
543 TabOrder = 0
544 OnClick = PhoneNumGrpClick
545 end
546 object PhoneNumEdit: TEdit
547 Left = 8
548 Top = 120
549 Width = 137
550 Height = 21
551 TabOrder = 1
552 Text = '<Phone Number>'
553 OnChange = PhoneNumEditChange
554 end
555 end
556 end
557 end
558 object DKLanguageController1: TDKLanguageController
559 Left = 257
560 Top = 10
561 LangData = {
562 0D0066726D507444656D6F45646974010100000001000000070043617074696F
563 6E013500000005004F4B42746E010100000002000000070043617074696F6E00
564 090043616E63656C42746E010100000003000000070043617074696F6E000800
565 4170706C7942746E010100000004000000070043617074696F6E000B00506167
566 65436F6E74726F6C00000C0044656D6F54616253686565740101000000050000
567 00070043617074696F6E000A004C4E616D654C6162656C010100000006000000
568 070043617074696F6E000A00464E616D654C6162656C01010000000700000007
569 0043617074696F6E000A004D4E616D654C6162656C0101000000080000000700
570 43617074696F6E001100436F6D62696E65644E616D654C6162656C0101000000
571 09000000070043617074696F6E000B005072656669784C6162656C0101000000
572 0A000000070043617074696F6E000B005375666669784C6162656C0101000000
573 0B000000070043617074696F6E000800444F424C6162656C01010000000C0000
574 00070043617074696F6E000A0053534E756D4C6162656C01010000000D000000
575 070043617074696F6E0008005365784C6162656C01010000000E000000070043
576 617074696F6E000B004465677265654C6162656C01010000000F000000070043
577 617074696F6E001000436F6D62696E65644E616D6545646974000009004C4E61
578 6D654564697400000900464E616D6545646974000009004D4E616D6545646974
579 00000A005072656669784564697400000A005375666669784564697400000700
580 444F42456469740000090053534E756D4564697400000D00416C69617347726F
581 7570426F78010100000010000000070043617074696F6E000E00416C6961734E
582 616D654C6162656C010100000011000000070043617074696F6E000F00416C69
583 617353534E756D4C6162656C010100000012000000070043617074696F6E000D
584 00416C696173436F6D626F426F7801010000001300000005004974656D73000D
585 00416C6961734E616D654564697400000C00416C69617353534E456469740000
586 0B0044656C416C69617342746E010100000014000000070043617074696F6E00
587 0B00416464416C69617342746E010100000015000000070043617074696F6E00
588 0F004164647265737347726F7570426F78010100000016000000070043617074
589 696F6E000900436974794C6162656C010100000017000000070043617074696F
590 6E0009005A6970344C6162656C010100000018000000070043617074696F6E00
591 11005374617274696E67446174654C6162656C01010000001900000007004361
592 7074696F6E000F00456E64696E67446174654C6162656C01010000001A000000
593 070043617074696F6E000B00416464726573735247727001020000001B000000
594 070043617074696F6E1C00000005004974656D73001000416464726573734C69
595 6E65314564697400001000416464726573734C696E6532456469740000100041
596 6464726573734C696E65334564697400000800436974794564697400000D0053
597 74617465436F6D626F426F7801020000001E00000005004974656D731D000000
598 0400546578740008005A6970344564697400000C004261644164647265737343
599 4201010000001F000000070043617074696F6E000C0054656D70416374697665
600 4342010100000020000000070043617074696F6E0010005374617274696E6744
601 6174654564697400000E00456E64696E67446174654564697400000C00436F6E
602 664163746976654342010100000024000000070043617074696F6E000B005365
603 78436F6D626F426F7801020000002600000005004974656D7325000000040054
604 657874000A00446567726565456469740000090047726F7570426F7831010100
605 000027000000070043617074696F6E000B0050686F6E654E756D477270010100
606 00002800000005004974656D73000C0050686F6E654E756D4564697401010000
607 002900000004005465787400}
608 end
609end
Note: See TracBrowser for help on using the repository browser.