inherited frmMeds: TfrmMeds
  Left = 333
  Top = 55
  HelpContext = 3000
  VertScrollBar.Visible = False
  Caption = 'Medications Page'
  ClientHeight = 671
  ClientWidth = 701
  HelpFile = 'qnoback'
  Menu = mnuMeds
  Visible = True
  OnDestroy = FormDestroy
  OnMouseUp = FormMouseUp
  OnResize = FormResize
  OnShow = FormShow
  ExplicitWidth = 709
  ExplicitHeight = 717
  PixelsPerInch = 96
  TextHeight = 13
  inherited shpPageBottom: TShape
    Top = 524
    Width = 1028
    Height = -4
    Align = alCustom
    ExplicitTop = 524
    ExplicitWidth = 1028
    ExplicitHeight = -4
  end
  object splitTop: TSplitter [1]
    Left = 0
    Top = 460
    Width = 701
    Height = 4
    Cursor = crVSplit
    Align = alBottom
    AutoSnap = False
    Color = clBtnFace
    Constraints.MaxHeight = 4
    Constraints.MinHeight = 4
    MinSize = 100
    ParentColor = False
    OnMoved = splitTopMoved
    ExplicitTop = 429
  end
  object pnlBottom: TORAutoPanel [2]
    Left = 0
    Top = 464
    Width = 701
    Height = 207
    Align = alBottom
    Constraints.MinHeight = 40
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    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 = 'Non-VA 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 = 22
    Width = 701
    Height = 438
    Align = alClient
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    object lstMedsOut: TCaptionListBox
      Tag = 1
      Left = 1
      Top = 17
      Width = 699
      Height = 420
      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
  object pnlView: TPanel [4]
    Left = 0
    Top = 0
    Width = 701
    Height = 22
    Align = alTop
    TabOrder = 0
    object txtView: TVA508StaticText
      Name = 'txtView'
      Left = 9
      Top = 3
      Width = 36
      Height = 15
      Alignment = taLeftJustify
      Caption = 'txtView'
      TabOrder = 0
      ShowAccelChar = True
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Left = 16
    Top = 152
    Data = (
      (
        'Component = pnlBottom'
        'Status = stsDefault')
      (
        'Component = pnlMedIn'
        'Status = stsDefault')
      (
        'Component = lstMedsIn'
        'Status = stsDefault')
      (
        'Component = hdrMedsIn'
        'Status = stsDefault')
      (
        'Component = pnlNonVA'
        'Status = stsDefault')
      (
        'Component = lstMedsNonVA'
        'Status = stsDefault')
      (
        'Component = hdrMedsNonVA'
        'Status = stsDefault')
      (
        'Component = pnlTop'
        'Status = stsDefault')
      (
        'Component = lstMedsOut'
        'Status = stsDefault')
      (
        'Component = hdrMedsOut'
        'Status = stsDefault')
      (
        'Component = frmMeds'
        'Status = stsDefault')
      (
        'Component = pnlView'
        'Status = stsDefault')
      (
        'Component = txtView'
        'Status = stsDefault'))
  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 Z4: TMenuItem
        Caption = '-'
        Visible = False
      end
      object mnuViewDetail: TMenuItem
        Caption = '&Details...'
        OnClick = mnuViewDetailClick
      end
      object mnuViewSortName: TMenuItem
        Caption = 'Sort by Drug &Name'
        Visible = False
      end
      object mnuViewHistory: TMenuItem
        Caption = 'Administration &History...'
        OnClick = mnuViewHistoryClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object SortbyStatusthenLocation1: TMenuItem
        Caption = 'Sort by Status/Exp. Date (IMO first on Inpt)'
        OnClick = SortbyStatusthenLocation1Click
      end
      object SortbyClinicOrderthenStatusthenStopDate1: TMenuItem
        Caption = 'Sort by Status Group/Status/Location/Drug Name'
        OnClick = SortbyClinicOrderthenStatusthenStopDate1Click
      end
      object SortbyDrugalphabeticallystatusactivestatusrecentexpired1: TMenuItem
        Caption = 
          'Sort by Drug (alphabetically), status active, status recent expi' +
          'red'
        OnClick = SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click
      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 mnuActUnhold: TMenuItem
        Caption = 'Re&lease Hold...'
        Hint = 'Release Hold'
        OnClick = mnuActUnholdClick
      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
