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

inherited frmODRad: TfrmODRad
  Tag = 160
  Left = 282
  Top = 225
  Width = 576
  Height = 361
  Caption = 'Order an Imaging Procedure'
  Constraints.MinHeight = 344
  Constraints.MinWidth = 576
  PixelsPerInch = 96
  TextHeight = 13
  inherited memOrder: TCaptionMemo
    Left = 0
    Top = 283
    Width = 480
    Anchors = [akLeft, akRight, akBottom]
    TabOrder = 6
  end
  object FRadCommonCombo: TORListBox [1]
    Left = 443
    Top = 346
    Width = 121
    Height = 11
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    Visible = False
    ItemTipColor = clWindow
    LongList = False
  end
  object pnlLeft: TORAutoPanel [2]
    Left = 0
    Top = 0
    Width = 215
    Height = 281
    Anchors = [akLeft, akTop, akBottom]
    BevelOuter = bvNone
    TabOrder = 0
    object lblDrug: TLabel
      Left = 0
      Top = 38
      Width = 89
      Height = 13
      Caption = 'Imaging Procedure'
    end
    object lblAvailMod: TLabel
      Left = 0
      Top = 170
      Width = 88
      Height = 13
      Caption = 'Available Modifiers'
    end
    object lblImType: TLabel
      Left = 1
      Top = 1
      Width = 64
      Height = 13
      Caption = 'Imaging Type'
    end
    object lblSelectMod: TLabel
      Left = 109
      Top = 170
      Width = 87
      Height = 13
      Caption = 'Selected Modifiers'
    end
    object cboImType: TORComboBox
      Left = 0
      Top = 15
      Width = 212
      Height = 21
      Style = orcsDropDown
      AutoSelect = True
      Caption = 'Imaging 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 = 0
      OnChange = cboImTypeChange
      OnDropDownClose = cboImTypeDropDownClose
      OnExit = cboImTypeExit
      CharsNeedMatch = 1
    end
    object lstSelectMod: TORListBox
      Left = 109
      Top = 184
      Width = 102
      Height = 68
      ExtendedSelect = False
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Caption = 'Selected Modifiers'
      ItemTipColor = clWindow
      LongList = False
      Pieces = '2'
    end
    object cboProcedure: TORComboBox
      Left = 0
      Top = 53
      Width = 212
      Height = 114
      Style = orcsSimple
      AutoSelect = True
      Caption = 'Imaging Procedure'
      Color = clWindow
      DropDownCount = 8
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = True
      LongList = True
      LookupPiece = 0
      MaxLength = 0
      Pieces = '2'
      Sorted = False
      SynonymChars = '<>'
      TabOrder = 1
      OnClick = cboProcedureSelect
      OnExit = cboProcedureExit
      OnNeedData = cboProcedureNeedData
      CharsNeedMatch = 1
    end
    object cboAvailMod: TORComboBox
      Left = 0
      Top = 184
      Width = 102
      Height = 94
      Style = orcsSimple
      AutoSelect = True
      Caption = 'Available Modifiers'
      Color = clWindow
      DropDownCount = 8
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = False
      LongList = False
      LookupPiece = 0
      MaxLength = 0
      ParentShowHint = False
      Pieces = '2'
      ShowHint = True
      Sorted = True
      SynonymChars = '<>'
      TabOrder = 2
      OnKeyDown = cboAvailModKeyDown
      OnMouseClick = cboAvailModMouseClick
      CharsNeedMatch = 1
    end
    object cmdRemove: TButton
      Left = 110
      Top = 255
      Width = 102
      Height = 18
      Caption = 'Remove'
      TabOrder = 4
      OnClick = cmdRemoveClick
    end
  end
  object pnlRight: TORAutoPanel [3]
    Left = 214
    Top = 85
    Width = 355
    Height = 195
    Anchors = [akLeft, akRight, akBottom]
    BevelOuter = bvNone
    TabOrder = 3
    object lblRequestDate: TLabel
      Left = 4
      Top = 5
      Width = 78
      Height = 13
      Caption = 'Requested Date'
    end
    object lblUrgency: TLabel
      Left = 104
      Top = 5
      Width = 40
      Height = 13
      Caption = 'Urgency'
    end
    object lblTransport: TLabel
      Left = 204
      Top = 5
      Width = 45
      Height = 13
      Caption = 'Transport'
    end
    object lblCategory: TLabel
      Left = 4
      Top = 42
      Width = 42
      Height = 13
      Caption = 'Category'
    end
    object lblSubmit: TLabel
      Left = 154
      Top = 42
      Width = 48
      Height = 13
      Caption = 'Submit To'
    end
    object lblLastExam: TLabel
      Left = 4
      Top = 82
      Width = 134
      Height = 13
      Caption = 'Exams Over the Last 7 Days'
    end
    object lblAskSubmit: TLabel
      Left = 446
      Top = 103
      Width = 3
      Height = 13
      Visible = False
    end
    object lblPreOp: TLabel
      Left = 198
      Top = 156
      Width = 84
      Height = 13
      Caption = 'PreOp Scheduled'
    end
    object calPreOp: TORDateBox
      Left = 198
      Top = 170
      Width = 96
      Height = 21
      TabOrder = 8
      OnChange = calPreOpChange
      OnExit = calPreOpExit
      DateOnly = False
      RequireTime = False
      Caption = 'PreOp Scheduled'
    end
    object chkIsolation: TCheckBox
      Left = 198
      Top = 94
      Width = 97
      Height = 17
      Hint = 'Is patient on isolation procedures?'
      Caption = 'Isolation'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = ControlChange
      OnExit = chkIsolationExit
    end
    object calRequestDate: TORDateBox
      Left = 4
      Top = 18
      Width = 92
      Height = 21
      TabOrder = 0
      Text = 'TODAY'
      OnChange = ControlChange
      DateOnly = False
      RequireTime = False
      Caption = 'Requested Date'
    end
    object cboUrgency: TORComboBox
      Left = 104
      Top = 18
      Width = 92
      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 = 1
      OnChange = ControlChange
      CharsNeedMatch = 1
    end
    object cboTransport: TORComboBox
      Left = 204
      Top = 18
      Width = 92
      Height = 21
      Style = orcsDropDown
      AutoSelect = True
      Caption = 'Transport'
      Color = clWindow
      DropDownCount = 8
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = True
      LongList = False
      LookupPiece = 0
      MaxLength = 0
      Pieces = '2'
      Sorted = False
      SynonymChars = '<>'
      TabOrder = 2
      OnChange = ControlChange
      CharsNeedMatch = 1
    end
    object cboCategory: TORComboBox
      Left = 4
      Top = 57
      Width = 140
      Height = 21
      Style = orcsDropDown
      AutoSelect = True
      Caption = 'Category'
      Color = clWindow
      DropDownCount = 8
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = True
      LongList = False
      LookupPiece = 0
      MaxLength = 0
      Pieces = '2'
      Sorted = False
      SynonymChars = '<>'
      TabOrder = 3
      OnChange = cboCategoryChange
      CharsNeedMatch = 1
    end
    object chkPreOp: TCheckBox
      Left = 146
      Top = 233
      Width = 61
      Height = 17
      Caption = 'Pre-Op'
      TabOrder = 9
      Visible = False
      OnClick = ControlChange
    end
    object cboSubmit: TORComboBox
      Left = 154
      Top = 57
      Width = 142
      Height = 21
      Style = orcsDropDown
      AutoSelect = True
      Caption = 'Submit To'
      Color = clWindow
      DropDownCount = 8
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = True
      LongList = False
      LookupPiece = 0
      MaxLength = 0
      Pieces = '2'
      Sorted = False
      SynonymChars = '<>'
      TabOrder = 4
      OnChange = ControlChange
      CharsNeedMatch = 1
    end
    object lstLastExam: TORListBox
      Left = 4
      Top = 95
      Width = 187
      Height = 98
      Color = clBtnFace
      ExtendedSelect = False
      ItemHeight = 13
      MultiSelect = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Caption = 'Exams Over the Last 7 Days'
      ItemTipColor = clWindow
      LongList = False
      Pieces = '2'
    end
    object grpPregnant: TGroupBox
      Left = 196
      Top = 112
      Width = 158
      Height = 41
      Caption = 'Pregnant'
      TabOrder = 7
      object radPregnant: TRadioButton
        Left = 2
        Top = 17
        Width = 39
        Height = 17
        Caption = 'Yes'
        TabOrder = 0
        OnClick = ControlChange
      end
      object radPregnantNo: TRadioButton
        Left = 47
        Top = 17
        Width = 35
        Height = 17
        Caption = 'No'
        TabOrder = 1
        OnClick = ControlChange
      end
      object radPregnantUnknown: TRadioButton
        Left = 87
        Top = 16
        Width = 66
        Height = 17
        Caption = 'Unknown'
        TabOrder = 2
        OnClick = ControlChange
      end
    end
  end
  object pnlHandR: TPanel [4]
    Left = 215
    Top = 0
    Width = 353
    Height = 84
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      353
      84)
    object lblReason: TLabel
      Left = 3
      Top = 0
      Width = 125
      Height = 13
      Caption = 'History && Reason for Exam'
    end
    object memReason: TCaptionMemo
      Left = 3
      Top = 15
      Width = 346
      Height = 68
      Anchors = [akLeft, akTop, akRight, akBottom]
      ScrollBars = ssVertical
      TabOrder = 0
      OnChange = ControlChange
      OnExit = memReasonExit
      Caption = 'History && Reason for Exam'
    end
  end
  inherited cmdAccept: TButton
    Left = 487
    Top = 283
    Anchors = [akRight, akBottom]
    TabOrder = 4
  end
  inherited cmdQuit: TButton
    Left = 488
    Top = 310
    Anchors = [akRight, akBottom]
    TabOrder = 5
  end
  inherited pnlMessage: TPanel
    Left = 13
    Top = 262
    Width = 408
    Height = 55
    TabOrder = 1
    inherited imgMessage: TImage
      Left = 10
      Top = 9
    end
    inherited memMessage: TRichEdit
      Left = 55
      Width = 344
      Height = 43
    end
  end
end