object frmdlgProb: TfrmdlgProb
  Left = 387
  Top = 172
  Width = 504
  Height = 385
  HelpContext = 2000
  BorderIcons = []
  Caption = 'frmdlgProb'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 6
    Top = 357
    Width = 47
    Height = 13
    Caption = 'Recorded'
    Visible = False
  end
  object Label5: TLabel
    Left = 4
    Top = 368
    Width = 45
    Height = 13
    Caption = 'Resolved'
    Visible = False
  end
  object Label7: TLabel
    Left = 8
    Top = 382
    Width = 41
    Height = 13
    Caption = 'Updated'
    Visible = False
  end
  object pnlComments: TPanel
    Left = 0
    Top = 200
    Width = 496
    Height = 124
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 5
    DesignSize = (
      496
      124)
    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 = 2
      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 = 3
      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 = 6
      OnClick = bbEditClick
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
  end
  object pnlBottom: TPanel
    Left = 0
    Top = 324
    Width = 496
    Height = 27
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      496
      27)
    object bbQuit: TBitBtn
      Left = 299
      Top = 4
      Width = 78
      Height = 21
      Anchors = [akTop, akRight]
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 0
      OnClick = bbQuitClick
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object bbFile: TBitBtn
      Left = 381
      Top = 4
      Width = 78
      Height = 21
      Anchors = [akTop, akRight]
      Caption = 'OK'
      ModalResult = 1
      TabOrder = 1
      OnClick = bbFileClick
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object ckVerify: TCheckBox
      Left = 15
      Top = 7
      Width = 130
      Height = 15
      TabStop = False
      Caption = 'Problem Verified'
      TabOrder = 2
      Visible = False
    end
    object edRecDate: TCaptionEdit
      Left = 145
      Top = 7
      Width = 94
      Height = 21
      TabStop = False
      Color = clInactiveCaptionText
      Enabled = False
      TabOrder = 3
      Text = 'Today'
      Visible = False
      OnChange = ControlChange
      Caption = 'Rec Date'
    end
  end
  object edResDate: TCaptionEdit
    Left = 66
    Top = 365
    Width = 94
    Height = 21
    TabStop = False
    Color = clInactiveCaptionText
    Enabled = False
    TabOrder = 0
    Text = 'Today'
    Visible = False
    OnChange = ControlChange
    Caption = 'Res Date'
  end
  object edUpdate: TCaptionEdit
    Left = 67
    Top = 376
    Width = 94
    Height = 21
    TabStop = False
    Color = clInactiveCaptionText
    Enabled = False
    TabOrder = 1
    Text = 'Today'
    Visible = False
    OnChange = ControlChange
    Caption = 'Update'
  end
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 496
    Height = 200
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 6
    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 = 0
      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 = 1
      TabStop = True
      OnClick = ControlChange
    end
    object bbChangeProb: TBitBtn
      Left = 318
      Top = 18
      Width = 124
      Height = 21
      Anchors = [akTop, akRight]
      Caption = 'Change problem...'
      TabOrder = 2
      OnClick = bbChangeProbClick
      Layout = blGlyphBottom
    end
    object edProb: TCaptionEdit
      Left = 9
      Top = 19
      Width = 296
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      ReadOnly = True
      TabOrder = 3
      Text = 'Problem Title'
      OnChange = ControlChange
      Caption = 'Activity'
    end
    object gbTreatment: TGroupBox
      Left = 310
      Top = 62
      Width = 181
      Height = 126
      Anchors = [akTop, akRight]
      Caption = 'Treatment Factors'
      TabOrder = 5
      DesignSize = (
        181
        126)
      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 = 33
        Width = 154
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Radiation '
        Enabled = False
        TabOrder = 1
        OnClick = ControlChange
      end
      object ckAO: TCheckBox
        Left = 7
        Top = 51
        Width = 154
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Agent Orange '
        Enabled = False
        TabOrder = 2
        OnClick = ControlChange
      end
      object ckENV: TCheckBox
        Left = 7
        Top = 69
        Width = 149
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Env. Contaminants '
        Enabled = False
        TabOrder = 3
        OnClick = ControlChange
      end
      object ckHNC: TCheckBox
        Left = 7
        Top = 87
        Width = 149
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Head and/or Neck Cancer'
        Enabled = False
        TabOrder = 4
        OnClick = ControlChange
      end
      object ckMST: TCheckBox
        Left = 7
        Top = 105
        Width = 149
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'MST'
        Enabled = False
        TabOrder = 5
        OnClick = ControlChange
      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 = 6
      Visible = False
      OnChange = ControlChange
      OnNeedData = cbServNeedData
      CharsNeedMatch = 1
    end
    object cbLoc: TORComboBox
      Left = 186
      Top = 166
      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 = 7
      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 = 8
      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 = 9
      Text = 'Today'
      OnChange = ControlChange
      Caption = 'Date of Onset'
    end
  end
  object DKLanguageController1: TDKLanguageController
    Left = 464
    Top = 32
    LangData = {
      0A0066726D646C6750726F62010100000001000000070043617074696F6E0127
      00000006004C6162656C31010100000002000000070043617074696F6E000600
      4C6162656C35010100000003000000070043617074696F6E0006004C6162656C
      37010100000004000000070043617074696F6E000B00706E6C436F6D6D656E74
      7300000600426576656C3100000A006C626C436D744461746501010000000500
      0000070043617074696F6E000A006C626C436F6D6D656E740101000000060000
      00070043617074696F6E0006006C626C436F6D01010000000700000007004361
      7074696F6E0005006262416464010200000009000000070043617074696F6E08
      000000040048696E74000800626252656D6F766501020000000B000000070043
      617074696F6E0A000000040048696E74000B006C7374436F6D6D656E74730101
      0000000C000000070043617074696F6E00060062624564697401020000000E00
      0000070043617074696F6E0D000000040048696E74000900706E6C426F74746F
      6D0000060062625175697401010000000F000000070043617074696F6E000600
      626246696C65010100000010000000070043617074696F6E000800636B566572
      696679010100000011000000070043617074696F6E0009006564526563446174
      65010200000013000000070043617074696F6E12000000040054657874000900
      656452657344617465010200000015000000070043617074696F6E1400000004
      0054657874000800656455706461746501020000001700000007004361707469
      6F6E16000000040054657874000600706E6C546F70000006006C626C41637401
      0100000018000000070043617074696F6E0006006C626C4C6F63010100000019
      000000070043617074696F6E0006004C6162656C3301010000001A0000000700
      43617074696F6E0006004C6162656C3601010000001B00000007004361707469
      6F6E000800726753746174757301020000001C000000070043617074696F6E1D
      00000005004974656D730007007267537461676501020000001E000000070043
      617074696F6E1F00000005004974656D73000C0062624368616E676550726F62
      010100000020000000070043617074696F6E000600656450726F620102000000
      22000000070043617074696F6E21000000040054657874000B00676254726561
      746D656E74010100000023000000070043617074696F6E000400636B53430101
      00000024000000070043617074696F6E000500636B5261640101000000250000
      00070043617074696F6E000400636B414F010100000026000000070043617074
      696F6E000500636B454E56010100000027000000070043617074696F6E000500
      636B484E43010100000028000000070043617074696F6E000500636B4D535401
      0100000029000000070043617074696F6E00060063625365727601010000002A
      000000070043617074696F6E00050063624C6F6300000600636250726F760101
      0000002B000000070043617074696F6E000B0065644F6E736574646174650102
      0000002D000000070043617074696F6E2C00000004005465787400}
  end
end