inherited frmProblems: TfrmProblems
  Left = 269
  Top = 172
  Width = 639
  Height = 409
  HelpContext = 2000
  Caption = 'Problems List Page'
  HelpFile = 'overvw'
  Menu = mnuProbs
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited shpPageBottom: TShape
    Top = 350
    Width = 631
    Constraints.MinHeight = 5
  end
  inherited sptHorz: TSplitter
    Left = 159
    Width = 2
    Height = 350
    OnMoved = sptHorzMoved
  end
  inherited pnlLeft: TPanel
    Width = 159
    Height = 350
    TabStop = True
    object pnlButtons: TPanel
      Left = 0
      Top = 304
      Width = 159
      Height = 46
      Align = alBottom
      BevelOuter = bvNone
      Constraints.MinHeight = 46
      TabOrder = 3
      object bbOtherProb: TORAlignButton
        Left = 0
        Top = 2
        Width = 159
        Height = 22
        Caption = 'Other Problem'
        TabOrder = 0
        OnClick = bbOtherProbClick
        OnExit = bbNewProbExit
        OnMouseMove = FormMouseMove
        Align = alBottom
      end
      object bbCancel: TORAlignButton
        Left = 0
        Top = 24
        Width = 159
        Height = 22
        Caption = 'Cancel'
        TabOrder = 1
        OnClick = bbCancelClick
        OnExit = bbNewProbExit
        OnMouseMove = FormMouseMove
        Align = alBottom
      end
    end
    object pnlView: TPanel
      Left = 0
      Top = 0
      Width = 159
      Height = 304
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object lblView: TOROffsetLabel
        Left = 0
        Top = 0
        Width = 159
        Height = 19
        Align = alTop
        Caption = 'View options'
        HorzOffset = 2
        Transparent = False
        VertOffset = 6
        WordWrap = False
      end
      object lstView: TORListBox
        Left = 0
        Top = 19
        Width = 159
        Height = 97
        Align = alTop
        ExtendedSelect = False
        ItemHeight = 13
        Items.Strings = (
          'A^Active'
          'I^Inactive'
          'B^Both active and inactive'
          'R^Removed')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = lstViewClick
        OnExit = lstViewExit
        OnMouseMove = FormMouseMove
        Caption = 'View options'
        ItemTipColor = clWindow
        LongList = False
        Pieces = '2'
      end
      object bbNewProb: TORAlignButton
        Tag = 100
        Left = 0
        Top = 116
        Width = 159
        Height = 24
        Caption = 'New problem'
        TabOrder = 1
        OnClick = lstProbActsClick
        OnExit = bbNewProbExit
        OnMouseMove = FormMouseMove
        Align = alTop
      end
    end
    object pnlProbEnt: TPanel
      Left = 0
      Top = 0
      Width = 159
      Height = 304
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 2
      Visible = False
      OnResize = pnlProbEntResize
      object lblProbEnt: TLabel
        Left = 0
        Top = 270
        Width = 159
        Height = 13
        Align = alBottom
        AutoSize = False
        Caption = 'Enter new problem:'
      end
      object edProbEnt: TCaptionEdit
        Left = 0
        Top = 283
        Width = 159
        Height = 21
        TabOrder = 0
        OnExit = lstViewExit
        OnKeyPress = edProbEntKeyPress
        Align = alBottom
        Caption = 'Enter new problem'
      end
    end
    object pnlProbList: TORAutoPanel
      Left = 0
      Top = 0
      Width = 159
      Height = 304
      Align = alClient
      BevelOuter = bvNone
      Constraints.MinHeight = 90
      TabOrder = 0
      object sptProbPanel: TSplitter
        Left = 0
        Top = 157
        Width = 159
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object pnlProbCats: TPanel
        Left = 0
        Top = 0
        Width = 159
        Height = 157
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object lblProbCats: TLabel
          Left = 0
          Top = 0
          Width = 159
          Height = 13
          Align = alTop
          AutoSize = False
          Caption = 'Problem categories'
        end
        object lstCatPick: TORListBox
          Left = 0
          Top = 13
          Width = 159
          Height = 144
          Hint = 'Select problem category'
          Align = alClient
          ExtendedSelect = False
          ItemHeight = 13
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = lstCatPickClick
          OnExit = lstViewExit
          OnMouseMove = FormMouseMove
          Caption = 'Problem categories'
          ItemTipColor = clWindow
          LongList = False
          Pieces = '2'
        end
      end
      object pnlProbs: TPanel
        Left = 0
        Top = 160
        Width = 159
        Height = 144
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object lblProblems: TLabel
          Left = 0
          Top = 0
          Width = 159
          Height = 13
          Align = alTop
          AutoSize = False
          Caption = 'Problems'
          Constraints.MaxHeight = 13
          Constraints.MinHeight = 13
        end
        object lstProbPick: TORListBox
          Left = 0
          Top = 13
          Width = 159
          Height = 131
          Hint = 'Select problem to add'
          Align = alClient
          Ctl3D = False
          ExtendedSelect = False
          ItemHeight = 13
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = lstProbPickClick
          OnDblClick = lstProbPickDblClick
          Caption = 'Problems'
          ItemTipColor = clWindow
          LongList = False
          Pieces = '2,3'
        end
      end
    end
  end
  inherited pnlRight: TPanel
    Left = 161
    Width = 470
    Height = 350
    OnExit = pnlRightExit
    OnResize = pnlRightResize
    object lblProbList: TOROffsetLabel
      Left = 0
      Top = 0
      Width = 470
      Height = 19
      Align = alTop
      Caption = 'Active Problems List'
      HorzOffset = 2
      Transparent = False
      VertOffset = 6
      WordWrap = False
    end
    object pnlProbDlg: TPanel
      Left = 0
      Top = 36
      Width = 470
      Height = 314
      Align = alClient
      TabOrder = 0
      Visible = False
      OnMouseMove = FormMouseMove
    end
    object wgProbData: TCaptionListBox
      Left = 0
      Top = 36
      Width = 470
      Height = 314
      Style = lbOwnerDrawVariable
      Align = alClient
      Color = clCream
      ItemHeight = 13
      MultiSelect = True
      ParentShowHint = False
      PopupMenu = popProb
      ShowHint = True
      TabOrder = 1
      OnClick = wgProbDataClick
      OnDblClick = wgProbDataDblClick
      OnDrawItem = wgProbDataDrawItem
      OnMeasureItem = wgProbDataMeasureItem
      OnMouseMove = FormMouseMove
      Caption = 'Active Problems List'
    end
    object HeaderControl: THeaderControl
      Left = 0
      Top = 19
      Width = 470
      Height = 17
      Sections = <
        item
          ImageIndex = -1
          Text = 'Column 0'
          Width = 0
        end
        item
          ImageIndex = -1
          Text = 'Stat/Ver'
          Width = 65
        end
        item
          ImageIndex = -1
          MinWidth = 20
          Text = 'Description'
          Width = 65
        end
        item
          ImageIndex = -1
          MinWidth = 16
          Text = 'Onset Date'
          Width = 65
        end
        item
          ImageIndex = -1
          MinWidth = 16
          Text = 'Last Updated'
          Width = 80
        end
        item
          ImageIndex = -1
          Text = 'Column 5'
          Width = 0
        end
        item
          ImageIndex = -1
          Text = 'Location'
          Width = 65
        end
        item
          ImageIndex = -1
          Text = 'Provider'
          Width = 65
        end
        item
          ImageIndex = -1
          Text = 'Service'
          Width = 65
        end
        item
          ImageIndex = -1
          Text = 'Column 9'
          Width = 0
        end
        item
          ImageIndex = -1
          Text = 'Column 10'
          Width = 0
        end
        item
          ImageIndex = -1
          Text = 'Column 11'
          Width = 0
        end
        item
          ImageIndex = -1
          Text = 'Column12'
          Width = 0
        end
        item
          ImageIndex = -1
          Text = 'Column 13'
          Width = 0
        end
        item
          ImageIndex = -1
          Text = 'Column 14'
          Width = 0
        end
        item
          ImageIndex = -1
          Text = 'Inactive Flag'
          Width = 0
        end>
      OnSectionClick = HeaderControlSectionClick
      OnSectionResize = HeaderControlSectionResize
      OnMouseDown = HeaderControlMouseDown
      OnMouseUp = HeaderControlMouseUp
    end
  end
  inherited DKLanguageController1: TDKLanguageController
    LangData = {
      0B0066726D50726F626C656D73010200000001000000070043617074696F6E02
      000000080048656C7046696C6501540000000D0073687050616765426F74746F
      6D00000700737074486F727A00000700706E6C4C65667400000800706E6C5269
      67687400000A00706E6C427574746F6E7300000B0062624F7468657250726F62
      010100000003000000070043617074696F6E000800626243616E63656C010100
      000004000000070043617074696F6E000700706E6C56696577000007006C626C
      56696577010100000005000000070043617074696F6E0007006C737456696577
      010200000007000000070043617074696F6E0600000005004974656D73000900
      62624E657750726F62010100000008000000070043617074696F6E000A00706E
      6C50726F62456E7400000A006C626C50726F62456E7401010000000900000007
      0043617074696F6E000900656450726F62456E7401010000000A000000070043
      617074696F6E000B00706E6C50726F624C69737400000C0073707450726F6250
      616E656C00000B00706E6C50726F624361747300000B006C626C50726F624361
      747301010000000B000000070043617074696F6E000A006C7374436174506963
      6B01020000000D000000070043617074696F6E0C000000040048696E74000800
      706E6C50726F627300000B006C626C50726F626C656D7301010000000E000000
      070043617074696F6E000B006C737450726F625069636B010200000010000000
      070043617074696F6E0F000000040048696E74000B006C626C50726F624C6973
      74010100000011000000070043617074696F6E000A00706E6C50726F62446C67
      00000A00776750726F6244617461010100000012000000070043617074696F6E
      000D00486561646572436F6E74726F6C01100000001300000010005365637469
      6F6E735B305D2E546578741D000000110053656374696F6E735B31305D2E5465
      78741E000000110053656374696F6E735B31315D2E546578741F000000110053
      656374696F6E735B31325D2E5465787420000000110053656374696F6E735B31
      335D2E5465787421000000110053656374696F6E735B31345D2E546578742200
      0000110053656374696F6E735B31355D2E546578741400000010005365637469
      6F6E735B315D2E5465787415000000100053656374696F6E735B325D2E546578
      7416000000100053656374696F6E735B335D2E54657874170000001000536563
      74696F6E735B345D2E5465787418000000100053656374696F6E735B355D2E54
      65787419000000100053656374696F6E735B365D2E546578741A000000100053
      656374696F6E735B375D2E546578741B000000100053656374696F6E735B385D
      2E546578741C000000100053656374696F6E735B395D2E54657874000700706F
      7050726F6200000900706F704368616E67650101000000230000000700436170
      74696F6E000D00706F70496E6163746976617465010100000024000000070043
      617074696F6E000900706F705665726966790101000000250000000700436170
      74696F6E0003004E333600000B00706F70416E6E6F7461746501010000002600
      0000070043617074696F6E0003004E333700000900706F7052656D6F76650101
      00000027000000070043617074696F6E000A00706F70526573746F7265010100
      000028000000070043617074696F6E0002004E3300000E00706F705669657744
      657461696C73010100000029000000070043617074696F6E0011006D6E754F70
      74696D697A654669656C647301010000002A000000070043617074696F6E0008
      006D6E7550726F6273000007006D6E755669657701010000002B000000070043
      617074696F6E000C006D6E7556696577436861727401010000002C0000000700
      43617074696F6E000D006D6E754368617274436F76657201010000002D000000
      070043617074696F6E000D006D6E75436861727450726F627301010000002E00
      0000070043617074696F6E000C006D6E7543686172744D65647301010000002F
      000000070043617074696F6E000E006D6E7543686172744F7264657273010100
      000030000000070043617074696F6E000D006D6E7543686172744E6F74657301
      0100000031000000070043617074696F6E000D006D6E75436861727443736C74
      73010100000032000000070043617074696F6E000F006D6E7543686172745375
      7267657279010100000033000000070043617074696F6E000E006D6E75436861
      7274444353756D6D010100000034000000070043617074696F6E000C006D6E75
      43686172744C616273010100000035000000070043617074696F6E000F006D6E
      7543686172745265706F727473010100000036000000070043617074696F6E00
      12006D6E7556696577496E666F726D6174696F6E010100000037000000070043
      617074696F6E000B006D6E755669657744656D6F010100000038000000070043
      617074696F6E000D006D6E755669657756697369747301010000003900000007
      0043617074696F6E0012006D6E75566965775072696D61727943617265010100
      00003A000000070043617074696F6E0013006D6E75566965774D794865616C74
      686556657401010000003B000000070043617074696F6E000C006D6E75496E73
      7572616E636501010000003C000000070043617074696F6E000C006D6E755669
      6577466C61677301010000003D000000070043617074696F6E0011006D6E7556
      69657752656D6F74654461746101010000003E000000070043617074696F6E00
      10006D6E755669657752656D696E6465727301010000003F0000000700436170
      74696F6E000F006D6E7556696577506F7374696E677301010000004000000007
      0043617074696F6E0002005A3100000D006D6E75566965774163746976650101
      00000041000000070043617074696F6E000F006D6E7556696577496E61637469
      7665010100000042000000070043617074696F6E000B006D6E7556696577426F
      7468010100000043000000070043617074696F6E000E006D6E75566965775265
      6D6F766564010100000044000000070043617074696F6E000E006D6E75566965
      7746696C74657273010100000045000000070043617074696F6E000F006D6E75
      56696577436F6D6D656E7473010100000046000000070043617074696F6E0002
      004E3200000B006D6E7556696577536176650101000000470000000700436170
      74696F6E0015006D6E7556696577526573746F726544656661756C7401010000
      0048000000070043617074696F6E0006006D6E75416374010100000049000000
      070043617074696F6E0009006D6E754163744E657701010000004A0000000700
      43617074696F6E0002005A3300000C006D6E754163744368616E676501010000
      004B000000070043617074696F6E0010006D6E75416374496E61637469766174
      6501010000004C000000070043617074696F6E000C006D6E7541637456657269
      667901010000004D000000070043617074696F6E0002004E3100000E006D6E75
      416374416E6E6F7461746501010000004E000000070043617074696F6E000200
      5A3400000C006D6E7541637452656D6F766501010000004F0000000700436170
      74696F6E000D006D6E75416374526573746F7265010100000050000000070043
      617074696F6E0002004E3400000D006D6E7541637444657461696C7301010000
      0051000000070043617074696F6E00}
  end
  object popProb: TPopupMenu
    Left = 282
    Top = 313
    object popChange: TMenuItem
      Tag = 400
      Caption = '&Change...'
      Enabled = False
      OnClick = lstProbActsClick
    end
    object popInactivate: TMenuItem
      Tag = 200
      Caption = '&Inactivate'
      Enabled = False
      OnClick = lstProbActsClick
    end
    object popVerify: TMenuItem
      Tag = 250
      Caption = '&Verify...'
      Enabled = False
      OnClick = lstProbActsClick
    end
    object N36: TMenuItem
      Caption = '-'
      Enabled = False
    end
    object popAnnotate: TMenuItem
      Tag = 600
      Caption = '&Annotate...'
      Enabled = False
      OnClick = lstProbActsClick
    end
    object N37: TMenuItem
      Caption = '-'
      Enabled = False
      Visible = False
    end
    object popRemove: TMenuItem
      Tag = 500
      Caption = '&Remove...'
      Enabled = False
      OnClick = lstProbActsClick
    end
    object popRestore: TMenuItem
      Tag = 550
      Caption = 'Re&store'
      Enabled = False
      OnClick = lstProbActsClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object popViewDetails: TMenuItem
      Tag = 300
      Caption = 'View Details'
      OnClick = lstProbActsClick
    end
    object mnuOptimizeFields: TMenuItem
      Caption = 'Adjust Column Size'
      Visible = False
      OnClick = mnuOptimizeFieldsClick
    end
  end
  object mnuProbs: TMainMenu
    Left = 243
    Top = 313
    object mnuView: TMenuItem
      Caption = '&View'
      GroupIndex = 3
      object mnuViewChart: TMenuItem
        Caption = 'Chart &Tab'
        object mnuChartCover: TMenuItem
          Tag = 1
          Caption = 'Cover &Sheet'
          ShortCut = 16467
          OnClick = mnuChartTabClick
        end
        object mnuChartProbs: TMenuItem
          Tag = 2
          Caption = '&Problem List'
          ShortCut = 16464
          OnClick = mnuChartTabClick
        end
        object mnuChartMeds: TMenuItem
          Tag = 3
          Caption = '&Medications'
          ShortCut = 16461
          OnClick = mnuChartTabClick
        end
        object mnuChartOrders: TMenuItem
          Tag = 4
          Caption = '&Orders'
          ShortCut = 16463
          OnClick = mnuChartTabClick
        end
        object mnuChartNotes: TMenuItem
          Tag = 6
          Caption = 'Progress &Notes'
          ShortCut = 16462
          OnClick = mnuChartTabClick
        end
        object mnuChartCslts: TMenuItem
          Tag = 7
          Caption = 'Consul&ts'
          ShortCut = 16468
          OnClick = mnuChartTabClick
        end
        object mnuChartSurgery: TMenuItem
          Tag = 11
          Caption = 'S&urgery'
          ShortCut = 16469
          OnClick = mnuChartTabClick
        end
        object mnuChartDCSumm: TMenuItem
          Tag = 8
          Caption = '&Discharge Summaries'
          ShortCut = 16452
          OnClick = mnuChartTabClick
        end
        object mnuChartLabs: TMenuItem
          Tag = 9
          Caption = '&Laboratory'
          ShortCut = 16460
          OnClick = mnuChartTabClick
        end
        object mnuChartReports: TMenuItem
          Tag = 10
          Caption = '&Reports'
          ShortCut = 16466
          OnClick = mnuChartTabClick
        end
      end
      object mnuViewInformation: TMenuItem
        Caption = 'Information'
        OnClick = mnuViewInformationClick
        object mnuViewDemo: TMenuItem
          Tag = 1
          Caption = 'De&mographics...'
          OnClick = ViewInfo
        end
        object mnuViewVisits: TMenuItem
          Tag = 2
          Caption = 'Visits/Pr&ovider...'
          OnClick = ViewInfo
        end
        object mnuViewPrimaryCare: TMenuItem
          Tag = 3
          Caption = 'Primary &Care...'
          OnClick = ViewInfo
        end
        object mnuViewMyHealtheVet: TMenuItem
          Tag = 4
          Caption = 'MyHealthe&Vet...'
          OnClick = ViewInfo
        end
        object mnuInsurance: TMenuItem
          Tag = 5
          Caption = '&Insurance...'
          OnClick = ViewInfo
        end
        object mnuViewFlags: TMenuItem
          Tag = 6
          Caption = '&Flags...'
          OnClick = ViewInfo
        end
        object mnuViewRemoteData: TMenuItem
          Tag = 7
          Caption = 'Remote &Data...'
          OnClick = ViewInfo
        end
        object mnuViewReminders: TMenuItem
          Tag = 8
          Caption = '&Reminders...'
          Enabled = False
          OnClick = ViewInfo
        end
        object mnuViewPostings: TMenuItem
          Tag = 9
          Caption = '&Postings...'
          OnClick = ViewInfo
        end
      end
      object Z1: TMenuItem
        Caption = '-'
      end
      object mnuViewActive: TMenuItem
        Tag = 700
        Caption = '&Active Problems'
        OnClick = lstProbActsClick
      end
      object mnuViewInactive: TMenuItem
        Tag = 800
        Caption = '&Inactive Problems'
        OnClick = lstProbActsClick
      end
      object mnuViewBoth: TMenuItem
        Tag = 900
        Caption = '&Both Active/Inactive Problems'
        OnClick = lstProbActsClick
      end
      object mnuViewRemoved: TMenuItem
        Tag = 950
        Caption = '&Removed Problems'
        OnClick = lstProbActsClick
      end
      object mnuViewFilters: TMenuItem
        Tag = 975
        Caption = 'Fi&lters...'
        OnClick = lstProbActsClick
      end
      object mnuViewComments: TMenuItem
        Caption = 'Show &Comments'
        OnClick = mnuViewCommentsClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuViewSave: TMenuItem
        Caption = 'Sa&ve as Default View'
        OnClick = mnuViewSaveClick
      end
      object mnuViewRestoreDefault: TMenuItem
        Caption = 'Return to De&fault View'
        OnClick = mnuViewRestoreDefaultClick
      end
    end
    object mnuAct: TMenuItem
      Caption = '&Action'
      GroupIndex = 4
      object mnuActNew: TMenuItem
        Tag = 100
        Caption = '&New Problem...'
        OnClick = lstProbActsClick
      end
      object Z3: TMenuItem
        Caption = '-'
      end
      object mnuActChange: TMenuItem
        Tag = 400
        Caption = '&Change...'
        Enabled = False
        OnClick = lstProbActsClick
      end
      object mnuActInactivate: TMenuItem
        Tag = 200
        Caption = '&Inactivate'
        Enabled = False
        OnClick = lstProbActsClick
      end
      object mnuActVerify: TMenuItem
        Tag = 250
        Caption = '&Verify...'
        Enabled = False
        OnClick = lstProbActsClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnuActAnnotate: TMenuItem
        Tag = 600
        Caption = '&Annotate...'
        Enabled = False
        OnClick = lstProbActsClick
      end
      object Z4: TMenuItem
        Caption = '-'
        Visible = False
      end
      object mnuActRemove: TMenuItem
        Tag = 500
        Caption = '&Remove'
        Enabled = False
        OnClick = lstProbActsClick
      end
      object mnuActRestore: TMenuItem
        Tag = 550
        Caption = 'Re&store'
        Enabled = False
        OnClick = lstProbActsClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mnuActDetails: TMenuItem
        Tag = 300
        Caption = 'View &Details'
        Enabled = False
        OnClick = lstProbActsClick
      end
    end
  end
end