inherited frmOptionsPatientSelection: TfrmOptionsPatientSelection Left = 345 Top = 133 HelpContext = 9060 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsDialog Caption = 'Patient Selection Defaults' ClientHeight = 413 ClientWidth = 414 HelpFile = 'CPRSWT.HLP' Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object lblClinicDays: TLabel [0] Left = 179 Top = 162 Width = 101 Height = 13 Caption = 'Clinic for day of week' end object lblMonday: TLabel [1] Left = 179 Top = 184 Width = 41 Height = 13 Caption = 'Monday:' end object lblTuesday: TLabel [2] Left = 179 Top = 213 Width = 44 Height = 13 Caption = 'Tuesday:' end object lblWednesday: TLabel [3] Left = 179 Top = 241 Width = 60 Height = 13 Caption = 'Wednesday:' end object lblThursday: TLabel [4] Left = 179 Top = 270 Width = 47 Height = 13 Caption = 'Thursday:' end object lblFriday: TLabel [5] Left = 179 Top = 298 Width = 31 Height = 13 Caption = 'Friday:' end object lblSaturday: TLabel [6] Left = 179 Top = 327 Width = 45 Height = 13 Caption = 'Saturday:' end object lblSunday: TLabel [7] Left = 179 Top = 355 Width = 39 Height = 13 Caption = 'Sunday:' end object lblVisitStart: TLabel [8] Left = 20 Top = 321 Width = 25 Height = 13 Alignment = taRightJustify Caption = 'Start:' end object lblVisitStop: TLabel [9] Left = 20 Top = 352 Width = 25 Height = 13 Alignment = taRightJustify Caption = 'Stop:' end object lbWard: TLabel [10] Left = 179 Top = 136 Width = 29 Height = 13 Caption = 'Ward:' end object lblTeam: TLabel [11] Left = 179 Top = 107 Width = 51 Height = 13 Caption = 'Team/List:' end object lblTreating: TLabel [12] Left = 179 Top = 77 Width = 88 Height = 13 Caption = 'Treating Specialty:' end object lblProvider: TLabel [13] Left = 179 Top = 50 Width = 79 Height = 13 Caption = 'Primary Provider:' end object lblVisitDateRange: TMemo [14] Left = 20 Top = 255 Width = 133 Height = 61 TabStop = False BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'Display patients that have ' 'clinic appointments within ' 'this date range.') ReadOnly = True TabOrder = 18 end object lblInfo: TMemo [15] Left = 8 Top = 6 Width = 393 Height = 27 TabStop = False BorderStyle = bsNone Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'The values on the right will be defaults for selecting patients ' + 'depending on the list ' 'source selected. Combination uses the criteria defined using Sou' + 'rce Combinations.') ParentFont = False ReadOnly = True TabOrder = 19 end object pnlBottom: TPanel [16] Left = 0 Top = 380 Width = 414 Height = 33 HelpContext = 9060 Align = alBottom BevelOuter = bvNone ParentColor = True TabOrder = 17 object bvlBottom: TBevel Left = 0 Top = 0 Width = 414 Height = 2 Align = alTop end object btnOK: TButton Left = 251 Top = 8 Width = 75 Height = 22 HelpContext = 9996 Caption = 'OK' ModalResult = 1 TabOrder = 0 OnClick = btnOKClick end object btnCancel: TButton Left = 331 Top = 8 Width = 75 Height = 22 HelpContext = 9997 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end end object cboProvider: TORComboBox [17] Left = 285 Top = 48 Width = 121 Height = 21 HelpContext = 9063 Style = orcsDropDown AutoSelect = True Caption = 'Primary Provider' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 2 MaxLength = 0 Pieces = '2,3' Sorted = True SynonymChars = '<>' TabOrder = 6 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp OnNeedData = cboProviderNeedData CharsNeedMatch = 1 end object cboTreating: TORComboBox [18] Left = 285 Top = 75 Width = 121 Height = 21 HelpContext = 9064 Style = orcsDropDown AutoSelect = True Caption = 'Treating Specialty' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 7 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp CharsNeedMatch = 1 end object cboTeam: TORComboBox [19] Left = 285 Top = 104 Width = 121 Height = 21 HelpContext = 9065 Style = orcsDropDown AutoSelect = True Caption = 'Team/List' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 8 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp CharsNeedMatch = 1 end object cboWard: TORComboBox [20] Left = 285 Top = 132 Width = 121 Height = 21 HelpContext = 9066 Style = orcsDropDown AutoSelect = True Caption = 'Ward' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 9 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp CharsNeedMatch = 1 end object cboMonday: TORComboBox [21] Left = 285 Top = 181 Width = 121 Height = 21 HelpContext = 9067 Style = orcsDropDown AutoSelect = True Caption = 'Monday' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 10 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp OnNeedData = cboMondayNeedData CharsNeedMatch = 1 end object cboTuesday: TORComboBox [22] Left = 285 Top = 210 Width = 121 Height = 21 HelpContext = 9067 Style = orcsDropDown AutoSelect = True Caption = 'Tuesday' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 11 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp OnNeedData = cboTuesdayNeedData CharsNeedMatch = 1 end object cboWednesday: TORComboBox [23] Left = 285 Top = 238 Width = 121 Height = 21 HelpContext = 9067 Style = orcsDropDown AutoSelect = True Caption = 'Wednesday' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 12 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp OnNeedData = cboWednesdayNeedData CharsNeedMatch = 1 end object cboThursday: TORComboBox [24] Left = 285 Top = 267 Width = 121 Height = 21 HelpContext = 9067 Style = orcsDropDown AutoSelect = True Caption = 'Thursday' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 13 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp OnNeedData = cboThursdayNeedData CharsNeedMatch = 1 end object cboFriday: TORComboBox [25] Left = 285 Top = 295 Width = 121 Height = 21 HelpContext = 9067 Style = orcsDropDown AutoSelect = True Caption = 'Friday' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 14 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp OnNeedData = cboFridayNeedData CharsNeedMatch = 1 end object cboSaturday: TORComboBox [26] Left = 285 Top = 324 Width = 121 Height = 21 HelpContext = 9067 Style = orcsDropDown AutoSelect = True Caption = 'Saturday' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 15 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp OnNeedData = cboSaturdayNeedData CharsNeedMatch = 1 end object cboSunday: TORComboBox [27] Left = 285 Top = 352 Width = 121 Height = 21 HelpContext = 9067 Style = orcsDropDown AutoSelect = True Caption = 'Sunday' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 16 OnExit = cboProviderExit OnKeyUp = cboProviderKeyUp OnNeedData = cboSundayNeedData CharsNeedMatch = 1 end object txtVisitStart: TCaptionEdit [28] Tag = -180 Left = 49 Top = 319 Width = 79 Height = 21 HelpContext = 9068 TabOrder = 2 Text = '0' OnExit = txtVisitStartExit OnKeyPress = txtVisitStartKeyPress OnKeyUp = txtVisitStartKeyUp Caption = 'Start' end object txtVisitStop: TCaptionEdit [29] Tag = 30 Left = 48 Top = 348 Width = 79 Height = 21 HelpContext = 9069 TabOrder = 4 Text = '0' OnExit = txtVisitStopExit OnKeyPress = txtVisitStopKeyPress OnKeyUp = txtVisitStopKeyUp Caption = 'Stop' end object spnVisitStart: TUpDown [30] Tag = -180 Left = 128 Top = 319 Width = 16 Height = 21 HelpContext = 9068 Associate = txtVisitStart Min = -999 Max = 999 TabOrder = 3 Thousands = False OnClick = spnVisitStartClick end object spnVisitStop: TUpDown [31] Tag = 30 Left = 127 Top = 348 Width = 16 Height = 21 HelpContext = 9069 Associate = txtVisitStop Min = -999 Max = 999 TabOrder = 5 Thousands = False OnClick = spnVisitStopClick end object radListSource: TRadioGroup [32] Left = 16 Top = 38 Width = 145 Height = 105 HelpContext = 9061 Caption = 'List Source ' ItemIndex = 0 Items.Strings = ( 'Primary &Provider' 'Treating &Specialty' 'Team/&List' '&Ward' '&Clinic' 'C&ombination') TabOrder = 0 OnClick = radListSourceClick end object grpSortOrder: TGroupBox [33] Left = 16 Top = 152 Width = 145 Height = 94 HelpContext = 9062 Caption = 'Sort Order ' TabOrder = 1 object radAlphabetical: TRadioButton Left = 8 Top = 16 Width = 113 Height = 17 HelpContext = 9062 Caption = '&Alphabetical' TabOrder = 0 end object radRoomBed: TRadioButton Left = 8 Top = 31 Width = 113 Height = 17 HelpContext = 9062 Caption = '&Room/Bed' TabOrder = 1 end object radAppointmentDate: TRadioButton Left = 8 Top = 46 Width = 113 Height = 17 HelpContext = 9062 Caption = 'Appointment &Date' TabOrder = 2 end object radTerminalDigit: TRadioButton Left = 8 Top = 60 Width = 113 Height = 17 HelpContext = 9062 Caption = '&Terminal Digit' TabOrder = 3 end object radSource: TRadioButton Left = 8 Top = 75 Width = 113 Height = 17 HelpContext = 9062 Caption = 'So&urce' TabOrder = 4 end end inherited amgrMain: TVA508AccessibilityManager Data = ( ( 'Component = lblVisitDateRange' 'Status = stsDefault') ( 'Component = lblInfo' 'Status = stsDefault') ( 'Component = pnlBottom' 'Status = stsDefault') ( 'Component = btnOK' 'Status = stsDefault') ( 'Component = btnCancel' 'Status = stsDefault') ( 'Component = cboProvider' 'Status = stsDefault') ( 'Component = cboTreating' 'Status = stsDefault') ( 'Component = cboTeam' 'Status = stsDefault') ( 'Component = cboWard' 'Status = stsDefault') ( 'Component = cboMonday' 'Status = stsDefault') ( 'Component = cboTuesday' 'Status = stsDefault') ( 'Component = cboWednesday' 'Status = stsDefault') ( 'Component = cboThursday' 'Status = stsDefault') ( 'Component = cboFriday' 'Status = stsDefault') ( 'Component = cboSaturday' 'Status = stsDefault') ( 'Component = cboSunday' 'Status = stsDefault') ( 'Component = txtVisitStart' 'Status = stsDefault') ( 'Component = txtVisitStop' 'Status = stsDefault') ( 'Component = spnVisitStart' 'Status = stsDefault') ( 'Component = spnVisitStop' 'Status = stsDefault') ( 'Component = radListSource' 'Status = stsDefault') ( 'Component = grpSortOrder' 'Status = stsDefault') ( 'Component = radAlphabetical' 'Status = stsDefault') ( 'Component = radRoomBed' 'Status = stsDefault') ( 'Component = radAppointmentDate' 'Status = stsDefault') ( 'Component = radTerminalDigit' 'Status = stsDefault') ( 'Component = radSource' 'Status = stsDefault') ( 'Component = frmOptionsPatientSelection' 'Status = stsDefault')) end end