inherited frmODProc: TfrmODProc Tag = 112 Left = 262 Top = 191 Width = 531 Height = 322 HorzScrollBar.Range = 523 HorzScrollBar.Visible = True VertScrollBar.Range = 295 VertScrollBar.Visible = True AutoScroll = False Caption = 'Order a Procedure' PixelsPerInch = 96 TextHeight = 13 object lblProc: TLabel [0] Left = 4 Top = 4 Width = 49 Height = 13 Caption = 'Procedure' end object lblService: TOROffsetLabel [1] Left = 4 Top = 42 Width = 158 Height = 15 Caption = 'Service to perform this procedure' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblUrgency: TStaticText [2] Left = 237 Top = 4 Width = 44 Height = 17 Anchors = [akTop, akRight] Caption = 'Urgency' TabOrder = 15 end object lblPlace: TStaticText [3] Left = 384 Top = 43 Width = 104 Height = 17 Anchors = [akTop, akRight] Caption = 'Place of Consultation' TabOrder = 16 end object lblAttn: TStaticText [4] Left = 384 Top = 4 Width = 46 Height = 17 Anchors = [akTop, akRight] Caption = 'Attention' TabOrder = 17 end object lblProvDiag: TStaticText [5] Left = 237 Top = 81 Width = 104 Height = 17 Anchors = [akTop, akRight] Caption = 'Provisional Diagnosis' TabOrder = 18 end object pnlReason: TPanel [6] Left = 0 Top = 99 Width = 521 Height = 154 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone TabOrder = 9 DesignSize = ( 521 154) object lblReason: TLabel Left = 4 Top = 9 Width = 95 Height = 13 Caption = 'Reason for Request' end object memReason: TCaptionRichEdit Left = 0 Top = 24 Width = 521 Height = 130 Anchors = [akLeft, akTop, akRight, akBottom] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False PopupMenu = popReason ScrollBars = ssBoth TabOrder = 0 WantTabs = True OnChange = ControlChange OnExit = memReasonExit OnKeyDown = memReasonKeyDown OnKeyPress = memReasonKeyPress OnKeyUp = memReasonKeyUp Caption = 'Reason for Request' end end inherited memOrder: TCaptionMemo Left = 4 Top = 258 Width = 361 Height = 36 Anchors = [akLeft, akRight, akBottom] Lines.Strings = ( 'The order text...' '----------------------------------------------------------------' + '--------------' 'An order message may be displayed here.') TabOrder = 1 end object cboUrgency: TORComboBox [8] Left = 237 Top = 17 Width = 133 Height = 21 Anchors = [akTop, akRight] 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 = 2 OnChange = ControlChange CharsNeedMatch = 1 end object cboPlace: TORComboBox [9] Left = 384 Top = 56 Width = 133 Height = 21 Anchors = [akTop, akRight] Style = orcsDropDown AutoSelect = True Caption = 'Place of Consultation' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 6 OnChange = ControlChange CharsNeedMatch = 1 end object txtProvDiag: TCaptionEdit [10] Left = 237 Top = 93 Width = 234 Height = 21 Anchors = [akTop, akRight] ParentShowHint = False PopupMenu = mnuPopProvDx ShowHint = True TabOrder = 7 OnChange = txtProvDiagChange Caption = 'Provisional Diagnosis' end object txtAttn: TORComboBox [11] Left = 384 Top = 17 Width = 133 Height = 21 Anchors = [akTop, akRight] Style = orcsDropDown AutoSelect = True Caption = 'Attention' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 2 MaxLength = 0 Pieces = '2,3' Sorted = False SynonymChars = '<>' TabOrder = 3 OnChange = ControlChange OnNeedData = txtAttnNeedData CharsNeedMatch = 1 end object cboProc: TORComboBox [12] Left = 4 Top = 17 Width = 215 Height = 21 Anchors = [akLeft, akTop, akRight] Style = orcsDropDown AutoSelect = True Caption = 'Procedure' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 0 OnChange = cboProcSelect OnNeedData = cboProcNeedData CharsNeedMatch = 1 end object cboCategory: TORComboBox [13] Left = 516 Top = 10 Width = 3 Height = 21 Style = orcsDropDown AutoSelect = True Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Sorted = False SynonymChars = '<>' TabOrder = 13 Visible = False OnChange = ControlChange CharsNeedMatch = 1 end object cboService: TORComboBox [14] Left = 4 Top = 58 Width = 215 Height = 21 Anchors = [akLeft, akTop, akRight] Style = orcsDropDown AutoSelect = True Caption = 'Service to perform this procedure' Color = clWindow DropDownCount = 8 Enabled = False ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 4 OnChange = cboServiceChange CharsNeedMatch = 1 end inherited cmdAccept: TButton Left = 369 Top = 268 Anchors = [akRight, akBottom] TabOrder = 10 end inherited cmdQuit: TButton Left = 457 Top = 268 Width = 64 Anchors = [akRight, akBottom] TabOrder = 11 end inherited pnlMessage: TPanel Left = 50 Top = 249 Width = 304 Anchors = [akLeft, akRight, akBottom] TabOrder = 12 inherited memMessage: TRichEdit Width = 254 end end object cmdLexSearch: TButton Left = 474 Top = 93 Width = 49 Height = 21 Anchors = [akTop, akRight] Caption = 'Lexicon' TabOrder = 8 OnClick = cmdLexSearchClick end object gbInptOpt: TGroupBox Left = 237 Top = 36 Width = 140 Height = 45 Anchors = [akTop, akRight] Caption = 'Patient will be seen as an:' TabOrder = 5 DesignSize = ( 140 45) object radInpatient: TRadioButton Left = 3 Top = 20 Width = 61 Height = 17 Anchors = [akTop, akRight] Caption = '&Inpatient' TabOrder = 0 OnClick = radInpatientClick end object radOutpatient: TRadioButton Left = 67 Top = 20 Width = 71 Height = 17 Anchors = [akTop, akRight] Caption = '&Outpatient' TabOrder = 1 OnClick = radOutpatientClick end end object mnuPopProvDx: TPopupMenu Left = 353 Top = 77 object mnuPopProvDxDelete: TMenuItem Caption = 'Delete diagnosis' OnClick = mnuPopProvDxDeleteClick end end object popReason: TPopupMenu OnPopup = popReasonPopup Left = 411 Top = 169 object popReasonCut: TMenuItem Caption = 'Cu&t' ShortCut = 16472 OnClick = popReasonCutClick end object popReasonCopy: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = popReasonCopyClick end object popReasonPaste: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = popReasonPasteClick end object popReasonPaste2: TMenuItem Caption = 'Paste2' ShortCut = 8237 Visible = False OnClick = popReasonPasteClick end object popReasonReformat: TMenuItem Caption = 'Reformat Paragraph' ShortCut = 16466 OnClick = popReasonReformatClick end end end