object frmPtDemoEdit: TfrmPtDemoEdit Left = 279 Top = 142 Width = 684 Height = 498 Caption = 'Edit Patient Demographics' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow DesignSize = ( 676 464) PixelsPerInch = 96 TextHeight = 13 object OKBtn: TButton Left = 386 Top = 431 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&OK' ModalResult = 1 TabOrder = 0 OnClick = OKBtnClick end object CancelBtn: TButton Left = 578 Top = 431 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = '&Cancel' TabOrder = 2 OnClick = CancelBtnClick end object ApplyBtn: TButton Left = 466 Top = 431 Width = 107 Height = 25 Anchors = [akRight, akBottom] Caption = '&Apply Changes' Enabled = False TabOrder = 1 OnClick = ApplyBtnClick end object PageControl: TPageControl Left = 0 Top = 0 Width = 676 Height = 424 ActivePage = Advanced Align = alTop Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 3 OnChange = PageControlChange OnChanging = PageControlChanging object DemoTabSheet: TTabSheet Caption = 'Demographics' DesignSize = ( 668 396) object LNameLabel: TLabel Left = 27 Top = 32 Width = 57 Height = 13 Caption = 'Family/Last:' end object FNameLabel: TLabel Left = 29 Top = 56 Width = 55 Height = 13 Caption = 'Given/First:' end object MNameLabel: TLabel Left = 50 Top = 80 Width = 34 Height = 13 Caption = 'Middle:' end object CombinedNameLabel: TLabel Left = 56 Top = 8 Width = 28 Height = 13 Caption = 'Name' end object PrefixLabel: TLabel Left = 379 Top = 136 Width = 26 Height = 13 Anchors = [akTop, akRight] Caption = 'Prefix' end object SuffixLabel: TLabel Left = 148 Top = 104 Width = 26 Height = 13 Anchors = [akTop, akRight] Caption = 'Suffix' end object DOBLabel: TLabel Left = 115 Top = 128 Width = 59 Height = 13 Anchors = [akTop, akRight] Caption = 'Date of Birth' end object SSNumLabel: TLabel Left = 95 Top = 152 Width = 79 Height = 13 Anchors = [akTop, akRight] Caption = 'Social Sec Num.' end object SexLabel: TLabel Left = 62 Top = 176 Width = 21 Height = 13 Caption = 'Sex:' end object DegreeLabel: TLabel Left = 505 Top = 137 Width = 35 Height = 13 Anchors = [akTop, akRight] Caption = 'Degree' end object Label1: TLabel Left = 58 Top = 133 Width = 26 Height = 13 Caption = 'DOB:' end object Label2: TLabel Left = 59 Top = 156 Width = 25 Height = 13 Caption = 'SSN:' end object Label3: TLabel Left = 379 Top = 172 Width = 29 Height = 13 Caption = 'EMail:' end object CombinedNameEdit: TEdit Left = 95 Top = 8 Width = 255 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 0 OnChange = CombinedNameEditChange end object LNameEdit: TEdit Left = 95 Top = 32 Width = 255 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 1 OnChange = LNameEditChange end object FNameEdit: TEdit Left = 95 Top = 56 Width = 255 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 2 OnChange = FNameEditChange end object MNameEdit: TEdit Left = 95 Top = 80 Width = 255 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 3 OnChange = MNameEditChange end object PrefixEdit: TEdit Left = 415 Top = 136 Width = 66 Height = 21 Anchors = [akTop, akRight] TabOrder = 8 OnChange = PrefixEditChange end object SuffixEdit: TEdit Left = 185 Top = 104 Width = 165 Height = 21 Anchors = [akTop, akRight] TabOrder = 4 OnChange = SuffixEditChange end object DOBEdit: TEdit Left = 95 Top = 128 Width = 255 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 5 OnChange = DOBEditChange end object SSNumEdit: TEdit Left = 95 Top = 152 Width = 255 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 6 OnChange = SSNumEditChange end object AliasGroupBox: TGroupBox Left = 362 Top = 8 Width = 297 Height = 121 Anchors = [akTop, akRight] Caption = 'Alias' TabOrder = 10 TabStop = True object AliasNameLabel: TLabel Left = 16 Top = 48 Width = 53 Height = 13 Caption = 'Alias Name' end object AliasSSNumLabel: TLabel Left = 8 Top = 80 Width = 64 Height = 13 Caption = 'Alias SS Num' end object AliasComboBox: TComboBox Left = 8 Top = 16 Width = 161 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 OnChange = AliasComboBoxChange Items.Strings = ( 'Stuff here...' '') end object AliasNameEdit: TEdit Left = 80 Top = 48 Width = 201 Height = 21 Color = clInactiveBorder Enabled = False TabOrder = 1 OnChange = AliasNameEditChange end object AliasSSNEdit: TEdit Left = 80 Top = 80 Width = 201 Height = 21 Color = clInactiveBorder Enabled = False TabOrder = 2 OnChange = AliasSSNEditChange end object DelAliasBtn: TButton Left = 227 Top = 16 Width = 54 Height = 22 Caption = 'Delete' TabOrder = 3 OnClick = DelAliasBtnClick end object AddAliasBtn: TButton Left = 176 Top = 16 Width = 41 Height = 22 Caption = 'Add' TabOrder = 4 OnClick = AddAliasBtnClick end end object AddressGroupBox: TGroupBox Left = 8 Top = 204 Width = 482 Height = 185 Anchors = [akLeft, akRight, akBottom] Caption = 'Address' TabOrder = 11 DesignSize = ( 482 185) object CityLabel: TLabel Left = 172 Top = 96 Width = 17 Height = 13 Caption = 'City' end object Zip4Label: TLabel Left = 162 Top = 120 Width = 27 Height = 13 Caption = 'Zip+4' end object StartingDateLabel: TLabel Left = 104 Top = 152 Width = 62 Height = 13 Caption = 'Starting Date' Visible = False end object EndingDateLabel: TLabel Left = 336 Top = 152 Width = 33 Height = 26 Caption = 'Ending Date' Visible = False WordWrap = True end object AddressRGrp: TRadioGroup Left = 8 Top = 24 Width = 153 Height = 81 Caption = 'Address to Edit' ItemIndex = 0 Items.Strings = ( 'Permanent Address' 'Temporary Address' 'Confidential Address') TabOrder = 0 OnClick = AddressRGrpClick end object AddressLine1Edit: TEdit Left = 176 Top = 16 Width = 225 Height = 21 TabOrder = 1 OnChange = AddressLine1EditChange end object AddressLine2Edit: TEdit Left = 176 Top = 38 Width = 225 Height = 21 TabOrder = 2 OnChange = AddressLine2EditChange end object AddressLine3Edit: TEdit Left = 176 Top = 60 Width = 225 Height = 21 TabOrder = 3 OnChange = AddressLine3EditChange end object CityEdit: TEdit Left = 200 Top = 96 Width = 121 Height = 21 TabOrder = 4 OnChange = CityEditChange end object StateComboBox: TComboBox Left = 328 Top = 96 Width = 73 Height = 21 ItemHeight = 13 TabOrder = 5 Text = '' OnChange = StateComboBoxChange Items.Strings = ( 'AK' 'AL' 'AR' 'AZ' 'CA' 'CO' 'CT' 'DC' 'DE' 'FL' 'GA' 'HI' 'IA' 'ID' 'IL' 'IN' 'KS' 'KY' 'LA' 'MA' 'MD' 'ME' 'MI' 'MN' 'MO' 'MS' 'MT' 'NC' 'ND' 'NE' 'NH' 'NJ' 'NM' 'NV' 'NY' 'OH' 'OK' 'OR' 'PA' 'RI' 'SC' 'SD' 'TN' 'TX' 'UT' 'VA' 'VT' 'WA' 'WI' 'WV' 'WY') end object Zip4Edit: TEdit Left = 200 Top = 120 Width = 121 Height = 21 TabOrder = 6 OnChange = Zip4EditChange end object BadAddressCB: TCheckBox Left = 16 Top = 151 Width = 89 Height = 17 Caption = 'Bad Address' TabOrder = 7 OnClick = BadAddressCBClick end object TempActiveCB: TCheckBox Left = 16 Top = 106 Width = 129 Height = 17 Caption = 'Temp Address Active' TabOrder = 8 OnClick = TempActiveCBClick end object StartingDateEdit: TEdit Left = 176 Top = 152 Width = 145 Height = 21 TabOrder = 9 Visible = False OnChange = StartingDateEditChange end object EndingDateEdit: TEdit Left = 376 Top = 152 Width = 98 Height = 21 Anchors = [akLeft, akRight] TabOrder = 10 Visible = False OnChange = EndingDateEditChange end object ConfActiveCB: TCheckBox Left = 16 Top = 129 Width = 129 Height = 17 Caption = 'Confidential Active' TabOrder = 11 Visible = False OnClick = ConfActiveCBClick end end object SexComboBox: TComboBox Left = 95 Top = 176 Width = 255 Height = 21 Anchors = [akLeft, akTop, akRight] ItemHeight = 13 TabOrder = 7 Text = '' OnChange = SexComboBoxChange Items.Strings = ( 'MALE' 'FEMALE') end object DegreeEdit: TEdit Left = 542 Top = 137 Width = 67 Height = 21 Anchors = [akTop, akRight] TabOrder = 9 OnChange = DegreeEditChange end object GroupBox1: TGroupBox Left = 495 Top = 204 Width = 170 Height = 185 Anchors = [akRight, akBottom] Caption = 'Phone Numbers' TabOrder = 12 object PhoneNumGrp: TRadioGroup Left = 8 Top = 16 Width = 137 Height = 89 ItemIndex = 0 Items.Strings = ( 'Residence' 'Work' 'Cell' 'Temporary') TabOrder = 0 OnClick = PhoneNumGrpClick end object PhoneNumEdit: TEdit Left = 8 Top = 120 Width = 137 Height = 21 TabOrder = 1 Text = '' OnChange = PhoneNumEditChange end end object EMailEdit: TEdit Left = 415 Top = 168 Width = 242 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 13 OnChange = EMailEditChange end end object Advanced: TTabSheet Caption = 'Advanced' ImageIndex = 1 object gridPatientDemo: TSortStringGrid Left = 0 Top = 0 Width = 665 Height = 393 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing] TabOrder = 0 OnSelectCell = gridPatientDemoSelectCell OnSetEditText = gridPatientDemoSetEditText end end end object DKLanguageController1: TDKLanguageController Left = 257 Top = 10 LangData = { 0D0066726D507444656D6F45646974010100000001000000070043617074696F 6E013B00000005004F4B42746E010100000002000000070043617074696F6E00 090043616E63656C42746E010100000003000000070043617074696F6E000800 4170706C7942746E010100000004000000070043617074696F6E000B00506167 65436F6E74726F6C00000C0044656D6F54616253686565740101000000050000 00070043617074696F6E000A004C4E616D654C6162656C010100000006000000 070043617074696F6E000A00464E616D654C6162656C01010000000700000007 0043617074696F6E000A004D4E616D654C6162656C0101000000080000000700 43617074696F6E001100436F6D62696E65644E616D654C6162656C0101000000 09000000070043617074696F6E000B005072656669784C6162656C0101000000 0A000000070043617074696F6E000B005375666669784C6162656C0101000000 0B000000070043617074696F6E000800444F424C6162656C01010000000C0000 00070043617074696F6E000A0053534E756D4C6162656C01010000000D000000 070043617074696F6E0008005365784C6162656C01010000000E000000070043 617074696F6E000B004465677265654C6162656C01010000000F000000070043 617074696F6E001000436F6D62696E65644E616D6545646974000009004C4E61 6D654564697400000900464E616D6545646974000009004D4E616D6545646974 00000A005072656669784564697400000A005375666669784564697400000700 444F42456469740000090053534E756D4564697400000D00416C69617347726F 7570426F78010100000010000000070043617074696F6E000E00416C6961734E 616D654C6162656C010100000011000000070043617074696F6E000F00416C69 617353534E756D4C6162656C010100000012000000070043617074696F6E000D 00416C696173436F6D626F426F7801010000001300000005004974656D73000D 00416C6961734E616D654564697400000C00416C69617353534E456469740000 0B0044656C416C69617342746E010100000014000000070043617074696F6E00 0B00416464416C69617342746E010100000015000000070043617074696F6E00 0F004164647265737347726F7570426F78010100000016000000070043617074 696F6E000900436974794C6162656C010100000017000000070043617074696F 6E0009005A6970344C6162656C010100000018000000070043617074696F6E00 11005374617274696E67446174654C6162656C01010000001900000007004361 7074696F6E000F00456E64696E67446174654C6162656C01010000001A000000 070043617074696F6E000B00416464726573735247727001020000001B000000 070043617074696F6E1C00000005004974656D73001000416464726573734C69 6E65314564697400001000416464726573734C696E6532456469740000100041 6464726573734C696E65334564697400000800436974794564697400000D0053 74617465436F6D626F426F7801020000001E00000005004974656D731D000000 0400546578740008005A6970344564697400000C004261644164647265737343 4201010000001F000000070043617074696F6E000C0054656D70416374697665 4342010100000020000000070043617074696F6E0010005374617274696E6744 6174654564697400000E00456E64696E67446174654564697400000C00436F6E 664163746976654342010100000024000000070043617074696F6E000B005365 78436F6D626F426F7801020000002600000005004974656D7325000000040054 657874000A00446567726565456469740000090047726F7570426F7831010100 000027000000070043617074696F6E000B0050686F6E654E756D477270010100 00002800000005004974656D73000C0050686F6E654E756D4564697401010000 00290000000400546578740006004C6162656C3101010000002A000000070043 617074696F6E0006004C6162656C3201010000002B000000070043617074696F 6E0006004C6162656C3301010000002C000000070043617074696F6E00090045 4D61696C4564697400000800416476616E63656401010000002D000000070043 617074696F6E000F006772696450617469656E7444656D6F0000} end end