object frmPtAdd: TfrmPtAdd Left = 365 Top = 160 Width = 298 Height = 278 Caption = 'Add A Patient' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poMainFormCenter OnCreate = FormCreate OnDestroy = FormDestroy OnShow = OnShow PixelsPerInch = 96 TextHeight = 13 object LNameLabel: TLabel Left = 33 Top = 20 Width = 70 Height = 13 Caption = 'Family/Last:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object FNameLabel: TLabel Left = 33 Top = 44 Width = 68 Height = 13 Caption = 'Given/First:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object MNameLabel: TLabel Left = 64 Top = 68 Width = 34 Height = 13 Caption = 'Middle:' end object SuffixLabel: TLabel Left = 70 Top = 92 Width = 26 Height = 13 Caption = 'Suffix' end object DOBLabel: TLabel Left = 24 Top = 117 Width = 73 Height = 13 Caption = 'Date of Birth' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object SSNumLabel: TLabel Left = 8 Top = 139 Width = 95 Height = 13 Caption = 'Social Sec Num.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object SexLabel: TLabel Left = 74 Top = 164 Width = 22 Height = 13 Caption = 'Sex' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object PrefixLabel: TLabel Left = 25 Top = 187 Width = 73 Height = 13 Caption = 'Patient Type' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object Label1: TLabel Left = 16 Top = 224 Width = 39 Height = 13 Caption = 'Label1' Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Visible = False end object SSNHelpBtn: TSpeedButton Left = 245 Top = 136 Width = 23 Height = 22 Glyph.Data = { 36010000424D3601000000000000760000002800000014000000100000000100 040000000000C000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFF000FFF FFFFFFFF0000FFFFF06660FFFFFFFFFF0000FFFFF06660FFFFFFFFFF0000FFFF FF000FFFFFFFFFFF0000FFFFF06660FFFFFFFFFF0000FFFFF06660FFFFFFFFFF 0000FFFFF066660FFFFFFFFF0000FFFFFF066660FFFFFFFF0000FFFFFFF06666 0FFFFFFF0000FFF000FF06660FFFFFFF0000FF06660006660FFFFFFF0000FF06 666666660FFFFFFF0000FF06666666660FFFFFFF0000FFF006666600FFFFFFFF 0000FFFFF00000FFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000} OnClick = SSNHelpBtnClick end object Label2: TLabel Left = 206 Top = 117 Width = 65 Height = 13 Caption = '(mm/dd/yy)' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object SexComboBox: TComboBox Left = 103 Top = 160 Width = 167 Height = 21 ItemHeight = 13 TabOrder = 6 Text = '' OnChange = SexComboBoxChange OnKeyPress = SexComboBoxKeyPress Items.Strings = ( 'MALE' 'FEMALE') end object SSNumEdit: TEdit Left = 103 Top = 136 Width = 138 Height = 21 TabOrder = 5 OnChange = SSNumEditChange OnExit = SSNumEditExit OnKeyPress = SSNumEditKeyPress end object DOBEdit: TEdit Left = 103 Top = 112 Width = 99 Height = 21 TabOrder = 4 OnChange = DOBEditChange OnExit = DOBEditExit OnKeyPress = DOBEditKeyPress end object SuffixEdit: TEdit Left = 103 Top = 88 Width = 167 Height = 21 TabOrder = 3 OnChange = SuffixEditChange OnKeyPress = SuffixEditKeyPress end object MNameEdit: TEdit Left = 103 Top = 64 Width = 167 Height = 21 TabOrder = 2 OnChange = MNameEditChange OnKeyPress = MNameEditKeyPress end object FNameEdit: TEdit Left = 103 Top = 40 Width = 167 Height = 21 TabOrder = 1 OnChange = FNameEditChange OnKeyPress = FNameEditKeyPress end object LNameEdit: TEdit Left = 103 Top = 16 Width = 167 Height = 21 TabOrder = 0 OnChange = LNameEditChange OnKeyPress = LNameEditKeyPress end object PtTypeComboBox: TComboBox Left = 103 Top = 184 Width = 167 Height = 21 ItemHeight = 13 TabOrder = 7 Text = '' Visible = False OnChange = PtTypeComboBoxChange OnKeyPress = PtTypeComboBoxKeyPress Items.Strings = ( 'ACTIVE DUTY' 'ALLIED VETERAN' 'COLLATERAL' 'EMPLOYEE' 'MILITARY RETIREE' 'NON-VETERAN (OTHER)' 'NSC VETERAN' 'SC VETERAN' 'TRICARE') end object VeteranCheckBox: TCheckBox Left = 104 Top = 208 Width = 161 Height = 17 Caption = 'Patient Is A Veteran' TabOrder = 8 Visible = False OnClick = VeteranCheckBoxClick end object OkButton: TButton Left = 96 Top = 192 Width = 89 Height = 25 Caption = '&Add Patient' TabOrder = 9 OnClick = OkButtonClick end object CloseButton: TButton Left = 192 Top = 192 Width = 81 Height = 25 Caption = '&Cancel' TabOrder = 10 OnClick = CancelButtonClick end end