source: cprs/branches/tmg-cprs/CPRS-Chart/fNoteCslt.dfm@ 611

inherited frmNoteConsult: TfrmNoteConsult
  Left = 340
  Top = 431
  AutoScroll = False
  Caption = 'Consult Request Selection'
  ClientWidth = 547
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel [0]
    Left = 8
    Top = 44
    Width = 104
    Height = 13
    Caption = 'Consult Request Date'
  end
  object Label4: TLabel [1]
    Left = 136
    Top = 44
    Width = 36
    Height = 13
    Caption = 'Service'
  end
  object Label5: TLabel [2]
    Left = 268
    Top = 46
    Width = 49
    Height = 13
    Caption = 'Procedure'
  end
  object Label6: TLabel [3]
    Left = 423
    Top = 45
    Width = 30
    Height = 13
    Caption = 'Status'
  end
  object Label7: TLabel [4]
    Left = 488
    Top = 44
    Width = 38
    Height = 13
    Caption = '# Notes'
  end
  object Label1: TStaticText [5]
    Left = 8
    Top = 8
    Width = 313
    Height = 17
    Caption = 
      'This progress note title must be associated with a consult reque' +
      'st.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object Label2: TStaticText [6]
    Left = 8
    Top = 22
    Width = 335
    Height = 17
    Caption = 
      'Select one of the following or press cancel and choose a differe' +
      'nt title.'
    TabOrder = 4
  end
  object lstRequests: TORListBox [7]
    Left = 8
    Top = 58
    Width = 531
    Height = 171
    ItemHeight = 13
    Items.Strings = (
      'a^b^c^d^e^f')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = lstRequestsClick
    Caption = 'Associated Consult Request'
    ItemTipColor = clWindow
    LongList = False
    Pieces = '2,3,4,5,6'
    TabPositions = '21,43,69,83'
  end
  object cmdOK: TButton [8]
    Left = 378
    Top = 242
    Width = 72
    Height = 21
    Caption = 'OK'
    Default = True
    Enabled = False
    TabOrder = 1
    OnClick = cmdOKClick
  end
  object cmdCancel: TButton [9]
    Left = 466
    Top = 242
    Width = 72
    Height = 21
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = cmdCancelClick
  end
  inherited DKLanguageController1: TDKLanguageController
    LangData = {
      0E0066726D4E6F7465436F6E73756C7401010000000100000007004361707469
      6F6E010A00000006004C6162656C33010100000002000000070043617074696F
      6E0006004C6162656C34010100000003000000070043617074696F6E0006004C
      6162656C35010100000004000000070043617074696F6E0006004C6162656C36
      010100000005000000070043617074696F6E0006004C6162656C370101000000
      06000000070043617074696F6E0006004C6162656C3101010000000700000007
      0043617074696F6E0006004C6162656C32010100000008000000070043617074
      696F6E000B006C7374526571756573747301020000000A000000070043617074
      696F6E0900000005004974656D73000500636D644F4B01010000000B00000007
      0043617074696F6E000900636D6443616E63656C01010000000C000000070043
      617074696F6E00}
  end
end