inherited frmMeds: TfrmMeds
  Left = 244
  Top = 46
  Width = 709
  Height = 686
  HelpContext = 3000
  VertScrollBar.Visible = False
  Caption = 'Medications Page'
  HelpFile = 'qnoback'
  Menu = mnuMeds
  Visible = True
  OnDestroy = FormDestroy
  OnMouseUp = FormMouseUp
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited shpPageBottom: TShape
    Top = 524
    Width = 1028
    Height = -4
    Align = alCustom
  end
  object splitTop: TSplitter [1]
    Left = 0
    Top = 421
    Width = 701
    Height = 4
    Cursor = crVSplit
    Align = alBottom
    AutoSnap = False
    Color = clBtnFace
    Constraints.MaxHeight = 4
    Constraints.MinHeight = 4
    MinSize = 100
    ParentColor = False
    OnMoved = splitTopMoved
  end
  object pnlBottom: TORAutoPanel [2]
    Left = 0
    Top = 425
    Width = 701
    Height = 207
    Align = alBottom
    Constraints.MinHeight = 40
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object splitBottom: TSplitter
      Left = 1
      Top = 102
      Width = 699
      Height = 4
      Cursor = crVSplit
      Align = alBottom
      AutoSnap = False
      Color = clBtnFace
      Constraints.MaxHeight = 4
      Constraints.MinHeight = 4
      MinSize = 100
      ParentColor = False
      OnMoved = splitBottomMoved
    end
    object pnlMedIn: TPanel
      Left = 1
      Top = 106
      Width = 699
      Height = 100
      Align = alBottom
      Constraints.MinHeight = 100
      TabOrder = 0
      object lstMedsIn: TCaptionListBox
        Tag = 2
        Left = 1
        Top = 17
        Width = 697
        Height = 82
        Style = lbOwnerDrawVariable
        Align = alClient
        Color = clCream
        Constraints.MinHeight = 65
        Ctl3D = False
        ItemHeight = 13
        MultiSelect = True
        ParentCtl3D = False
        PopupMenu = popMed
        TabOrder = 0
        OnClick = lstMedsInClick
        OnDblClick = lstMedsDblClick
        OnDrawItem = lstMedsDrawItem
        OnExit = lstMedsExit
        OnMeasureItem = lstMedsMeasureItem
        Caption = 'Inpatient Medications'
      end
      object hdrMedsIn: THeaderControl
        Left = 1
        Top = 1
        Width = 697
        Height = 16
        BiDiMode = bdLeftToRight
        Constraints.MinHeight = 16
        Sections = <
          item
            ImageIndex = -1
            MinWidth = 42
            Text = 'Action'
            Width = 42
          end
          item
            ImageIndex = -1
            MinWidth = 20
            Text = 'Inpatient Medications'
            Width = 100
          end
          item
            ImageIndex = -1
            MinWidth = 16
            Text = 'Stop Date'
            Width = 62
          end
          item
            ImageIndex = -1
            MinWidth = 16
            Text = 'Status'
            Width = 62
          end
          item
            ImageIndex = -1
            MinWidth = 16
            Text = 'Location'
            Width = 20
          end>
        OnSectionClick = hdrMedsInSectionClick
        OnSectionResize = hdrMedsInSectionResize
        ParentBiDiMode = False
        OnMouseDown = hdrMedsInMouseDown
        OnMouseUp = hdrMedsInMouseUp
        OnResize = hdrMedsInResize
      end
    end
    object pnlNonVA: TPanel
      Left = 1
      Top = 1
      Width = 699
      Height = 101
      Align = alClient
      Caption = 'pnlNonVA'
      Constraints.MinHeight = 40
      TabOrder = 1
      object lstMedsNonVA: TCaptionListBox
        Tag = 3
        Left = 1
        Top = 17
        Width = 697
        Height = 83
        Style = lbOwnerDrawVariable
        Align = alClient
        Color = clCream
        Constraints.MinHeight = 40
        Ctl3D = False
        ItemHeight = 13
        MultiSelect = True
        ParentCtl3D = False
        PopupMenu = popMed
        TabOrder = 0
        OnClick = lstMedsNonVAClick
        OnDblClick = lstMedsDblClick
        OnDrawItem = lstMedsDrawItem
        OnExit = lstMedsExit
        OnMeasureItem = lstMedsMeasureItem
        Caption = 'Inpatient Medications'
      end
      object hdrMedsNonVA: THeaderControl
        Left = 1
        Top = 1
        Width = 697
        Height = 16
        BiDiMode = bdLeftToRight
        Constraints.MinHeight = 16
        Sections = <
          item
            ImageIndex = -1
            MinWidth = 42
            Text = 'Action'
            Width = 42
          end
          item
            ImageIndex = -1
            MinWidth = 20
            Text = 'Outside Medications'
            Width = 100
          end
          item
            ImageIndex = -1
            MinWidth = 16
            Text = 'Start Date'
            Width = 62
          end
          item
            ImageIndex = -1
            MinWidth = 16
            Text = 'Status'
            Width = 62
          end>
        OnSectionClick = hdrMedsNonVASectionClick
        OnSectionResize = hdrMedsNonVASectionResize
        ParentBiDiMode = False
        OnMouseDown = hdrMedsNonVAMouseDown
        OnMouseUp = hdrMedsNonVAMouseUp
        OnResize = hdrMedsNonVAResize
      end
    end
  end
  object pnlTop: TORAutoPanel [3]
    Left = 0
    Top = 0
    Width = 701
    Height = 421
    Align = alClient
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    object lstMedsOut: TCaptionListBox
      Tag = 1
      Left = 1
      Top = 17
      Width = 699
      Height = 403
      Style = lbOwnerDrawVariable
      Align = alClient
      Color = clCream
      Constraints.MinHeight = 40
      Ctl3D = False
      ItemHeight = 13
      MultiSelect = True
      ParentCtl3D = False
      PopupMenu = popMed
      TabOrder = 0
      OnClick = lstMedsOutClick
      OnDblClick = lstMedsDblClick
      OnDrawItem = lstMedsDrawItem
      OnExit = lstMedsExit
      OnMeasureItem = lstMedsMeasureItem
      Caption = 'Outpatient Medications'
    end
    object hdrMedsOut: THeaderControl
      Left = 1
      Top = 1
      Width = 699
      Height = 16
      BiDiMode = bdLeftToRight
      Constraints.MinHeight = 16
      Sections = <
        item
          ImageIndex = -1
          MinWidth = 42
          Text = 'Action'
          Width = 42
        end
        item
          ImageIndex = -1
          MinWidth = 20
          Text = 'Outpatient Medications'
          Width = 100
        end
        item
          ImageIndex = -1
          MinWidth = 16
          Text = 'Expires'
          Width = 62
        end
        item
          ImageIndex = -1
          MinWidth = 16
          Text = 'Status'
          Width = 62
        end
        item
          ImageIndex = -1
          MinWidth = 16
          Text = 'Last Filled'
          Width = 62
        end
        item
          ImageIndex = -1
          MinWidth = 16
          Text = 'Refills Remaining'
          Width = 78
        end>
      OnSectionClick = hdrMedsOutSectionClick
      OnSectionResize = hdrMedsOutSectionResize
      ParentBiDiMode = False
      OnMouseDown = hdrMedsOutMouseDown
      OnMouseUp = hdrMedsOutMouseUp
      OnResize = hdrMedsOutResize
    end
  end
  inherited DKLanguageController1: TDKLanguageController
    LangData = {
      070066726D4D656473010200000001000000070043617074696F6E0200000008
      0048656C7046696C6501420000000D0073687050616765426F74746F6D000008
      0073706C6974546F7000000900706E6C426F74746F6D00000B0073706C697442
      6F74746F6D00000800706E6C4D6564496E000009006C73744D656473496E0101
      00000003000000070043617074696F6E0009006864724D656473496E01050000
      0004000000100053656374696F6E735B305D2E54657874050000001000536563
      74696F6E735B315D2E5465787406000000100053656374696F6E735B325D2E54
      65787407000000100053656374696F6E735B335D2E5465787408000000100053
      656374696F6E735B345D2E54657874000800706E6C4E6F6E5641010100000009
      000000070043617074696F6E000C006C73744D6564734E6F6E56410101000000
      0A000000070043617074696F6E000C006864724D6564734E6F6E564101040000
      000B000000100053656374696F6E735B305D2E546578740C0000001000536563
      74696F6E735B315D2E546578740D000000100053656374696F6E735B325D2E54
      6578740E000000100053656374696F6E735B335D2E54657874000600706E6C54
      6F7000000A006C73744D6564734F757401010000000F00000007004361707469
      6F6E000A006864724D6564734F7574010600000010000000100053656374696F
      6E735B305D2E5465787411000000100053656374696F6E735B315D2E54657874
      12000000100053656374696F6E735B325D2E5465787413000000100053656374
      696F6E735B335D2E5465787414000000100053656374696F6E735B345D2E5465
      787415000000100053656374696F6E735B355D2E546578740007006D6E754D65
      6473000007006D6E7556696577010100000016000000070043617074696F6E00
      0C006D6E75566965774368617274010100000017000000070043617074696F6E
      000D006D6E754368617274436F76657201010000001800000007004361707469
      6F6E000D006D6E75436861727450726F62730101000000190000000700436170
      74696F6E000C006D6E7543686172744D65647301010000001A00000007004361
      7074696F6E000E006D6E7543686172744F726465727301010000001B00000007
      0043617074696F6E000D006D6E7543686172744E6F74657301010000001C0000
      00070043617074696F6E000D006D6E75436861727443736C747301010000001D
      000000070043617074696F6E000F006D6E754368617274537572676572790101
      0000001E000000070043617074696F6E000E006D6E754368617274444353756D
      6D01010000001F000000070043617074696F6E000C006D6E7543686172744C61
      6273010100000020000000070043617074696F6E000F006D6E75436861727452
      65706F727473010100000021000000070043617074696F6E0012006D6E755669
      6577496E666F726D6174696F6E010100000022000000070043617074696F6E00
      0B006D6E755669657744656D6F010100000023000000070043617074696F6E00
      0D006D6E7556696577566973697473010100000024000000070043617074696F
      6E0012006D6E75566965775072696D6172794361726501010000002500000007
      0043617074696F6E0013006D6E75566965774D794865616C7468655665740101
      00000026000000070043617074696F6E000C006D6E75496E737572616E636501
      0100000027000000070043617074696F6E000C006D6E7556696577466C616773
      010100000028000000070043617074696F6E0011006D6E755669657752656D6F
      746544617461010100000029000000070043617074696F6E0010006D6E755669
      657752656D696E6465727301010000002A000000070043617074696F6E000F00
      6D6E7556696577506F7374696E677301010000002B000000070043617074696F
      6E0002005A3200000D006D6E755669657741637469766501010000002C000000
      070043617074696F6E000F006D6E75566965774578706972696E670101000000
      2D000000070043617074696F6E0002005A33000010006D6E7556696577536F72
      74436C61737301010000002E000000070043617074696F6E000F006D6E755669
      6577536F72744E616D6501010000002F000000070043617074696F6E0002005A
      3400000D006D6E755669657744657461696C0101000000300000000700436170
      74696F6E000E006D6E7556696577486973746F72790101000000310000000700
      43617074696F6E0006006D6E7541637401010000003200000007004361707469
      6F6E0009006D6E754163744E6577010100000033000000070043617074696F6E
      0002005A3100000C006D6E754163744368616E67650101000000340000000700
      43617074696F6E0008006D6E7541637444430101000000350000000700436170
      74696F6E000A006D6E75416374486F6C64010100000036000000070043617074
      696F6E000B006D6E7541637452656E6577010100000037000000070043617074
      696F6E000A006D6E75416374436F707901010000003800000007004361707469
      6F6E000E006D6E754163745472616E7366657201010000003900000007004361
      7074696F6E000C006D6E75416374526566696C6C01010000003A000000070043
      617074696F6E000600706F704D656400000D00706F704D656444657461696C73
      01010000003B000000070043617074696F6E000D00706F704D6564486973746F
      727901010000003C000000070043617074696F6E0002004E3100000C00706F70
      4D65644368616E676501010000003D000000070043617074696F6E000800706F
      704D6564444301010000003E000000070043617074696F6E000C00706F704D65
      64526566696C6C01010000003F000000070043617074696F6E000B00706F704D
      656452656E6577010100000040000000070043617074696F6E0002004E320000
      0900706F704D65644E6577010100000041000000070043617074696F6E001100
      6D6E754F7074696D697A654669656C6473010100000042000000070043617074
      696F6E00}
  end
  object mnuMeds: TMainMenu
    Left = 56
    Top = 154
    object mnuView: TMenuItem
      Caption = '&View'
      GroupIndex = 3
      OnClick = mnuViewClick
      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 Z2: TMenuItem
        Caption = '-'
      end
      object mnuViewActive: TMenuItem
        Caption = '&Active Medications'
        Visible = False
      end
      object mnuViewExpiring: TMenuItem
        Caption = '&Expiring Medications'
        Visible = False
      end
      object Z3: TMenuItem
        Caption = '-'
        Visible = False
      end
      object mnuViewSortClass: TMenuItem
        Caption = 'Sort by &VA Drug Class'
        Visible = False
      end
      object mnuViewSortName: TMenuItem
        Caption = 'Sort by Drug &Name'
        Visible = False
      end
      object Z4: TMenuItem
        Caption = '-'
        Visible = False
      end
      object mnuViewDetail: TMenuItem
        Caption = '&Details...'
        OnClick = mnuViewDetailClick
      end
      object mnuViewHistory: TMenuItem
        Caption = 'Administration &History...'
        OnClick = mnuViewHistoryClick
      end
    end
    object mnuAct: TMenuItem
      Caption = '&Action'
      GroupIndex = 4
      OnClick = mnuActClick
      object mnuActNew: TMenuItem
        Caption = '&New Medication...'
        OnClick = mnuActNewClick
      end
      object Z1: TMenuItem
        Caption = '-'
      end
      object mnuActChange: TMenuItem
        Caption = '&Change...'
        OnClick = mnuActChangeClick
      end
      object mnuActDC: TMenuItem
        Caption = '&Discontinue / Cancel...'
        OnClick = mnuActDCClick
      end
      object mnuActHold: TMenuItem
        Caption = '&Hold...'
        OnClick = mnuActHoldClick
      end
      object mnuActRenew: TMenuItem
        Caption = 'Rene&w...'
        OnClick = mnuActRenewClick
      end
      object mnuActCopy: TMenuItem
        Caption = 'Co&py to New Order...'
        OnClick = mnuActCopyClick
      end
      object mnuActTransfer: TMenuItem
        Caption = '&Transfer to...'
        OnClick = mnuActCopyClick
      end
      object mnuActRefill: TMenuItem
        Caption = 'R&efill...'
        OnClick = mnuActRefillClick
      end
    end
  end
  object popMed: TPopupMenu
    OnPopup = popMedPopup
    Left = 116
    Top = 155
    object popMedDetails: TMenuItem
      Caption = 'Detai&ls...'
      OnClick = mnuViewDetailClick
    end
    object popMedHistory: TMenuItem
      Caption = 'Administration &History...'
      OnClick = mnuViewHistoryClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object popMedChange: TMenuItem
      Caption = '&Change...'
      OnClick = mnuActChangeClick
    end
    object popMedDC: TMenuItem
      Caption = '&Discontinue...'
      OnClick = mnuActDCClick
    end
    object popMedRefill: TMenuItem
      Caption = 'R&efill...'
      OnClick = mnuActRefillClick
    end
    object popMedRenew: TMenuItem
      Caption = 'Rene&w...'
      OnClick = mnuActRenewClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object popMedNew: TMenuItem
      Caption = '&New Medication...'
      OnClick = mnuActNewClick
    end
    object mnuOptimizeFields: TMenuItem
      Caption = 'Adjust Field Size'
      Visible = False
      OnClick = mnuOptimizeFieldsClick
    end
  end
end