VistA-cprs/CPRS-Chart/fPtSel.dfm

inherited frmPtSel: TfrmPtSel
  Top = 131
  BorderIcons = []
  Caption = 'Patient Selection'
  ClientHeight = 555
  ClientWidth = 785
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  ExplicitTop = 131
  ExplicitWidth = 793
  ExplicitHeight = 589
  PixelsPerInch = 96
  TextHeight = 13
  object sptVert: TSplitter [0]
    Left = 0
    Top = 290
    Width = 785
    Height = 4
    Cursor = crVSplit
    Align = alTop
  end
  object pnlDivide: TORAutoPanel [1]
    Left = 0
    Top = 294
    Width = 785
    Height = 17
    Align = alTop
    BevelOuter = bvNone
    BevelWidth = 2
    TabOrder = 0
    Visible = False
    object lblNotifications: TLabel
      Left = 4
      Top = 4
      Width = 58
      Height = 13
      Caption = 'Notifications'
    end
    object ggeInfo: TGauge
      Left = 212
      Top = 1
      Width = 100
      Height = 15
      BackColor = clHighlightText
      Color = clBtnFace
      ForeColor = clHighlight
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Progress = 0
      Visible = False
    end
  end
  object pnlPtSel: TORAutoPanel [2]
    Left = 0
    Top = 0
    Width = 785
    Height = 290
    Align = alTop
    BevelWidth = 2
    TabOrder = 3
    OnResize = pnlPtSelResize
    object lblPatient: TLabel
      Left = 216
      Top = 4
      Width = 33
      Height = 13
      Caption = 'Patient'
      ShowAccelChar = False
    end
    object cboPatient: TORComboBox
      Left = 216
      Top = 33
      Width = 272
      Height = 251
      Hint = 'Enter name,Full SSN ,Last 4 (x1234),'#39'HRN'#39',DOB, or Phone#'
      Style = orcsSimple
      AutoSelect = True
      Caption = 'Patient'
      Color = clWindow
      DropDownCount = 8
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = False
      LongList = True
      LookupPiece = 2
      MaxLength = 0
      ParentShowHint = False
      Pieces = '2,3'
      ShowHint = True
      Sorted = False
      SynonymChars = '<>'
      TabPositions = '20,25,30,60'
      TabOrder = 1
      OnChange = cboPatientChange
      OnDblClick = cboPatientDblClick
      OnEnter = cboPatientEnter
      OnExit = cboPatientExit
      OnKeyDown = cboPatientKeyDown
      OnKeyPause = cboPatientKeyPause
      OnMouseClick = cboPatientMouseClick
      OnNeedData = cboPatientNeedData
      CharsNeedMatch = 1
      UniqueAutoComplete = True
    end
    object cmdOK: TButton
      Left = 698
      Top = 3
      Width = 78
      Height = 21
      Caption = 'OK'
      TabOrder = 2
      OnClick = cmdOKClick
    end
    object cmdCancel: TButton
      Left = 698
      Top = 24
      Width = 78
      Height = 21
      Cancel = True
      Caption = 'Cancel'
      TabOrder = 3
      OnClick = cmdCancelClick
    end
    object cmdSaveList: TButton
      Left = 494
      Top = 265
      Width = 175
      Height = 21
      Caption = 'Save Patient List Settings'
      TabOrder = 0
      OnClick = cmdSaveListClick
    end
    object RadioGroup1: TRadioGroup
      Left = 512
      Top = 192
      Width = 265
      Height = 65
      Caption = 'Specific "In-Depth" Lookup by '
      ItemIndex = 0
      Items.Strings = (
        '&None of the below'
        '&PHONE NUMBER [RESIDENCE]'
        '&DATE OF BIRTH')
      TabOrder = 4
      OnClick = onclick1
    end
  end
  object pnlNotifications: TORAutoPanel [3]
    Left = 0
    Top = 520
    Width = 785
    Height = 35
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    Visible = False
    object cmdProcessInfo: TButton
      Left = 11
      Top = 10
      Width = 95
      Height = 21
      Caption = 'Process Info'
      TabOrder = 0
      OnClick = cmdProcessInfoClick
    end
    object cmdProcessAll: TButton
      Left = 120
      Top = 10
      Width = 95
      Height = 21
      Caption = 'Process All'
      TabOrder = 1
      OnClick = cmdProcessAllClick
    end
    object cmdProcess: TButton
      Left = 229
      Top = 10
      Width = 95
      Height = 21
      Caption = 'Process'
      Enabled = False
      TabOrder = 2
      OnClick = cmdProcessClick
    end
    object cmdForward: TButton
      Left = 335
      Top = 10
      Width = 95
      Height = 21
      Caption = 'Forward'
      Enabled = False
      TabOrder = 3
      OnClick = cmdForwardClick
    end
    object cmdRemove: TButton
      Left = 577
      Top = 10
      Width = 95
      Height = 21
      Caption = 'Remove'
      Enabled = False
      TabOrder = 5
      OnClick = cmdRemoveClick
    end
    object cmdComments: TButton
      Left = 441
      Top = 10
      Width = 95
      Height = 21
      Caption = 'Show Comments'
      Enabled = False
      TabOrder = 4
      OnClick = cmdCommentsClick
    end
  end
  object lstvAlerts: TCaptionListView [4]
    Left = 0
    Top = 311
    Width = 785
    Height = 209
    Align = alClient
    Columns = <
      item
        Caption = 'Info'
        Width = 30
      end
      item
        Caption = 'Patient'
        Tag = 1
        Width = 120
      end
      item
        Caption = 'Location'
        Tag = 2
        Width = 60
      end
      item
        Caption = 'Urgency'
        Tag = 3
        Width = 67
      end
      item
        Caption = 'Alert Date/Time'
        Tag = 4
        Width = 110
      end
      item
        Caption = 'Message'
        Tag = 5
        Width = 280
      end
      item
        Caption = 'Forwarded By/When'
        Tag = 6
        Width = 180
      end>
    HideSelection = False
    HoverTime = 0
    IconOptions.WrapText = False
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    ParentShowHint = False
    PopupMenu = popNotifications
    ShowWorkAreas = True
    ShowHint = True
    TabOrder = 1
    ViewStyle = vsReport
    OnColumnClick = lstvAlertsColumnClick
    OnCompare = lstvAlertsCompare
    OnDblClick = lstvAlertsDblClick
    OnInfoTip = lstvAlertsInfoTip
    OnKeyDown = lstvAlertsKeyDown
    OnSelectItem = lstvAlertsSelectItem
    Caption = 'Notifications'
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = pnlDivide'
        'Status = stsDefault')
      (
        'Component = pnlPtSel'
        'Status = stsDefault')
      (
        'Component = cboPatient'
        'Status = stsDefault')
      (
        'Component = cmdOK'
        'Status = stsDefault')
      (
        'Component = cmdCancel'
        'Status = stsDefault')
      (
        'Component = cmdSaveList'
        'Status = stsDefault')
      (
        'Component = pnlNotifications'
        'Status = stsDefault')
      (
        'Component = cmdProcessInfo'
        'Status = stsDefault')
      (
        'Component = cmdProcessAll'
        'Status = stsDefault')
      (
        'Component = cmdProcess'
        'Status = stsDefault')
      (
        'Component = cmdForward'
        'Status = stsDefault')
      (
        'Component = cmdRemove'
        'Status = stsDefault')
      (
        'Component = lstvAlerts'
        'Status = stsDefault')
      (
        'Component = frmPtSel'
        'Status = stsDefault')
      (
        'Component = cmdComments'
        'Status = stsDefault'))
  end
  object popNotifications: TPopupMenu
    Left = 508
    Top = 323
    object mnuProcess: TMenuItem
      Caption = 'Process'
      OnClick = cmdProcessClick
    end
    object mnuForward: TMenuItem
      Caption = 'Forward'
      OnClick = cmdForwardClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnuRemove: TMenuItem
      Caption = 'Remove'
      OnClick = cmdRemoveClick
    end
  end
end