inherited frmdlgProb: TfrmdlgProb
  Left = 148
  Top = 108
  HelpContext = 2000
  BorderIcons = []
  Caption = 'frmdlgProb'
  ClientHeight = 358
  ClientWidth = 496
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  ExplicitWidth = 504
  ExplicitHeight = 392
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 6
    Top = 357
    Width = 47
    Height = 13
    Caption = 'Recorded'
    Visible = False
  end
  object Label5: TLabel [1]
    Left = 4
    Top = 368
    Width = 45
    Height = 13
    Caption = 'Resolved'
    Visible = False
  end
  object Label7: TLabel [2]
    Left = 8
    Top = 382
    Width = 41
    Height = 13
    Caption = 'Updated'
    Visible = False
  end
  object pnlComments: TPanel [3]
    Left = 0
    Top = 200
    Width = 496
    Height = 131
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      496
      131)
    object Bevel1: TBevel
      Left = 7
      Top = 3
      Width = 484
      Height = 128
      Anchors = [akLeft, akTop, akRight, akBottom]
    end
    object lblCmtDate: TOROffsetLabel
      Left = 10
      Top = 20
      Width = 29
      Height = 15
      Caption = 'Date'
      HorzOffset = 6
      Transparent = False
      VertOffset = 2
      WordWrap = False
    end
    object lblComment: TOROffsetLabel
      Left = 75
      Top = 20
      Width = 50
      Height = 15
      Caption = 'Comment'
      HorzOffset = 6
      Transparent = False
      VertOffset = 2
      WordWrap = False
    end
    object lblCom: TStaticText
      Left = 10
      Top = 6
      Width = 53
      Height = 17
      Caption = 'Comments'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object bbAdd: TBitBtn
      Left = 178
      Top = 10
      Width = 100
      Height = 22
      Hint = 'Add a new comment'
      Anchors = [akTop, akRight]
      Caption = 'Add comment'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = bbAddComClick
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object bbRemove: TBitBtn
      Left = 385
      Top = 10
      Width = 100
      Height = 22
      Hint = 'Remove selected comment'
      Anchors = [akTop, akRight]
      Caption = 'Remove comment'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = bbRemoveClick
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object lstComments: TORListBox
      Left = 10
      Top = 38
      Width = 477
      Height = 85
      Anchors = [akLeft, akTop, akRight, akBottom]
      ExtendedSelect = False
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Caption = 'Comments'
      ItemTipColor = clWindow
      LongList = True
      Pieces = '1,2'
      TabPositions = '1,12'
      OnChange = ControlChange
    end
    object bbEdit: TBitBtn
      Left = 281
      Top = 10
      Width = 100
      Height = 22
      Hint = 'Edit selected comment'
      Anchors = [akTop, akRight]
      Caption = 'Edit comment'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = bbEditClick
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
  end
  object pnlBottom: TPanel [4]
    Left = 0
    Top = 331
    Width = 496
    Height = 27
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 4
    DesignSize = (
      496
      27)
    object bbQuit: TBitBtn
      Left = 299
      Top = 4
      Width = 78
      Height = 21
      Hint = 'Cancel problem update...'
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 3
      OnClick = bbQuitClick
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object bbFile: TBitBtn
      Left = 381
      Top = 4
      Width = 78
      Height = 21
      Hint = 'Submit problem update...'
      Anchors = [akTop, akRight]
      Caption = 'OK'
      Default = True
      ModalResult = 1
      TabOrder = 2
      OnClick = bbFileClick
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object ckVerify: TCheckBox
      Left = 15
      Top = 7
      Width = 130
      Height = 15
      TabStop = False
      Caption = 'Problem Verified'
      TabOrder = 0
      Visible = False
    end
    object edRecDate: TCaptionEdit
      Left = 151
      Top = 6
      Width = 94
      Height = 21
      TabStop = False
      Color = clInactiveCaptionText
      Enabled = False
      TabOrder = 1
      Text = 'Today'
      Visible = False
      OnChange = ControlChange
      Caption = 'Rec Date'
    end
  end
  object edResDate: TCaptionEdit [5]
    Left = 66
    Top = 365
    Width = 94
    Height = 21
    TabStop = False
    Color = clInactiveCaptionText
    Enabled = False
    TabOrder = 2
    Text = 'Today'
    Visible = False
    OnChange = ControlChange
    Caption = 'Res Date'
  end
  object edUpdate: TCaptionEdit [6]
    Left = 67
    Top = 376
    Width = 94
    Height = 21
    TabStop = False
    Color = clInactiveCaptionText
    Enabled = False
    TabOrder = 3
    Text = 'Today'
    Visible = False
    OnChange = ControlChange
    Caption = 'Update'
  end
  object pnlTop: TPanel [7]
    Left = 0
    Top = 0
    Width = 496
    Height = 200
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      496
      200)
    object lblAct: TLabel
      Left = 12
      Top = 4
      Width = 34
      Height = 13
      Caption = 'Activity'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object lblLoc: TLabel
      Left = 187
      Top = 149
      Width = 28
      Height = 13
      Caption = 'Clinic:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 187
      Top = 105
      Width = 70
      Height = 13
      Caption = 'Resp Provider:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 187
      Top = 63
      Width = 69
      Height = 13
      Caption = 'Date of Onset:'
    end
    object rgStatus: TKeyClickRadioGroup
      Left = 9
      Top = 64
      Width = 81
      Height = 124
      Caption = 'Status'
      ItemIndex = 0
      Items.Strings = (
        'Active'
        'Inactive')
      TabOrder = 2
      TabStop = True
      OnClick = rgStatusClick
    end
    object rgStage: TKeyClickRadioGroup
      Left = 92
      Top = 64
      Width = 87
      Height = 124
      Caption = 'Immediacy'
      Ctl3D = True
      ItemIndex = 2
      Items.Strings = (
        'Acute'
        'Chronic'
        '<unknown>')
      ParentCtl3D = False
      TabOrder = 3
      TabStop = True
      OnClick = ControlChange
    end
    object bbChangeProb: TBitBtn
      Left = 318
      Top = 18
      Width = 124
      Height = 21
      Anchors = [akTop, akRight]
      Caption = 'Change problem...'
      TabOrder = 1
      OnClick = bbChangeProbClick
      Layout = blGlyphBottom
    end
    object edProb: TCaptionEdit
      Left = 9
      Top = 19
      Width = 296
      Height = 21
      Hint = 'Problem Name'
      Anchors = [akLeft, akTop, akRight]
      ReadOnly = True
      TabOrder = 0
      Text = 'Problem Title'
      OnChange = ControlChange
      Caption = 'Activity'
    end
    object gbTreatment: TGroupBox
      Left = 310
      Top = 58
      Width = 181
      Height = 142
      Anchors = [akTop, akRight]
      Caption = 'Treatment Factors'
      TabOrder = 8
      DesignSize = (
        181
        142)
      object ckSC: TCheckBox
        Left = 7
        Top = 15
        Width = 160
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Service Connected '
        Enabled = False
        TabOrder = 0
        OnClick = ControlChange
      end
      object ckRad: TCheckBox
        Left = 7
        Top = 50
        Width = 154
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Radiation '
        Enabled = False
        TabOrder = 2
        OnClick = ControlChange
      end
      object ckAO: TCheckBox
        Left = 7
        Top = 32
        Width = 154
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Agent Orange '
        Enabled = False
        TabOrder = 1
        OnClick = ControlChange
      end
      object ckENV: TCheckBox
        Left = 7
        Top = 68
        Width = 149
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Southwest &Asia Conditions'
        Enabled = False
        TabOrder = 3
        OnClick = ControlChange
      end
      object ckHNC: TCheckBox
        Left = 7
        Top = 119
        Width = 149
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Head and/or Neck Cancer'
        Enabled = False
        TabOrder = 6
        OnClick = ControlChange
      end
      object ckMST: TCheckBox
        Left = 7
        Top = 102
        Width = 149
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'MST'
        Enabled = False
        TabOrder = 5
        OnClick = ControlChange
      end
      object ckSHAD: TCheckBox
        Left = 7
        Top = 85
        Width = 170
        Height = 17
        Caption = 'Shipboard Hazard and Defense'
        TabOrder = 4
      end
    end
    object cbServ: TORComboBox
      Left = 186
      Top = 166
      Width = 113
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      Style = orcsDropDown
      AutoSelect = True
      Caption = 'Service:'
      Color = clWindow
      DropDownCount = 8
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = True
      LongList = True
      LookupPiece = 0
      MaxLength = 0
      ParentFont = False
      Pieces = '2'
      Sorted = False
      SynonymChars = '<>'
      TabOrder = 7
      Visible = False
      OnChange = ControlChange
      OnNeedData = cbServNeedData
      CharsNeedMatch = 1
    end
    object cbLoc: TORComboBox
      Left = 185
      Top = 168
      Width = 113
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      Style = orcsDropDown
      AutoSelect = True
      Color = clWindow
      DropDownCount = 8
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = True
      LongList = True
      LookupPiece = 0
      MaxLength = 0
      ParentFont = False
      Pieces = '2'
      Sorted = False
      SynonymChars = '<>'
      TabOrder = 6
      OnChange = ControlChange
      OnClick = cbLocClick
      OnKeyPress = cbLocKeyPress
      OnNeedData = cbLocNeedData
      CharsNeedMatch = 1
    end
    object cbProv: TORComboBox
      Left = 186
      Top = 122
      Width = 113
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      Style = orcsDropDown
      AutoSelect = True
      Caption = 'Resp Provider'
      Color = clWindow
      DropDownCount = 8
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = True
      LongList = True
      LookupPiece = 2
      MaxLength = 0
      ParentFont = False
      Pieces = '2,3'
      Sorted = False
      SynonymChars = '<>'
      TabOrder = 5
      OnChange = ControlChange
      OnClick = cbProvClick
      OnKeyPress = cbProvKeyPress
      OnNeedData = cbProvNeedData
      CharsNeedMatch = 1
    end
    object edOnsetdate: TCaptionEdit
      Left = 187
      Top = 79
      Width = 113
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 4
      Text = 'Today'
      OnChange = ControlChange
      Caption = 'Date of Onset'
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Left = 472
    Data = (
      (
        'Component = pnlComments'
        'Status = stsDefault')
      (
        'Component = lblCom'
        'Status = stsDefault')
      (
        'Component = bbAdd'
        'Property = Hint'
        'Status = stsOK')
      (
        'Component = bbRemove'
        'Property = Hint'
        'Status = stsOK')
      (
        'Component = lstComments'
        'Property = Caption'
        'Status = stsOK')
      (
        'Component = bbEdit'
        'Property = Hint'
        'Status = stsOK')
      (
        'Component = pnlBottom'
        'Status = stsDefault')
      (
        'Component = bbQuit'
        'Property = Hint'
        'Status = stsOK')
      (
        'Component = bbFile'
        'Property = Hint'
        'Status = stsOK')
      (
        'Component = ckVerify'
        'Property = Caption'
        'Status = stsOK')
      (
        'Component = edRecDate'
        'Label = Label1'
        'Status = stsOK')
      (
        'Component = edResDate'
        'Status = stsDefault')
      (
        'Component = edUpdate'
        'Status = stsDefault')
      (
        'Component = pnlTop'
        'Status = stsDefault')
      (
        'Component = rgStatus'
        'Property = Caption'
        'Status = stsOK')
      (
        'Component = rgStage'
        'Property = Caption'
        'Status = stsOK')
      (
        'Component = bbChangeProb'
        'Property = Caption'
        'Status = stsOK')
      (
        'Component = edProb'
        'Property = Hint'
        'Status = stsOK')
      (
        'Component = gbTreatment'
        'Property = Caption'
        'Status = stsOK')
      (
        'Component = ckSC'
        'Status = stsDefault')
      (
        'Component = ckRad'
        'Status = stsDefault')
      (
        'Component = ckAO'
        'Status = stsDefault')
      (
        'Component = ckENV'
        'Status = stsDefault')
      (
        'Component = ckHNC'
        'Status = stsDefault')
      (
        'Component = ckMST'
        'Status = stsDefault')
      (
        'Component = ckSHAD'
        'Status = stsDefault')
      (
        'Component = cbServ'
        'Property = Caption'
        'Status = stsOK')
      (
        'Component = cbLoc'
        'Label = lblLoc'
        'Status = stsOK')
      (
        'Component = cbProv'
        'Text = Responsible Provider'
        'Status = stsOK')
      (
        'Component = edOnsetdate'
        'Property = Caption'
        'Status = stsOK')
      (
        'Component = frmdlgProb'
        'Status = stsDefault'))
  end
end