object frmVisit: TfrmVisit
  Left = 426
  Top = 332
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Visit Selection'
  ClientHeight = 273
  ClientWidth = 438
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlBase: TORAutoPanel
    Left = 0
    Top = 0
    Width = 438
    Height = 273
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object lblSelect: TLabel
      Left = 8
      Top = 97
      Width = 146
      Height = 13
      Caption = 'Scheduled Clinic Appointments'
    end
    object lblVisitDate: TLabel
      Left = 254
      Top = 97
      Width = 85
      Height = 13
      Caption = 'Date/Time of Visit'
      Visible = False
    end
    object lblInstruct: TStaticText
      Left = 8
      Top = 8
      Width = 426
      Height = 17
      Caption = 
        'For outpatient encounters, a visit must be selected before writi' +
        'ng orders or progress notes.'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentColor = False
      ParentFont = False
      TabOrder = 7
    end
    object pnlVisit: TORAutoPanel
      Left = 8
      Top = 111
      Width = 422
      Height = 118
      BevelOuter = bvNone
      TabOrder = 4
      object timVisitDate: TORDateBox
        Left = 246
        Top = 0
        Width = 175
        Height = 21
        TabOrder = 1
        Text = 'NOW'
        DateOnly = False
        RequireTime = True
      end
      object cboLocation: TORComboBox
        Left = 0
        Top = -5
        Width = 230
        Height = 118
        Style = orcsSimple
        AutoSelect = True
        Color = clWindow
        DropDownCount = 8
        ItemHeight = 13
        ItemTipColor = clWindow
        ItemTipEnable = True
        ListItemsOnly = False
        LongList = True
        LookupPiece = 0
        MaxLength = 0
        Pieces = '2'
        Sorted = False
        SynonymChars = '<>'
        TabOrder = 0
        OnNeedData = cboLocationNeedData
        CharsNeedMatch = 1
      end
      object grpCategory: TGroupBox
        Left = 248
        Top = 40
        Width = 175
        Height = 73
        Caption = 'Visit Category'
        TabOrder = 2
        object ckbHistorical: TCheckBox
          Left = 8
          Top = 32
          Width = 97
          Height = 17
          Caption = 'Historical Visit'
          TabOrder = 0
        end
      end
    end
    object lstVisit: TORListBox
      Left = 8
      Top = 111
      Width = 422
      Height = 118
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Caption = 'Scheduled Clinic Appointments'
      ItemTipColor = clWindow
      LongList = False
      Pieces = '3,5,4'
      TabPositions = '20'
    end
    object radAppt: TRadioButton
      Tag = 1
      Left = 8
      Top = 30
      Width = 233
      Height = 17
      Caption = 'Choose from &Clinic Appointments'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = radSelectorClick
    end
    object radAdmit: TRadioButton
      Tag = 2
      Left = 8
      Top = 51
      Width = 201
      Height = 17
      Caption = 'Choose from &Hospital Admissions'
      TabOrder = 1
      OnClick = radSelectorClick
    end
    object radNewVisit: TRadioButton
      Tag = 3
      Left = 8
      Top = 72
      Width = 189
      Height = 17
      Caption = 'Enter a &New Visit'
      TabOrder = 2
      OnClick = radSelectorClick
    end
    object cmdOK: TButton
      Left = 270
      Top = 245
      Width = 72
      Height = 21
      Caption = 'OK'
      Default = True
      TabOrder = 5
      OnClick = cmdOKClick
    end
    object cmdCancel: TButton
      Left = 358
      Top = 245
      Width = 72
      Height = 21
      Cancel = True
      Caption = 'Cancel'
      TabOrder = 6
      OnClick = cmdCancelClick
    end
  end
  object DKLanguageController1: TDKLanguageController
    Left = 352
    Top = 56
    LangData = {
      080066726D5669736974010100000001000000070043617074696F6E010F0000
      000700706E6C42617365000009006C626C53656C656374010100000002000000
      070043617074696F6E000C006C626C5669736974446174650101000000030000
      00070043617074696F6E000B006C626C496E7374727563740101000000040000
      00070043617074696F6E000800706E6C566973697400000C0074696D56697369
      7444617465010100000005000000040054657874000B0063626F4C6F63617469
      6F6E00000B0067727043617465676F7279010100000006000000070043617074
      696F6E000D00636B62486973746F726963616C01010000000700000007004361
      7074696F6E0008006C7374566973697401010000000800000007004361707469
      6F6E00070072616441707074010100000009000000070043617074696F6E0008
      0072616441646D697401010000000A000000070043617074696F6E000B007261
      644E6577566973697401010000000B000000070043617074696F6E000500636D
      644F4B01010000000C000000070043617074696F6E000900636D6443616E6365
      6C01010000000D000000070043617074696F6E00}
  end
end