inherited frmODLab: TfrmODLab
  Tag = 120
  Left = 245
  Top = 263
  Width = 523
  Height = 271
  Caption = 'Order a Lab Test'
  ExplicitWidth = 523
  ExplicitHeight = 271
  PixelsPerInch = 96
  TextHeight = 13
  object lblAvailTests: TLabel [0]
    Left = 6
    Top = 4
    Width = 93
    Height = 13
    Caption = 'Available Lab Tests'
  end
  object lblCollTime: TLabel [1]
    Left = 148
    Top = 152
    Width = 100
    Height = 13
    Caption = 'Collection Date/Time'
  end
  object lblTestName: TLabel [2]
    Left = 180
    Top = 4
    Width = 3
    Height = 13
    ShowAccelChar = False
  end
  object lblCollSamp: TLabel [3]
    Left = 187
    Top = 31
    Width = 70
    Height = 13
    Caption = 'Collect Sample'
  end
  object lblSpecimen: TLabel [4]
    Left = 210
    Top = 58
    Width = 47
    Height = 13
    Caption = 'Specimen'
  end
  object lblUrgency: TLabel [5]
    Left = 217
    Top = 85
    Width = 40
    Height = 13
    Caption = 'Urgency'
  end
  object lblAddlComment: TLabel [6]
    Left = 187
    Top = 107
    Width = 93
    Height = 13
    Caption = 'Additional Comment'
    Visible = False
  end
  object bvlTestName: TBevel [7]
    Left = 180
    Top = 18
    Width = 338
    Height = 130
    Style = bsRaised
  end
  object lblFrequency: TLabel [8]
    Left = 326
    Top = 152
    Width = 57
    Height = 13
    Caption = 'How Often?'
  end
  object lblReqComment: TOROffsetLabel [9]
    Left = 386
    Top = 0
    Width = 96
    Height = 19
    HorzOffset = 2
    Transparent = False
    VertOffset = 2
    WordWrap = False
  end
  object lblHowManyDays: TLabel [10]
    Left = 431
    Top = 152
    Width = 55
    Height = 13
    Caption = 'How Long?'
  end
  object lblCollType: TLabel [11]
    Left = 7
    Top = 152
    Width = 73
    Height = 13
    Caption = 'Collection Type'
  end
  inherited memOrder: TCaptionMemo
    TabOrder = 22
  end
  object txtImmedColl: TCaptionEdit [13]
    Left = 149
    Top = 166
    Width = 141
    Height = 21
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 16
    Text = 'txtImmedColl'
  end
  object calCollTime: TORDateBox [14]
    Left = 149
    Top = 166
    Width = 165
    Height = 21
    TabOrder = 15
    OnChange = ControlChange
    DateOnly = False
    RequireTime = False
  end
  object pnlUrineVolume: TORAutoPanel [15]
    Left = 378
    Top = 25
    Width = 133
    Height = 118
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 10
    object lblUrineVolume: TOROffsetLabel
      Left = 6
      Top = 29
      Width = 111
      Height = 15
      Caption = 'Enter the urine volume:'
      HorzOffset = 2
      Transparent = False
      VertOffset = 2
      WordWrap = False
    end
    object txtUrineVolume: TCaptionEdit
      Left = 5
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 0
      OnExit = txtUrineVolumeExit
    end
  end
  object pnlAntiCoagulation: TORAutoPanel [16]
    Left = 378
    Top = 25
    Width = 133
    Height = 118
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 9
    object lblAntiCoagulant: TOROffsetLabel
      Left = 6
      Top = 8
      Width = 97
      Height = 41
      Caption = 'What kind of anticoagulant is the patient on?'
      HorzOffset = 2
      Transparent = False
      VertOffset = 2
      WordWrap = True
    end
    object txtAntiCoagulant: TCaptionEdit
      Left = 6
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 0
      OnExit = txtAntiCoagulantExit
    end
  end
  object pnlOrderComment: TORAutoPanel [17]
    Left = 378
    Top = 25
    Width = 133
    Height = 118
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 8
    Visible = False
    object lblOrderComment: TOROffsetLabel
      Left = 6
      Top = 37
      Width = 103
      Height = 15
      Caption = 'Enter order comment:'
      HorzOffset = 2
      Transparent = False
      VertOffset = 2
      WordWrap = True
    end
    object txtOrderComment: TCaptionEdit
      Left = 6
      Top = 57
      Width = 121
      Height = 21
      TabOrder = 0
      OnExit = txtOrderCommentExit
    end
  end
  object pnlHide: TORAutoPanel [18]
    Left = 378
    Top = 25
    Width = 133
    Height = 118
    BevelOuter = bvNone
    TabOrder = 7
  end
  object pnlDoseDraw: TORAutoPanel [19]
    Left = 378
    Top = 25
    Width = 133
    Height = 118
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 12
    object lblDose: TOROffsetLabel
      Left = 10
      Top = 15
      Width = 115
      Height = 15
      Caption = 'Enter the last dose time:'
      HorzOffset = 2
      Transparent = False
      VertOffset = 2
      WordWrap = False
    end
    object lblDraw: TOROffsetLabel
      Left = 10
      Top = 68
      Width = 78
      Height = 15
      Caption = 'Enter draw time:'
      HorzOffset = 2
      Transparent = False
      VertOffset = 2
      WordWrap = False
    end
    object txtDoseTime: TCaptionEdit
      Left = 10
      Top = 31
      Width = 112
      Height = 21
      TabOrder = 0
      OnExit = txtDoseTimeExit
    end
    object txtDrawTime: TCaptionEdit
      Left = 10
      Top = 85
      Width = 112
      Height = 21
      TabOrder = 1
      OnExit = txtDrawTimeExit
    end
  end
  object pnlPeakTrough: TORAutoPanel [20]
    Left = 378
    Top = 25
    Width = 133
    Height = 118
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 11
    object lblPeakTrough: TOROffsetLabel
      Left = 6
      Top = 7
      Width = 82
      Height = 13
      Caption = 'Sample drawn at:'
      HorzOffset = 0
      Transparent = False
      VertOffset = 0
      WordWrap = True
    end
    object grpPeakTrough: TRadioGroup
      Left = 6
      Top = 20
      Width = 120
      Height = 89
      Items.Strings = (
        '&Peak'
        '&Trough'
        '&Mid'
        '&Unknown')
      TabOrder = 0
      OnClick = grpPeakTroughClick
    end
  end
  object pnlCollTimeButton: TKeyClickPanel [21]
    Left = 288
    Top = 167
    Width = 20
    Height = 19
    BevelOuter = bvNone
    Caption = 'Select collection time'
    TabOrder = 17
    TabStop = True
    OnClick = cmdImmedCollClick
    OnEnter = pnlCollTimeButtonEnter
    OnExit = pnlCollTimeButtonExit
    object cmdImmedColl: TSpeedButton
      Left = 1
      Top = 1
      Width = 18
      Height = 17
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        D6000000424DD60000000000000076000000280000000C0000000C0000000100
        0400000000006000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        0000333333333333000033333333333300003333333333330000300330033003
        0000300330033003000033333333333300003333333333330000333333333333
        0000333333333333000033333333333300003333333333330000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      OnClick = cmdImmedCollClick
    end
  end
  object cboAvailTest: TORComboBox [22]
    Left = 6
    Top = 18
    Width = 168
    Height = 130
    Style = orcsSimple
    AutoSelect = True
    Caption = 'Available Lab Tests'
    Color = clWindow
    DropDownCount = 8
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = True
    LongList = True
    LookupPiece = 0
    MaxLength = 0
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 0
    OnClick = cboAvailTestSelect
    OnExit = cboAvailTestExit
    OnNeedData = cboAvailTestNeedData
    CharsNeedMatch = 1
  end
  object cboFrequency: TORComboBox [23]
    Left = 326
    Top = 166
    Width = 97
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'How Often?'
    Color = clWindow
    DropDownCount = 8
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = True
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 18
    OnChange = cboFrequencyChange
    CharsNeedMatch = 1
  end
  object cboCollSamp: TORComboBox [24]
    Left = 269
    Top = 28
    Width = 100
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Collect Sample'
    Color = clWindow
    DropDownCount = 8
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = True
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 1
    OnChange = cboCollSampChange
    OnEnter = cboCollSampMouseClick
    OnKeyPause = cboCollSampKeyPause
    OnMouseClick = cboCollSampMouseClick
    CharsNeedMatch = 1
  end
  object cboSpecimen: TORComboBox [25]
    Left = 269
    Top = 55
    Width = 100
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Specimen'
    Color = clWindow
    DropDownCount = 10
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = True
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    ParentShowHint = False
    Pieces = '2'
    ShowHint = True
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 3
    OnChange = cboSpecimenChange
    OnEnter = cboSpecimenMouseClick
    OnKeyPause = cboSpecimenKeyPause
    OnMouseClick = cboSpecimenMouseClick
    CharsNeedMatch = 1
  end
  object cboUrgency: TORComboBox [26]
    Left = 269
    Top = 82
    Width = 100
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Urgency'
    Color = clWindow
    DropDownCount = 8
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = True
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 5
    OnChange = cboUrgencyChange
    CharsNeedMatch = 1
  end
  object txtAddlComment: TCaptionEdit [27]
    Left = 187
    Top = 122
    Width = 180
    Height = 21
    TabOrder = 6
    Visible = False
    OnExit = txtAddlCommentExit
    Caption = 'Additional Comment'
  end
  object txtDays: TCaptionEdit [28]
    Left = 430
    Top = 166
    Width = 84
    Height = 21
    Hint = 'Enter a number of days, or an "X" followed by a number of times.'
    Enabled = False
    TabOrder = 20
    OnChange = ControlChange
    Caption = 'How Long?'
  end
  object FLabCommonCombo: TORListBox [29]
    Left = 440
    Top = 247
    Width = 121
    Height = 97
    TabStop = False
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    TabOrder = 26
    Visible = False
    ItemTipColor = clWindow
    LongList = False
  end
  object cboCollTime: TORComboBox [30]
    Left = 149
    Top = 166
    Width = 168
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Collection Date/Time'
    Color = clWindow
    DropDownCount = 8
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = False
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 14
    OnChange = cboCollTimeChange
    OnExit = cboCollTimeExit
    CharsNeedMatch = 1
  end
  object cboCollType: TORComboBox [31]
    Left = 6
    Top = 166
    Width = 136
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Collection Type'
    Color = clWindow
    DropDownCount = 8
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = True
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 13
    OnChange = cboCollTypeChange
    CharsNeedMatch = 1
  end
  object Frequencylbl508: TVA508StaticText [32]
    Name = 'Frequencylbl508'
    Left = 323
    Top = 149
    Width = 59
    Height = 15
    Alignment = taLeftJustify
    Caption = 'How Often?'
    Enabled = False
    TabOrder = 19
    Visible = False
    ShowAccelChar = True
  end
  object HowManyDayslbl508: TVA508StaticText [33]
    Name = 'HowManyDayslbl508'
    Left = 431
    Top = 152
    Width = 57
    Height = 15
    Alignment = taLeftJustify
    Caption = 'How Long?'
    Enabled = False
    TabOrder = 21
    Visible = False
    ShowAccelChar = True
  end
  inherited cmdAccept: TButton
    Left = 443
    TabOrder = 23
    ExplicitLeft = 443
  end
  object specimenlbl508: TVA508StaticText [35]
    Name = 'specimenlbl508'
    Left = 210
    Top = 56
    Width = 49
    Height = 15
    Alignment = taLeftJustify
    Caption = 'Specimen'
    Enabled = False
    TabOrder = 4
    Visible = False
    ShowAccelChar = True
  end
  inherited cmdQuit: TButton
    TabOrder = 24
  end
  object CollSamplbl508: TVA508StaticText [37]
    Name = 'CollSamplbl508'
    Left = 187
    Top = 31
    Width = 72
    Height = 15
    Alignment = taLeftJustify
    Caption = 'Collect Sample'
    Enabled = False
    TabOrder = 2
    Visible = False
    ShowAccelChar = True
  end
  inherited pnlMessage: TPanel
    Left = 18
    Top = 192
    Height = 56
    TabOrder = 25
    ExplicitLeft = 18
    ExplicitTop = 192
    ExplicitHeight = 56
    inherited imgMessage: TImage
      Top = 11
      ExplicitTop = 11
    end
    inherited memMessage: TRichEdit
      Left = 41
      Top = 5
      Height = 43
      PopupMenu = MessagePopup
      ExplicitLeft = 41
      ExplicitTop = 5
      ExplicitHeight = 43
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = txtImmedColl'
        'Status = stsDefault')
      (
        'Component = calCollTime'
        'Status = stsDefault')
      (
        'Component = pnlUrineVolume'
        'Status = stsDefault')
      (
        'Component = txtUrineVolume'
        'Status = stsDefault')
      (
        'Component = pnlAntiCoagulation'
        'Status = stsDefault')
      (
        'Component = txtAntiCoagulant'
        'Status = stsDefault')
      (
        'Component = pnlOrderComment'
        'Status = stsDefault')
      (
        'Component = txtOrderComment'
        'Status = stsDefault')
      (
        'Component = pnlHide'
        'Status = stsDefault')
      (
        'Component = pnlDoseDraw'
        'Status = stsDefault')
      (
        'Component = txtDoseTime'
        'Status = stsDefault')
      (
        'Component = txtDrawTime'
        'Status = stsDefault')
      (
        'Component = pnlPeakTrough'
        'Status = stsDefault')
      (
        'Component = grpPeakTrough'
        'Status = stsDefault')
      (
        'Component = pnlCollTimeButton'
        'Status = stsDefault')
      (
        'Component = cboAvailTest'
        'Status = stsDefault')
      (
        'Component = cboFrequency'
        'Status = stsDefault')
      (
        'Component = cboCollSamp'
        'Status = stsDefault')
      (
        'Component = cboSpecimen'
        'Status = stsDefault')
      (
        'Component = cboUrgency'
        'Status = stsDefault')
      (
        'Component = txtAddlComment'
        'Status = stsDefault')
      (
        'Component = txtDays'
        'Status = stsDefault')
      (
        'Component = FLabCommonCombo'
        'Status = stsDefault')
      (
        'Component = cboCollTime'
        'Status = stsDefault')
      (
        'Component = cboCollType'
        'Status = stsDefault')
      (
        'Component = memOrder'
        'Status = stsDefault')
      (
        'Component = cmdAccept'
        'Status = stsDefault')
      (
        'Component = cmdQuit'
        'Status = stsDefault')
      (
        'Component = pnlMessage'
        'Status = stsDefault')
      (
        'Component = memMessage'
        'Status = stsDefault')
      (
        'Component = frmODLab'
        'Status = stsDefault')
      (
        'Component = Frequencylbl508'
        'Status = stsDefault')
      (
        'Component = HowManyDayslbl508'
        'Status = stsDefault')
      (
        'Component = specimenlbl508'
        'Status = stsDefault')
      (
        'Component = CollSamplbl508'
        'Status = stsDefault'))
  end
  object dlgLabCollTime: TORDateTimeDlg
    FMDateTime = 2980923.000000000000000000
    DateOnly = False
    RequireTime = True
    Left = 219
    Top = 4
  end
  object MessagePopup: TPopupMenu
    Left = 340
    Top = 218
    object ViewinReportWindow1: TMenuItem
      Caption = '&View in Report Window'
      OnClick = ViewinReportWindow1Click
    end
  end
end
