object frmReportsAdhocComponent1: TfrmReportsAdhocComponent1 Left = 254 Top = 116 Width = 641 Height = 479 BorderIcons = [biSystemMenu] Caption = 'ADHOC Health Summary' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 185 Top = 0 Width = 5 Height = 394 Beveled = True OnCanResize = Splitter1CanResize end object ORComboBox1: TORComboBox Left = 0 Top = 0 Width = 185 Height = 394 Style = orcsSimple Align = alLeft AutoSelect = True Caption = 'Available Components' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 0 OnDblClick = btnAddComponentClick OnKeyDown = ORComboBox1KeyDown CharsNeedMatch = 1 end object Panel2: TPanel Left = 0 Top = 394 Width = 633 Height = 51 Align = alBottom TabOrder = 2 DesignSize = ( 633 51) object btnCancelMain: TButton Left = 550 Top = 18 Width = 75 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' TabOrder = 2 OnClick = btnCancelMainClick end object btnOKMain: TButton Left = 462 Top = 18 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'OK' TabOrder = 1 OnClick = btnOKMainClick end object GroupBox1: TGroupBox Left = 0 Top = 8 Width = 329 Height = 41 Caption = 'Lookup By:' TabOrder = 0 object rbtnHeader: TRadioButton Left = 208 Top = 16 Width = 105 Height = 17 Caption = '&Display Header' TabOrder = 2 OnClick = rbtnHeaderClick end object rbtnAbbrev: TRadioButton Left = 96 Top = 16 Width = 89 Height = 17 Caption = '&Abbreviation' TabOrder = 1 OnClick = rbtnAbbrevClick end object rbtnName: TRadioButton Left = 8 Top = 16 Width = 65 Height = 17 Caption = '&Name' TabOrder = 0 OnClick = rbtnNameClick end end end object Panel3: TPanel Left = 190 Top = 0 Width = 443 Height = 394 Align = alClient TabOrder = 1 object Splitter4: TSplitter Left = 219 Top = 25 Width = 5 Height = 368 Beveled = True OnCanResize = Splitter4CanResize end object Panel1: TPanel Left = 1 Top = 1 Width = 441 Height = 24 Align = alTop BevelOuter = bvNone Caption = 'Component Selection(s)' TabOrder = 0 end object ORListBox2: TORListBox Left = 26 Top = 25 Width = 193 Height = 368 Align = alLeft DragMode = dmAutomatic ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = ORListBox2Click OnDblClick = btnRemoveComponentClick OnDragDrop = ORListBox2DragDrop OnDragOver = ORListBox2DragOver OnEndDrag = ORListBox2EndDrag Caption = 'Selected Components' ItemTipColor = clWindow LongList = False Pieces = '2' end object Panel6: TPanel Left = 1 Top = 25 Width = 25 Height = 368 Align = alLeft BevelOuter = bvNone TabOrder = 1 object btnRemoveComponent: TButton Left = 4 Top = 30 Width = 17 Height = 22 Caption = '<' TabOrder = 1 OnClick = btnRemoveComponentClick end object btnRemoveAllComponents: TButton Left = 4 Top = 55 Width = 17 Height = 22 Caption = '<<' TabOrder = 2 OnClick = btnRemoveAllComponentsClick end object btnAddComponent: TButton Left = 4 Top = 5 Width = 17 Height = 22 Caption = '>' TabOrder = 0 OnClick = btnAddComponentClick end end object Panel7: TPanel Left = 224 Top = 25 Width = 218 Height = 368 Align = alClient BevelOuter = bvNone TabOrder = 3 object lblHeaderName: TLabel Left = 30 Top = 8 Width = 69 Height = 13 Caption = 'Header Name:' Enabled = False end object lblOccuranceLimit: TLabel Left = 30 Top = 48 Width = 83 Height = 13 Caption = 'Occurrence Limit:' Enabled = False end object lblTimeLimit: TLabel Left = 153 Top = 48 Width = 50 Height = 13 Caption = 'Time Limit:' Enabled = False end object lblItems: TLabel Left = 30 Top = 184 Width = 49 Height = 13 Caption = 'Sub-items:' Enabled = False end object pnl5Button: TKeyClickPanel Left = 0 Top = 90 Width = 17 Height = 24 Caption = 'Display selected component earlier' TabOrder = 0 TabStop = True OnClick = SpeedButton5Click OnEnter = pnl5ButtonEnter OnExit = pnl5ButtonExit object SpeedButton5: TSpeedButton Left = 0 Top = 1 Width = 17 Height = 22 Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333 3333333333777F3333333333330F033333333333337F7F3333333333330F0333 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333 33333333337F7F3333333333330F033333333333FF7F7FFFF3333330000F0000 3333333777737777F3333330FFFFFFF0333333373F333337333333330FFFFF03 333333337F33337F333333330FFFFF033333333373F333733333333330FFF033 3333333337F337F33333333330FFF03333333333373F373333333333330F0333 33333333337F7F3333333333330F033333333333337373333333333333303333 333333333337F333333333333330333333333333333733333333} NumGlyphs = 2 OnClick = SpeedButton5Click end end object pnl6Button: TKeyClickPanel Left = 0 Top = 115 Width = 17 Height = 24 BevelOuter = bvNone Caption = 'Display selected component later' TabOrder = 1 TabStop = True OnClick = SpeedButton6Click OnEnter = pnl5ButtonEnter OnExit = pnl5ButtonExit object SpeedButton6: TSpeedButton Left = 0 Top = 1 Width = 17 Height = 22 Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337F33333333333333033333333333333373F3333333333330F0333 33333333337F7F3333333333330F033333333333337373F33333333330FFF033 3333333337F337F33333333330FFF033333333333733373F333333330FFFFF03 333333337F33337F333333330FFFFF033333333373333373F3333330FFFFFFF0 33333337FFFF3FF7F3333330000F000033333337777F777733333333330F0333 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333 33333333337F7F3333333333330F033333333333337F7F3333333333330F0333 33333333337F7F33333333333300033333333333337773333333} NumGlyphs = 2 OnClick = SpeedButton6Click end end object edtHeaderName: TCaptionEdit Left = 24 Top = 24 Width = 189 Height = 21 Enabled = False TabOrder = 2 OnExit = edtHeaderNameExit Caption = 'Header Name' end object edtOccuranceLimit: TCaptionEdit Left = 24 Top = 64 Width = 79 Height = 21 Enabled = False TabOrder = 3 OnExit = edtOccuranceLimitExit Caption = 'Occurance Limit' end object cboTimeLimit: TCaptionComboBox Left = 150 Top = 64 Width = 63 Height = 21 ItemHeight = 13 TabOrder = 4 OnExit = cboTimeLimitExit Items.Strings = ( '1D' '2D' '3D' '4D' '5D' '6D' '1W' '2W' '3W' '4W' '1M' '2M' '3M' '4M' '5M' '6M' '7M' '8M' '9M' '10M' '11M' '12M' '1Y' '2Y' '3Y' '4Y' '5Y' '6Y' '7Y' '8Y' '9Y' '10Y' 'No Limit') Caption = 'Time Limit' end object gpbDisplay: TGroupBox Left = 24 Top = 88 Width = 189 Height = 89 Enabled = False TabOrder = 5 object lblICD: TLabel Left = 24 Top = 48 Width = 82 Height = 13 Caption = 'ICD Text Display:' Enabled = False end object ckbHospitalLocation: TCheckBox Left = 24 Top = 16 Width = 153 Height = 17 Caption = 'Display Hospital Location' Enabled = False TabOrder = 0 OnExit = ckbHospitalLocationExit end object ckbProviderNarrative: TCheckBox Left = 24 Top = 32 Width = 153 Height = 17 Caption = 'Display Provider Narrative' Enabled = False TabOrder = 1 OnExit = ckbProviderNarrativeExit end object cboICD: TCaptionComboBox Left = 24 Top = 64 Width = 121 Height = 21 Enabled = False ItemHeight = 13 TabOrder = 2 OnExit = cboICDExit Items.Strings = ( 'Long text' 'Short text' 'Code only' 'Text only' 'None') Caption = 'ICD Text Display' end end object ORListBox1: TORListBox Left = 24 Top = 200 Width = 185 Height = 149 Enabled = False ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 6 Caption = 'Sub-items' ItemTipColor = clWindow LongList = False Pieces = '2' end object btnEditSubitems: TButton Left = 120 Top = 352 Width = 89 Height = 21 Caption = 'Edit Sub-items' Enabled = False TabOrder = 7 OnClick = btnEditSubitemsClick end end end object Timer1: TTimer Enabled = False Interval = 100 OnTimer = Timer1Timer Left = 591 Top = 6 end object DKLanguageController1: TDKLanguageController Left = 535 Top = 17 LangData = { 190066726D5265706F7274734164686F63436F6D706F6E656E74310101000000 01000000070043617074696F6E0125000000090053706C69747465723100000B 004F52436F6D626F426F7831010100000002000000070043617074696F6E0006 0050616E656C3200000D0062746E43616E63656C4D61696E0101000000030000 00070043617074696F6E00090062746E4F4B4D61696E01010000000400000007 0043617074696F6E00090047726F7570426F7831010100000005000000070043 617074696F6E000A007262746E48656164657201010000000600000007004361 7074696F6E000A007262746E4162627265760101000000070000000700436170 74696F6E0008007262746E4E616D65010100000008000000070043617074696F 6E00060050616E656C330000090053706C6974746572340000060050616E656C 31010100000009000000070043617074696F6E000A004F524C697374426F7832 01010000000A000000070043617074696F6E00060050616E656C360000120062 746E52656D6F7665436F6D706F6E656E740000160062746E52656D6F7665416C 6C436F6D706F6E656E747300000F0062746E416464436F6D706F6E656E740000 060050616E656C3700000D006C626C4865616465724E616D6501010000000B00 0000070043617074696F6E0011006C626C4F63637572616E63654C696D697401 010000000C000000070043617074696F6E000C006C626C54696D654C696D6974 01010000000D000000070043617074696F6E0008006C626C4974656D73010100 00000E000000070043617074696F6E000A00706E6C35427574746F6E01010000 000F000000070043617074696F6E000C005370656564427574746F6E3500000A 00706E6C36427574746F6E010100000010000000070043617074696F6E000C00 5370656564427574746F6E3600000D006564744865616465724E616D65010100 000011000000070043617074696F6E0011006564744F63637572616E63654C69 6D6974010100000012000000070043617074696F6E000C0063626F54696D654C 696D6974010200000014000000070043617074696F6E1300000005004974656D 73000A00677062446973706C6179000006006C626C4943440101000000150000 00070043617074696F6E001300636B62486F73706974616C4C6F636174696F6E 010100000016000000070043617074696F6E001400636B6250726F7669646572 4E6172726174697665010100000017000000070043617074696F6E0006006362 6F494344010200000019000000070043617074696F6E1800000005004974656D 73000A004F524C697374426F783101010000001A000000070043617074696F6E 000F0062746E456469745375626974656D7301010000001B0000000700436170 74696F6E00060054696D6572310000} end end