object frmPtAdd: TfrmPtAdd
  Left = 438
  Top = 165
  Width = 289
  Height = 300
  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 = 79
    Height = 13
    Caption = 'Social Sec Num.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    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 = 232
    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 = '<Sex>'
    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 = '<Pt Type>'
    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 = 92
    Top = 231
    Width = 89
    Height = 25
    Caption = '&Add Patient'
    TabOrder = 9
    OnClick = OkButtonClick
  end
  object CloseButton: TButton
    Left = 188
    Top = 231
    Width = 81
    Height = 25
    Caption = '&Cancel'
    TabOrder = 10
    OnClick = CancelButtonClick
  end
  object DKLanguageController1: TDKLanguageController
    Left = 8
    Top = 152
    LangData = {
      080066726D5074416464010100000001000000070043617074696F6E01160000
      0006004C6162656C31010100000002000000070043617074696F6E0006004C61
      62656C32010100000003000000070043617074696F6E000A004C4E616D654C61
      62656C010100000004000000070043617074696F6E000A00464E616D654C6162
      656C010100000005000000070043617074696F6E000A004D4E616D654C616265
      6C010100000006000000070043617074696F6E000B005375666669784C616265
      6C010100000007000000070043617074696F6E000800444F424C6162656C0101
      00000008000000070043617074696F6E000A0053534E756D4C6162656C010100
      000009000000070043617074696F6E0008005365784C6162656C01010000000A
      000000070043617074696F6E000B005072656669784C6162656C01010000000B
      000000070043617074696F6E000A0053534E48656C7042746E00000B00536578
      436F6D626F426F7801020000000D00000005004974656D730C00000004005465
      787400090053534E756D4564697400000700444F424564697400000A00537566
      66697845646974000009004D4E616D654564697400000900464E616D65456469
      74000009004C4E616D654564697400000E00507454797065436F6D626F426F78
      01020000000F00000005004974656D730E000000040054657874000F00566574
      6572616E436865636B426F78010100000010000000070043617074696F6E0008
      004F6B427574746F6E010100000011000000070043617074696F6E000B00436C
      6F7365427574746F6E010100000012000000070043617074696F6E00}
  end
end