VistA-cprs/CPRS-Chart/Orders/fOCSession.dfm

inherited frmOCSession: TfrmOCSession
  Left = 366
  Top = 222
  Width = 714
  Height = 530
  HorzScrollBar.Visible = True
  VertScrollBar.Visible = True
  AutoScroll = True
  BorderIcons = []
  Caption = 'Order Checks'
  Constraints.MinHeight = 500
  Constraints.MinWidth = 500
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseWheelDown = FormMouseWheelDown
  OnShow = FormShow
  ExplicitWidth = 714
  ExplicitHeight = 530
  PixelsPerInch = 96
  TextHeight = 13
  object pnlBottom: TPanel [0]
    Left = 0
    Top = 352
    Width = 706
    Height = 146
    Anchors = [akLeft, akTop, akBottom]
    BevelOuter = bvNone
    TabOrder = 0
    DesignSize = (
      706
      146)
    object lblJustify: TLabel
      Left = 9
      Top = 58
      Width = 234
      Height = 13
      Anchors = [akLeft]
      Caption = 'Enter reason for overriding order checks:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object memNote: TMemo
      Left = 392
      Top = 12
      Width = 306
      Height = 40
      BorderStyle = bsNone
      Color = clBtnFace
      Lines.Strings = (
        'NOTE: The override reason is for tracking purposes and '
        'does not change or place new order(s).')
      ReadOnly = True
      TabOrder = 0
      OnEnter = memNoteEnter
    end
    object txtJustify: TCaptionEdit
      Left = 8
      Top = 80
      Width = 682
      Height = 21
      Anchors = [akLeft]
      AutoSize = False
      MaxLength = 80
      TabOrder = 3
      OnKeyDown = txtJustifyKeyDown
      Caption = 'Enter justification for overriding critical order checks -'
    end
    object cmdCancelOrder: TButton
      Left = 9
      Top = 17
      Width = 168
      Height = 21
      Caption = 'Cancel Checked Order(s)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = cmdCancelOrderClick
    end
    object cmdContinue: TButton
      Left = 219
      Top = 112
      Width = 127
      Height = 23
      Anchors = [akLeft, akTop, akRight, akBottom]
      Caption = 'Accept Order(s)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = cmdContinueClick
    end
    object btnReturn: TButton
      Left = 352
      Top = 112
      Width = 122
      Height = 23
      Anchors = [akLeft, akTop, akRight, akBottom]
      Cancel = True
      Caption = 'Return to Orders'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = btnReturnClick
    end
    object cmdMonograph: TButton
      Left = 536
      Top = 107
      Width = 162
      Height = 21
      Anchors = [akRight, akBottom]
      Caption = 'Drug Interaction Monograph'
      TabOrder = 6
      OnClick = cmdMonographClick
    end
  end
  object pnlTop: TORAutoPanel [1]
    Left = 0
    Top = 0
    Width = 706
    Height = 346
    Align = alTop
    BevelEdges = []
    BevelOuter = bvNone
    TabOrder = 1
    DesignSize = (
      706
      346)
    object lblHover: TLabel
      Left = 16
      Top = 32
      Width = 445
      Height = 13
      Caption = 
        'If the order check description is cut short, hover over the text' +
        ' to view the complete description.'
    end
    object grdchecks: TCaptionStringGrid
      Left = 16
      Top = 64
      Width = 682
      Height = 279
      Margins.Top = 0
      Anchors = [akLeft, akBottom]
      ColCount = 3
      DefaultDrawing = False
      FixedColor = clBtnShadow
      FixedCols = 0
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowMoving, goTabs]
      ScrollBars = ssVertical
      TabOrder = 1
      OnDrawCell = grdchecksDrawCell
      OnEnter = grdchecksEnter
      OnKeyDown = grdchecksKeyDown
      OnMouseDown = grdchecksMouseDown
      OnMouseMove = grdchecksMouseMove
      OnMouseWheelDown = grdchecksMouseWheelDown
      OnMouseWheelUp = grdchecksMouseWheelUp
      OnSelectCell = grdchecksSelectCell
      JustToTab = True
    end
    object lblInstr: TVA508StaticText
      Name = 'lblInstr'
      Left = 0
      Top = 12
      Width = 641
      Height = 15
      Margins.Bottom = 0
      Alignment = taLeftJustify
      AutoSize = True
      Caption = 
        'To cancel an order select the order by checking the checkbox and' +
        ' press the "Cancel Checked Order(s)" button.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      TabStop = True
      ShowAccelChar = True
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = pnlBottom'
        'Status = stsDefault')
      (
        'Component = txtJustify'
        'Status = stsDefault')
      (
        'Component = cmdCancelOrder'
        'Status = stsDefault')
      (
        'Component = cmdContinue'
        'Status = stsDefault')
      (
        'Component = btnReturn'
        'Status = stsDefault')
      (
        'Component = memNote'
        'Status = stsDefault')
      (
        'Component = frmOCSession'
        'Status = stsDefault')
      (
        'Component = cmdMonograph'
        'Status = stsDefault')
      (
        'Component = grdchecks'
        'Status = stsDefault')
      (
        'Component = pnlTop'
        'Status = stsDefault'))
  end
end