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

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

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