object frmDCSummProperties: TfrmDCSummProperties Left = 298 Top = 186 AutoScroll = False BorderIcons = [] Caption = 'Discharge Summary Properties' ClientHeight = 437 ClientWidth = 498 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 OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object bvlConsult: TBevel Tag = 1 Left = 6 Top = 119 Width = 483 Height = 2 end object pnlFields: TORAutoPanel Left = 0 Top = 0 Width = 498 Height = 218 Align = alTop BevelOuter = bvNone TabOrder = 0 object lblNewTitle: TLabel Left = 7 Top = 15 Width = 120 Height = 13 Alignment = taRightJustify Caption = 'Discharge Summary Title:' end object lblDateTime: TLabel Left = 28 Top = 141 Width = 99 Height = 13 Alignment = taRightJustify Caption = 'Dictation Date/Time:' end object lblAuthor: TLabel Left = 51 Top = 167 Width = 76 Height = 13 Alignment = taRightJustify Caption = 'Author/Dictator:' end object lblCosigner: TLabel Left = 31 Top = 194 Width = 96 Height = 13 Alignment = taRightJustify Caption = 'Attending Physician:' end object cboNewTitle: TORComboBox Left = 148 Top = 11 Width = 347 Height = 118 Style = orcsSimple AutoSelect = True Caption = 'Discharge Summary Title:' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 ParentShowHint = False Pieces = '2' ShowHint = True Sorted = False SynonymChars = '<>' TabOrder = 0 OnDblClick = cboNewTitleDblClick OnDropDownClose = cboNewTitleDropDownClose OnEnter = cboNewTitleEnter OnExit = cboNewTitleExit OnMouseClick = cboNewTitleMouseClick OnNeedData = cboNewTitleNeedData CharsNeedMatch = 1 end object calSumm: TORDateBox Left = 148 Top = 138 Width = 140 Height = 21 TabOrder = 1 DateOnly = False RequireTime = False Caption = 'Dictation Date/Time:' end object cboAuthor: TORComboBox Left = 148 Top = 164 Width = 239 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Author/Dictator:' 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 = '<>' TabOrder = 2 OnEnter = cboAuthorEnter OnExit = cboAuthorExit OnMouseClick = cboAuthorMouseClick OnNeedData = cboAuthorNeedData CharsNeedMatch = 1 end object cboAttending: TORComboBox Left = 148 Top = 191 Width = 239 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Attending Physician:' 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 = '<>' TabOrder = 3 OnExit = cboAttendingExit OnNeedData = cboAttendingNeedData CharsNeedMatch = 1 end object cmdOK: TButton Left = 411 Top = 165 Width = 72 Height = 21 Caption = 'OK' Default = True TabOrder = 4 OnClick = cmdOKClick end object cmdCancel: TButton Left = 411 Top = 190 Width = 72 Height = 21 Cancel = True Caption = 'Cancel' TabOrder = 5 OnClick = cmdCancelClick end end object pnlTranscription: TORAutoPanel Left = 0 Top = 218 Width = 498 Height = 63 Align = alTop BevelOuter = bvNone TabOrder = 1 Visible = False object lblTranscriptionist: TLabel Left = 53 Top = 13 Width = 71 Height = 13 Alignment = taRightJustify Caption = 'Transcriptionist' end object lblUrgency: TLabel Left = 84 Top = 38 Width = 40 Height = 13 Alignment = taRightJustify Caption = 'Urgency' end object cboTranscriptionist: TORComboBox Left = 148 Top = 7 Width = 239 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Transcriptionist' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 2 MaxLength = 0 ParentShowHint = False Pieces = '2,3' ShowHint = True Sorted = False SynonymChars = '<>' TabOrder = 0 OnNeedData = cboAuthorNeedData CharsNeedMatch = 1 end object cboUrgency: TORComboBox Left = 148 Top = 37 Width = 121 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 CharsNeedMatch = 1 end end object pnlAdmissions: TORAutoPanel Left = 0 Top = 327 Width = 498 Height = 110 Align = alClient AutoSize = True BevelOuter = bvNone TabOrder = 2 Visible = False object lstAdmissions: TORListBox Left = 0 Top = 0 Width = 498 Height = 110 Align = alClient ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 Caption = 'Associated Admission' ItemTipColor = clWindow LongList = False Pieces = '3,5,4,9' TabPositions = '20' OnChange = lstAdmissionsChange end end object pnlLabels: TORAutoPanel Left = 0 Top = 281 Width = 498 Height = 46 Align = alTop AutoSize = True BevelOuter = bvNone TabOrder = 3 Visible = False DesignSize = ( 498 46) object lblLocation: TLabel Left = 1 Top = 33 Width = 41 Height = 13 Caption = 'Location' end object lblDate: TLabel Left = 133 Top = 33 Width = 73 Height = 13 Caption = 'Admission Date' end object lblType: TLabel Left = 249 Top = 33 Width = 24 Height = 13 Caption = 'Type' end object lblSummStatus: TLabel Left = 336 Top = 33 Width = 127 Height = 13 Caption = 'Discharge Summary Status' end object lblDCSumm1: TStaticText Tag = 1 Left = 81 Top = 0 Width = 300 Height = 17 Anchors = [] Caption = 'This discharge summary must be associated with an admission.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object lblDCSumm2: TStaticText Tag = 1 Left = 120 Top = 14 Width = 207 Height = 17 Anchors = [] Caption = 'Select one of the following or press cancel.' TabOrder = 1 end end object DKLanguageController1: TDKLanguageController Left = 240 Top = 224 LangData = { 130066726D444353756D6D50726F706572746965730101000000010000000700 43617074696F6E011A0000000A0062766C436F6E73756C7400000900706E6C46 69656C647300000B006C626C4E65775469746C65010100000002000000070043 617074696F6E000B006C626C4461746554696D65010100000003000000070043 617074696F6E0009006C626C417574686F720101000000040000000700436170 74696F6E000B006C626C436F7369676E65720101000000050000000700436170 74696F6E000B0063626F4E65775469746C650101000000060000000700436170 74696F6E00070063616C53756D6D010100000007000000070043617074696F6E 00090063626F417574686F72010100000008000000070043617074696F6E000C 0063626F417474656E64696E67010100000009000000070043617074696F6E00 0500636D644F4B01010000000A000000070043617074696F6E000900636D6443 616E63656C01010000000B000000070043617074696F6E001000706E6C547261 6E736372697074696F6E000013006C626C5472616E736372697074696F6E6973 7401010000000C000000070043617074696F6E000A006C626C557267656E6379 01010000000D000000070043617074696F6E00130063626F5472616E73637269 7074696F6E69737401010000000E000000070043617074696F6E000A0063626F 557267656E637901010000000F000000070043617074696F6E000D00706E6C41 646D697373696F6E7300000D006C737441646D697373696F6E73010100000010 000000070043617074696F6E000900706E6C4C6162656C7300000B006C626C4C 6F636174696F6E010100000011000000070043617074696F6E0007006C626C44 617465010100000012000000070043617074696F6E0007006C626C5479706501 0100000013000000070043617074696F6E000D006C626C53756D6D5374617475 73010100000014000000070043617074696F6E000A006C626C444353756D6D31 010100000015000000070043617074696F6E000A006C626C444353756D6D3201 0100000016000000070043617074696F6E00} end end