inherited frmConsults: TfrmConsults
  Left = 227
  Top = 172
  Width = 723
  Height = 467
  HelpContext = 6000
  Caption = 'Consults Page'
  Menu = mnuConsults
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited shpPageBottom: TShape
    Top = 408
    Width = 715
  end
  inherited sptHorz: TSplitter
    Left = 83
    Width = 2
    Height = 408
    OnCanResize = sptHorzCanResize
  end
  inherited pnlRight: TPanel [2]
    Left = 85
    Width = 630
    Height = 408
    OnResize = pnlRightResize
    object sptVert: TSplitter
      Left = 0
      Top = 342
      Width = 630
      Height = 4
      Cursor = crVSplit
      Align = alBottom
    end
    object pnlRead: TPanel
      Left = 0
      Top = 0
      Width = 630
      Height = 342
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      OnExit = pnlResultsExit
      object lblTitle: TOROffsetLabel
        Left = 0
        Top = 0
        Width = 630
        Height = 19
        Align = alTop
        Caption = 'Details of Selected Consult'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        HorzOffset = 2
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        Transparent = False
        VertOffset = 6
        WordWrap = False
      end
      object memConsult: TRichEdit
        Left = 0
        Top = 19
        Width = 630
        Height = 323
        Align = alClient
        Color = clCream
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        Lines.Strings = (
          
            'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
            'mnopqrstuvwxyz12')
        ParentCtl3D = False
        ParentFont = False
        PlainText = True
        PopupMenu = popNoteMemo
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 0
        WantReturns = False
        WordWrap = False
        OnMouseMove = FormMouseMove
      end
    end
    object memPCEShow: TRichEdit
      Left = 0
      Top = 346
      Width = 630
      Height = 62
      Align = alBottom
      Color = clCream
      TabOrder = 2
      WantReturns = False
    end
    object pnlResults: TPanel
      Left = 0
      Top = 0
      Width = 630
      Height = 342
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      OnExit = pnlResultsExit
      OnResize = pnlResultsResize
      object memResults: TRichEdit
        Left = 0
        Top = 67
        Width = 630
        Height = 275
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        PopupMenu = popNoteMemo
        ScrollBars = ssBoth
        TabOrder = 1
        WantTabs = True
        OnChange = memResultChange
        OnKeyDown = memResultsKeyDown
        OnMouseMove = FormMouseMove
      end
      object pnlFields: TPanel
        Left = 0
        Top = 0
        Width = 630
        Height = 67
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        OnResize = pnlFieldsResize
        DesignSize = (
          630
          67)
        object bvlNewTitle: TBevel
          Left = 5
          Top = 5
          Width = 117
          Height = 15
        end
        object lblRefDate: TStaticText
          Left = 237
          Top = 6
          Width = 101
          Height = 17
          Hint = 'Press "Change..." to change date/time of note.'
          Alignment = taCenter
          Caption = 'Oct 20,1999@15:30'
          ParentShowHint = False
          ShowAccelChar = False
          ShowHint = True
          TabOrder = 3
        end
        object lblAuthor: TStaticText
          Left = 402
          Top = 6
          Width = 152
          Height = 17
          Hint = 'Press "Change..." to select a different author.'
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          Caption = 'Winchester,Charles Emerson III'
          ParentShowHint = False
          ShowAccelChar = False
          ShowHint = True
          TabOrder = 4
        end
        object lblVisit: TStaticText
          Left = 6
          Top = 21
          Width = 204
          Height = 17
          Caption = 'Vst: 10/20/99 Pulmonary Clinic, Dr. Welby'
          ShowAccelChar = False
          TabOrder = 5
        end
        object lblCosigner: TStaticText
          Left = 307
          Top = 21
          Width = 243
          Height = 13
          Hint = 'Press "Change..." to select a different cosigner.'
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          AutoSize = False
          Caption = 'Expected Cosigner: Winchester,Charles Emerson III'
          ParentShowHint = False
          ShowAccelChar = False
          ShowHint = True
          TabOrder = 6
        end
        object lblSubject: TStaticText
          Left = 6
          Top = 43
          Width = 43
          Height = 17
          Caption = 'Subject:'
          TabOrder = 7
        end
        object lblNewTitle: TStaticText
          Left = 6
          Top = 6
          Width = 119
          Height = 17
          Hint = 'Press "Change..." to select a different title.'
          Caption = ' General Medicine Note '
          Color = clCream
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowAccelChar = False
          ShowHint = True
          TabOrder = 2
        end
        object cmdChange: TButton
          Left = 556
          Top = 6
          Width = 58
          Height = 21
          Anchors = [akTop, akRight]
          Caption = 'Change...'
          TabOrder = 0
          OnClick = cmdChangeClick
          OnMouseMove = FormMouseMove
        end
        object txtSubject: TCaptionEdit
          Left = 48
          Top = 40
          Width = 566
          Height = 21
          Hint = 'Subject is limited to a maximum of 80 characters.'
          Anchors = [akLeft, akTop, akRight]
          MaxLength = 80
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          Text = 'txtSubject'
          OnMouseMove = FormMouseMove
          Caption = 'Subject'
        end
      end
    end
  end
  inherited pnlLeft: TPanel [3]
    Width = 83
    Height = 408
    OnResize = pnlLeftResize
    object splConsults: TSplitter
      Left = 0
      Top = 161
      Width = 83
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object pnlAction: TPanel
      Left = 0
      Top = 164
      Width = 83
      Height = 223
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      OnExit = pnlActionExit
      object splDrawers: TSplitter
        Left = 0
        Top = 220
        Width = 83
        Height = 3
        Cursor = crVSplit
        Align = alBottom
      end
      object cmdNewConsult: TORAlignButton
        Left = 0
        Top = 21
        Width = 83
        Height = 21
        Caption = 'New Consult'
        Constraints.MinHeight = 21
        TabOrder = 2
        OnClick = cmdNewConsultClick
        OnMouseMove = FormMouseMove
        Align = alTop
      end
      object cmdNewProc: TORAlignButton
        Left = 0
        Top = 42
        Width = 83
        Height = 21
        Caption = 'New Procedure'
        Constraints.MinHeight = 21
        TabOrder = 3
        OnClick = cmdNewProcClick
        OnMouseMove = FormMouseMove
        Align = alTop
      end
      object cmdEditResubmit: TORAlignButton
        Left = 0
        Top = 0
        Width = 83
        Height = 21
        Caption = 'Edit/Resubmit'
        Constraints.MinHeight = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Visible = False
        OnClick = cmdEditResubmitClick
        OnMouseMove = FormMouseMove
        Align = alTop
      end
      object lstNotes: TORListBox
        Left = 0
        Top = 63
        Width = 83
        Height = 24
        Style = lbOwnerDrawFixed
        ItemHeight = 13
        ParentShowHint = False
        PopupMenu = popNoteMemo
        ShowHint = True
        TabOrder = 4
        Visible = False
        OnClick = lstNotesClick
        OnMouseMove = FormMouseMove
        ItemTipColor = clWindow
        LongList = False
        Pieces = '2,3'
        TabPositions = '10'
      end
      object tvCsltNotes: TORTreeView
        Left = 0
        Top = 63
        Width = 83
        Height = 157
        Align = alClient
        Constraints.MinWidth = 30
        HideSelection = False
        Indent = 19
        PopupMenu = popNoteList
        ReadOnly = True
        TabOrder = 0
        OnChange = tvCsltNotesChange
        OnClick = tvCsltNotesClick
        OnCollapsed = tvCsltNotesCollapsed
        OnDragDrop = tvCsltNotesDragDrop
        OnDragOver = tvCsltNotesDragOver
        OnExpanded = tvCsltNotesExpanded
        OnMouseMove = FormMouseMove
        OnStartDrag = tvCsltNotesStartDrag
        Caption = 'Consult Notes'
        NodePiece = 0
      end
    end
    object cmdPCE: TORAlignButton
      Left = 0
      Top = 387
      Width = 83
      Height = 21
      Caption = 'Encounter'
      Enabled = False
      TabOrder = 2
      Visible = False
      OnClick = cmdPCEClick
      OnExit = pnlActionExit
      OnMouseMove = FormMouseMove
      Align = alBottom
    end
    object pnlConsultList: TPanel
      Left = 0
      Top = 0
      Width = 83
      Height = 161
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object lblConsults: TOROffsetLabel
        Left = 0
        Top = 0
        Width = 83
        Height = 19
        Align = alTop
        Caption = 'Consults'
        HorzOffset = 2
        Transparent = True
        VertOffset = 6
        WordWrap = False
      end
      object lstConsults: TORListBox
        Left = 0
        Top = 19
        Width = 83
        Height = 142
        Align = alClient
        Ctl3D = True
        ItemHeight = 13
        ParentCtl3D = False
        ParentShowHint = False
        PopupMenu = popConsultList
        ShowHint = True
        TabOrder = 1
        Visible = False
        OnClick = lstConsultsClick
        ItemTipColor = clWindow
        LongList = False
        Pieces = '2,3,4,5'
        TabPositions = '10,15,42'
      end
      object tvConsults: TORTreeView
        Left = 0
        Top = 19
        Width = 83
        Height = 142
        Align = alClient
        HideSelection = False
        Indent = 15
        PopupMenu = popNoteList
        ReadOnly = True
        TabOrder = 0
        OnAddition = tvConsultsAddition
        OnClick = tvConsultsClick
        OnCollapsed = tvConsultsCollapsed
        OnDeletion = tvConsultsDeletion
        OnExit = tvConsultsExit
        OnExpanded = tvConsultsExpanded
        OnKeyUp = tvConsultsKeyUp
        OnMouseMove = FormMouseMove
        Caption = 'Consults'
        NodePiece = 0
        ShortNodeCaptions = True
      end
    end
  end
  inherited DKLanguageController1: TDKLanguageController
    Left = 456
    Top = 65528
    LangData = {
      0B0066726D436F6E73756C7473010100000001000000070043617074696F6E01
      A50000000D0073687050616765426F74746F6D00000700737074486F727A0000
      0700706E6C4C65667400000800706E6C52696768740000070073707456657274
      00000700706E6C52656164000008006C626C5469746C65010100000002000000
      070043617074696F6E000A006D656D436F6E73756C7401010000000300000005
      004C696E6573000A006D656D50434553686F7700000A00706E6C526573756C74
      7300000A006D656D526573756C747300000900706E6C4669656C647300000B00
      62766C4E65775469746C6500000A006C626C5265664461746501020000000500
      0000070043617074696F6E04000000040048696E740009006C626C417574686F
      72010200000007000000070043617074696F6E06000000040048696E74000800
      6C626C5669736974010100000008000000070043617074696F6E000B006C626C
      436F7369676E657201020000000A000000070043617074696F6E090000000400
      48696E74000A006C626C5375626A65637401010000000B000000070043617074
      696F6E000B006C626C4E65775469746C6501020000000D000000070043617074
      696F6E0C000000040048696E74000900636D644368616E676501010000000E00
      0000070043617074696F6E000A007478745375626A6563740103000000110000
      00070043617074696F6E0F000000040048696E7410000000040054657874000B
      0073706C436F6E73756C747300000900706E6C416374696F6E00000A0073706C
      4472617765727300000D00636D644E6577436F6E73756C740101000000120000
      00070043617074696F6E000A00636D644E657750726F63010100000013000000
      070043617074696F6E000F00636D644564697452657375626D69740101000000
      14000000070043617074696F6E0008006C73744E6F74657300000B0074764373
      6C744E6F746573010100000015000000070043617074696F6E000600636D6450
      4345010100000016000000070043617074696F6E000E00706E6C436F6E73756C
      744C69737400000B006C626C436F6E73756C7473010100000017000000070043
      617074696F6E000B006C7374436F6E73756C747300000A007476436F6E73756C
      7473010100000018000000070043617074696F6E000B00706F704E6F74654D65
      6D6F00000E00706F704E6F74654D656D6F437574010100000019000000070043
      617074696F6E000F00706F704E6F74654D656D6F436F707901010000001A0000
      00070043617074696F6E001000706F704E6F74654D656D6F5061737465010100
      00001B000000070043617074696F6E001100706F704E6F74654D656D6F506173
      74653201010000001C000000070043617074696F6E001300706F704E6F74654D
      656D6F5265666F726D617401010000001D000000070043617074696F6E001700
      706F704E6F74654D656D6F53617665436F6E74696E756501010000001E000000
      070043617074696F6E0003005A313100000F00706F704E6F74654D656D6F4669
      6E6401010000001F000000070043617074696F6E001200706F704E6F74654D65
      6D6F5265706C616365010100000020000000070043617074696F6E0003004E31
      3400001200706F704E6F74654D656D6F4772616D6D6172010100000021000000
      070043617074696F6E001000706F704E6F74654D656D6F5370656C6C01010000
      0022000000070043617074696F6E0002004E3500001300706F704E6F74654D65
      6D6F54656D706C617465010100000023000000070043617074696F6E0003005A
      313000001300706F704E6F74654D656D6F5369676E4C69737401010000002400
      0000070043617074696F6E001100706F704E6F74654D656D6F44656C65746501
      0100000025000000070043617074696F6E000F00706F704E6F74654D656D6F45
      646974010100000026000000070043617074696F6E001100706F704E6F74654D
      656D6F416464656E64010100000027000000070043617074696F6E000F00706F
      704E6F74654D656D6F53617665010100000028000000070043617074696F6E00
      0F00706F704E6F74654D656D6F5369676E010100000029000000070043617074
      696F6E001300706F704E6F74654D656D6F4164646C5369676E01010000002A00
      0000070043617074696F6E0002004E3700001000706F704E6F74654D656D6F50
      72696E7401010000002B000000070043617074696F6E0003004E313500001200
      706F704E6F74654D656D6F5072657669657701010000002C0000000700436170
      74696F6E001600706F704E6F74654D656D6F496E7354656D706C617465010100
      00002D000000070043617074696F6E001400706F704E6F74654D656D6F456E63
      6F756E74657201010000002E000000070043617074696F6E000E00706F70436F
      6E73756C744C69737400000D00706F70436F6E73756C74416C6C01010000002F
      000000070043617074696F6E001000706F70436F6E73756C7453746174757301
      0100000030000000070043617074696F6E001100706F70436F6E73756C745365
      7276696365010100000031000000070043617074696F6E000F00706F70436F6E
      73756C744461746573010100000032000000070043617074696F6E001000706F
      70436F6E73756C74437573746F6D010100000033000000070043617074696F6E
      000B006D6E75436F6E73756C7473000007006D6E755669657701010000003400
      0000070043617074696F6E000C006D6E75566965774368617274010100000035
      000000070043617074696F6E000D006D6E754368617274436F76657201010000
      0036000000070043617074696F6E000D006D6E75436861727450726F62730101
      00000037000000070043617074696F6E000C006D6E7543686172744D65647301
      0100000038000000070043617074696F6E000E006D6E7543686172744F726465
      7273010100000039000000070043617074696F6E000D006D6E7543686172744E
      6F74657301010000003A000000070043617074696F6E000D006D6E7543686172
      7443736C747301010000003B000000070043617074696F6E000F006D6E754368
      6172745375726765727901010000003C000000070043617074696F6E000E006D
      6E754368617274444353756D6D01010000003D000000070043617074696F6E00
      0C006D6E7543686172744C61627301010000003E000000070043617074696F6E
      000F006D6E7543686172745265706F72747301010000003F0000000700436170
      74696F6E0012006D6E7556696577496E666F726D6174696F6E01010000004000
      0000070043617074696F6E000B006D6E755669657744656D6F01010000004100
      0000070043617074696F6E000D006D6E75566965775669736974730101000000
      42000000070043617074696F6E0012006D6E75566965775072696D6172794361
      7265010100000043000000070043617074696F6E0013006D6E75566965774D79
      4865616C746865566574010100000044000000070043617074696F6E000C006D
      6E75496E737572616E6365010100000045000000070043617074696F6E000C00
      6D6E7556696577466C616773010100000046000000070043617074696F6E0011
      006D6E755669657752656D6F7465446174610101000000470000000700436170
      74696F6E0010006D6E755669657752656D696E64657273010100000048000000
      070043617074696F6E000F006D6E7556696577506F7374696E67730101000000
      49000000070043617074696F6E0002005A3300000A006D6E7556696577416C6C
      01010000004A000000070043617074696F6E000F006D6E755669657742795374
      6174757301010000004B000000070043617074696F6E0010006D6E7556696577
      42795365727669636501010000004C000000070043617074696F6E000D006D6E
      755669657742794461746501010000004D000000070043617074696F6E000D00
      6D6E7556696577437573746F6D01010000004E000000070043617074696F6E00
      02004E34000014006D6E755669657753617665417344656661756C7401010000
      004F000000070043617074696F6E0016006D6E755669657752657475726E746F
      44656661756C74010100000050000000070043617074696F6E0003004E313300
      000D006D6E7549636F6E4C6567656E6401010000005100000007004361707469
      6F6E0006006D6E75416374010100000052000000070043617074696F6E000900
      6D6E754163744E6577010200000053000000070043617074696F6E5400000004
      0048696E740017006D6E754163744E6577436F6E73756C745265717565737401
      0200000055000000070043617074696F6E56000000040048696E740012006D6E
      754163744E657750726F63656475726501020000005700000007004361707469
      6F6E58000000040048696E740002005A32000014006D6E75416374436F6E7375
      6C7452657175657374010200000059000000070043617074696F6E5A00000004
      0048696E74000D006D6E754163745265636569766501010000005B0000000700
      43617074696F6E000E006D6E754163745363686564756C6501010000005C0000
      00070043617074696F6E000A006D6E7541637444656E7901010000005D000000
      070043617074696F6E0012006D6E754163744564697452657375626D69740101
      0000005E000000070043617074696F6E0011006D6E75416374446973636F6E74
      696E756501010000005F000000070043617074696F6E000D006D6E7541637446
      6F7277617264010100000060000000070043617074696F6E0010006D6E754163
      74416464436F6D6D656E74010100000061000000070043617074696F6E001100
      6D6E7541637453696746696E64696E6773010100000062000000070043617074
      696F6E0013006D6E7541637441646D696E436F6D706C65746501010000006300
      0000070043617074696F6E0002004E33000014006D6E75416374446973706C61
      7944657461696C73010100000064000000070043617074696F6E0014006D6E75
      416374446973706C6179526573756C7473010100000065000000070043617074
      696F6E0012006D6E75416374446973706C617953463531330101000000660000
      00070043617074696F6E0010006D6E754163745072696E745346353133010100
      000067000000070043617074696F6E0002004E31000014006D6E75416374436F
      6E73756C74526573756C7473010100000068000000070043617074696F6E000E
      006D6E75416374436F6D706C657465010100000069000000070043617074696F
      6E0012006D6E754163744D616B65416464656E64756D01020000006A00000007
      0043617074696F6E6B000000040048696E740010006D6E754163744164644944
      456E74727901010000006C000000070043617074696F6E0016006D6E75416374
      417474616368746F4944506172656E7401010000006D00000007004361707469
      6F6E0018006D6E7541637444657461636846726F6D4944506172656E74010100
      00006E000000070043617074696F6E0003004E313200000F006D6E7541637441
      74746163684D656401010000006F000000070043617074696F6E000F006D6E75
      41637452656D6F76654D6564010100000070000000070043617074696F6E0002
      004E3900000C006D6E754163744368616E676501010000007100000007004361
      7074696F6E0010006D6E754163744C6F6164426F696C65720101000000720000
      00070043617074696F6E0002004E32000013006D6E754163745369676E617475
      72654C697374010200000073000000070043617074696F6E7400000004004869
      6E740010006D6E754163744E6F746544656C6574650101000000750000000700
      43617074696F6E000E006D6E754163744E6F7465456469740101000000760000
      00070043617074696F6E0013006D6E754163745369676E617475726553617665
      010200000077000000070043617074696F6E78000000040048696E740013006D
      6E754163745369676E61747572655369676E0101000000790000000700436170
      74696F6E0019006D6E754163744964656E746966794164646C5369676E657273
      01010000007A000000070043617074696F6E0002004E3800000F006D6E754163
      744E6F74655072696E7401010000007B000000070043617074696F6E000A006D
      6E754F7074696F6E7301010000007C000000070043617074696F6E0010006D6E
      754564697454656D706C6174657301010000007D000000070043617074696F6E
      000E006D6E754E657754656D706C61746501010000007E000000070043617074
      696F6E0002004E36000016006D6E754564697453686172656454656D706C6174
      657301010000007F000000070043617074696F6E0014006D6E754E6577536861
      72656454656D706C617465010100000080000000070043617074696F6E000300
      4E3130000012006D6E75456469744469616C674669656C647301010000008100
      0000070043617074696F6E000B0074696D4175746F5361766500000B00706F70
      4E6F74654C69737400001900706F704E6F74654C697374457870616E6453656C
      6563746564010100000082000000070043617074696F6E001400706F704E6F74
      654C697374457870616E64416C6C010100000083000000070043617074696F6E
      001B00706F704E6F74654C697374436F6C6C6170736553656C65637465640101
      00000084000000070043617074696F6E001600706F704E6F74654C697374436F
      6C6C61707365416C6C010100000085000000070043617074696F6E0003004E31
      3100001500706F704E6F74654C6973744164644944456E747279010100000086
      000000070043617074696F6E001B00706F704E6F74654C697374417474616368
      746F4944506172656E74010100000087000000070043617074696F6E001D0070
      6F704E6F74654C69737444657461636846726F6D4944506172656E7401010000
      0088000000070043617074696F6E000B00646C6746696E645465787400000E00
      646C675265706C616365546578740000}
  end
  object popNoteMemo: TPopupMenu
    OnPopup = popNoteMemoPopup
    Left = 589
    Top = 304
    object popNoteMemoCut: TMenuItem
      Caption = 'Cu&t'
      ShortCut = 16472
      OnClick = popNoteMemoCutClick
    end
    object popNoteMemoCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 16451
      OnClick = popNoteMemoCopyClick
    end
    object popNoteMemoPaste: TMenuItem
      Caption = '&Paste'
      ShortCut = 16470
      OnClick = popNoteMemoPasteClick
    end
    object popNoteMemoPaste2: TMenuItem
      Caption = 'Paste2'
      ShortCut = 8237
      Visible = False
      OnClick = popNoteMemoPasteClick
    end
    object popNoteMemoReformat: TMenuItem
      Caption = 'Re&format Paragraph'
      ShortCut = 24658
      OnClick = popNoteMemoReformatClick
    end
    object popNoteMemoSaveContinue: TMenuItem
      Caption = 'Save && Continue Editing'
      ShortCut = 24659
      Visible = False
      OnClick = popNoteMemoSaveContinueClick
    end
    object Z11: TMenuItem
      Caption = '-'
    end
    object popNoteMemoFind: TMenuItem
      Caption = '&Find in Selected Note/Consult'
      OnClick = popNoteMemoFindClick
    end
    object popNoteMemoReplace: TMenuItem
      Caption = '&Replace Text'
      OnClick = popNoteMemoReplaceClick
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object popNoteMemoGrammar: TMenuItem
      Caption = 'Check &Grammar'
      OnClick = popNoteMemoGrammarClick
    end
    object popNoteMemoSpell: TMenuItem
      Caption = 'C&heck Spelling'
      OnClick = popNoteMemoSpellClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object popNoteMemoTemplate: TMenuItem
      Caption = 'Copy into New &Template'
      OnClick = popNoteMemoTemplateClick
    end
    object Z10: TMenuItem
      Caption = '-'
    end
    object popNoteMemoSignList: TMenuItem
      Caption = 'Add to Signature &List'
      OnClick = mnuActSignatureListClick
    end
    object popNoteMemoDelete: TMenuItem
      Caption = '&Delete Note...'
      OnClick = mnuActNoteDeleteClick
    end
    object popNoteMemoEdit: TMenuItem
      Caption = '&Edit Note...'
      OnClick = mnuActNoteEditClick
    end
    object popNoteMemoAddend: TMenuItem
      Caption = '&Make Addendum...'
      OnClick = mnuActMakeAddendumClick
    end
    object popNoteMemoSave: TMenuItem
      Caption = 'S&ave without Signature'
      OnClick = mnuActSignatureSaveClick
    end
    object popNoteMemoSign: TMenuItem
      Caption = '&Sign Note Now...'
      OnClick = mnuActSignatureSignClick
    end
    object popNoteMemoAddlSign: TMenuItem
      Caption = '&Identify Additional Signers'
      OnClick = popNoteMemoAddlSignClick
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object popNoteMemoPrint: TMenuItem
      Caption = 'P&rint Note'
      OnClick = popNoteMemoPrintClick
    end
    object N15: TMenuItem
      Caption = '-'
    end
    object popNoteMemoPreview: TMenuItem
      Caption = 'Previe&w/Print Current Template'
      ShortCut = 16471
      OnClick = popNoteMemoPreviewClick
    end
    object popNoteMemoInsTemplate: TMenuItem
      Caption = 'Insert Current Template'
      ShortCut = 16429
      OnClick = popNoteMemoInsTemplateClick
    end
    object popNoteMemoEncounter: TMenuItem
      Caption = 'Edit Encounter Information'
      ShortCut = 16453
      OnClick = cmdPCEClick
    end
  end
  object popConsultList: TPopupMenu
    Left = 523
    Top = 308
    object popConsultAll: TMenuItem
      Tag = 1
      Caption = '&All Consults'
      OnClick = mnuViewClick
    end
    object popConsultStatus: TMenuItem
      Tag = 2
      Caption = 'Consults by Stat&us'
      OnClick = mnuViewClick
    end
    object popConsultService: TMenuItem
      Tag = 4
      Caption = 'Consults by &Service'
      OnClick = mnuViewClick
    end
    object popConsultDates: TMenuItem
      Tag = 5
      Caption = 'Consults by Date &Range'
      OnClick = mnuViewClick
    end
    object popConsultCustom: TMenuItem
      Tag = 6
      Caption = '&Custom View..'
      OnClick = mnuViewClick
    end
  end
  object mnuConsults: TMainMenu
    Left = 461
    Top = 305
    object mnuView: TMenuItem
      Caption = '&View'
      GroupIndex = 3
      object mnuViewChart: TMenuItem
        Caption = 'Chart &Tab'
        object mnuChartCover: TMenuItem
          Tag = 1
          Caption = 'Cover &Sheet'
          ShortCut = 16467
          OnClick = mnuChartTabClick
        end
        object mnuChartProbs: TMenuItem
          Tag = 2
          Caption = '&Problem List'
          ShortCut = 16464
          OnClick = mnuChartTabClick
        end
        object mnuChartMeds: TMenuItem
          Tag = 3
          Caption = '&Medications'
          ShortCut = 16461
          OnClick = mnuChartTabClick
        end
        object mnuChartOrders: TMenuItem
          Tag = 4
          Caption = '&Orders'
          ShortCut = 16463
          OnClick = mnuChartTabClick
        end
        object mnuChartNotes: TMenuItem
          Tag = 6
          Caption = 'Progress &Notes'
          ShortCut = 16462
          OnClick = mnuChartTabClick
        end
        object mnuChartCslts: TMenuItem
          Tag = 7
          Caption = 'Consul&ts'
          ShortCut = 16468
          OnClick = mnuChartTabClick
        end
        object mnuChartSurgery: TMenuItem
          Tag = 11
          Caption = 'S&urgery'
          ShortCut = 16469
          OnClick = mnuChartTabClick
        end
        object mnuChartDCSumm: TMenuItem
          Tag = 8
          Caption = '&Discharge Summaries'
          ShortCut = 16452
          OnClick = mnuChartTabClick
        end
        object mnuChartLabs: TMenuItem
          Tag = 9
          Caption = '&Laboratory'
          ShortCut = 16460
          OnClick = mnuChartTabClick
        end
        object mnuChartReports: TMenuItem
          Tag = 10
          Caption = '&Reports'
          ShortCut = 16466
          OnClick = mnuChartTabClick
        end
      end
      object mnuViewInformation: TMenuItem
        Caption = 'Information'
        OnClick = mnuViewInformationClick
        object mnuViewDemo: TMenuItem
          Tag = 1
          Caption = 'De&mographics...'
          OnClick = ViewInfo
        end
        object mnuViewVisits: TMenuItem
          Tag = 2
          Caption = 'Visits/Pr&ovider...'
          OnClick = ViewInfo
        end
        object mnuViewPrimaryCare: TMenuItem
          Tag = 3
          Caption = 'Primary &Care...'
          OnClick = ViewInfo
        end
        object mnuViewMyHealtheVet: TMenuItem
          Tag = 4
          Caption = 'MyHealthe&Vet...'
          OnClick = ViewInfo
        end
        object mnuInsurance: TMenuItem
          Tag = 5
          Caption = '&Insurance...'
          OnClick = ViewInfo
        end
        object mnuViewFlags: TMenuItem
          Tag = 6
          Caption = '&Flags...'
          OnClick = ViewInfo
        end
        object mnuViewRemoteData: TMenuItem
          Tag = 7
          Caption = 'Remote &Data...'
          OnClick = ViewInfo
        end
        object mnuViewReminders: TMenuItem
          Tag = 8
          Caption = '&Reminders...'
          Enabled = False
          OnClick = ViewInfo
        end
        object mnuViewPostings: TMenuItem
          Tag = 9
          Caption = '&Postings...'
          OnClick = ViewInfo
        end
      end
      object Z3: TMenuItem
        Caption = '-'
      end
      object mnuViewAll: TMenuItem
        Tag = 1
        Caption = '&All Consults'
        OnClick = mnuViewClick
      end
      object mnuViewByStatus: TMenuItem
        Tag = 2
        Caption = 'Consults by Stat&us'
        OnClick = mnuViewClick
      end
      object mnuViewByService: TMenuItem
        Tag = 4
        Caption = 'Consults by &Service'
        OnClick = mnuViewClick
      end
      object mnuViewByDate: TMenuItem
        Tag = 5
        Caption = 'Consults by Date &Range'
        OnClick = mnuViewClick
      end
      object mnuViewCustom: TMenuItem
        Tag = 6
        Caption = 'Custo&m View'
        OnClick = mnuViewClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mnuViewSaveAsDefault: TMenuItem
        Caption = 'Sa&ve as Default View'
        OnClick = mnuViewSaveAsDefaultClick
      end
      object mnuViewReturntoDefault: TMenuItem
        Caption = 'Return to De&fault View'
        OnClick = mnuViewReturntoDefaultClick
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object mnuIconLegend: TMenuItem
        Caption = 'Icon Legend'
        OnClick = mnuIconLegendClick
      end
    end
    object mnuAct: TMenuItem
      Caption = '&Action'
      GroupIndex = 4
      object mnuActNew: TMenuItem
        Caption = '&New...'
        Hint = 'Add consults or procedures'
        object mnuActNewConsultRequest: TMenuItem
          Tag = 1
          Caption = '&Consult...'
          Hint = 'Creates a new consult'
          OnClick = mnuActNewConsultRequestClick
        end
        object mnuActNewProcedure: TMenuItem
          Tag = 9
          Caption = '&Procedure...'
          Hint = 'Creates a new procedure'
          OnClick = mnuActNewProcedureClick
        end
      end
      object Z2: TMenuItem
        Caption = '-'
      end
      object mnuActConsultRequest: TMenuItem
        Caption = '&Consult Tracking...'
        Hint = 'Actions related to the selected consult'
        object mnuActReceive: TMenuItem
          Tag = 1
          Caption = '&Receive'
          OnClick = mnuActConsultClick
        end
        object mnuActSchedule: TMenuItem
          Tag = 10
          Caption = 'Schedu&le'
          OnClick = mnuActConsultClick
        end
        object mnuActDeny: TMenuItem
          Tag = 2
          Caption = '&Cancel (Deny)'
          OnClick = mnuActConsultClick
        end
        object mnuActEditResubmit: TMenuItem
          Caption = '&Edit/Resubmit'
          OnClick = mnuActEditResubmitClick
        end
        object mnuActDiscontinue: TMenuItem
          Tag = 3
          Caption = '&Discontinue'
          OnClick = mnuActConsultClick
        end
        object mnuActForward: TMenuItem
          Tag = 4
          Caption = '&Forward'
          OnClick = mnuActConsultClick
        end
        object mnuActAddComment: TMenuItem
          Tag = 5
          Caption = '&Add Comment'
          OnClick = mnuActConsultClick
        end
        object mnuActSigFindings: TMenuItem
          Tag = 8
          Caption = '&Significant Findings'
          OnClick = mnuActConsultClick
        end
        object mnuActAdminComplete: TMenuItem
          Tag = 9
          Caption = 'Ad&ministrative Complete'
          OnClick = mnuActConsultClick
        end
        object N3: TMenuItem
          Caption = '-'
        end
        object mnuActDisplayDetails: TMenuItem
          Caption = 'Display De&tails'
          OnClick = mnuActDisplayDetailsClick
        end
        object mnuActDisplayResults: TMenuItem
          Caption = 'Display Res&ults'
          OnClick = mnuActDisplayResultsClick
        end
        object mnuActDisplaySF513: TMenuItem
          Caption = 'Display SF &513'
          OnClick = mnuActDisplaySF513Click
        end
        object mnuActPrintSF513: TMenuItem
          Caption = '&Print SF 513'
          OnClick = mnuActPrintSF513Click
        end
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnuActConsultResults: TMenuItem
        Caption = 'Consult &Results...'
        object mnuActComplete: TMenuItem
          Tag = 6
          Caption = 'Complete/&Update Results...'
          ShortCut = 24661
          OnClick = mnuActCompleteClick
        end
        object mnuActMakeAddendum: TMenuItem
          Tag = 7
          Caption = '&Make Addendum...'
          Hint = 'Makes an addendum for the currently selected consult'
          ShortCut = 24653
          OnClick = mnuActMakeAddendumClick
        end
        object mnuActAddIDEntry: TMenuItem
          Caption = 'Add Ne&w Entry to Interdisciplinary Note'
          OnClick = mnuActAddIDEntryClick
        end
        object mnuActAttachtoIDParent: TMenuItem
          Caption = 'Attach to Interdisciplinary Note'
          OnClick = mnuActAttachtoIDParentClick
        end
        object mnuActDetachFromIDParent: TMenuItem
          Caption = 'Detac&h from Interdisciplinary Note'
          OnClick = mnuActDetachFromIDParentClick
        end
        object N12: TMenuItem
          Caption = '-'
        end
        object mnuActAttachMed: TMenuItem
          Caption = 'A&ttach Medicine Results'
          OnClick = mnuActAttachMedClick
        end
        object mnuActRemoveMed: TMenuItem
          Caption = 'Remo&ve Medicine Results'
          OnClick = mnuActRemoveMedClick
        end
        object N9: TMenuItem
          Caption = '-'
        end
        object mnuActChange: TMenuItem
          Caption = '&Change Title...'
          ShortCut = 24643
          OnClick = mnuActChangeClick
        end
        object mnuActLoadBoiler: TMenuItem
          Caption = 'Reload &Boilerplate Text'
          OnClick = mnuActLoadBoilerClick
        end
        object N2: TMenuItem
          Caption = '-'
        end
        object mnuActSignatureList: TMenuItem
          Caption = 'Add to Signature &List'
          Hint = 
            'Adds the currently displayed consult to list of things to be sig' +
            'ned'
          OnClick = mnuActSignatureListClick
        end
        object mnuActNoteDelete: TMenuItem
          Caption = '&Delete Note...'
          ShortCut = 24644
          OnClick = mnuActNoteDeleteClick
        end
        object mnuActNoteEdit: TMenuItem
          Caption = '&Edit Note...'
          ShortCut = 24645
          OnClick = mnuActNoteEditClick
        end
        object mnuActSignatureSave: TMenuItem
          Caption = 'S&ave Without Signature'
          Hint = 'Saves the consult that is being edited'
          ShortCut = 24641
          OnClick = mnuActSignatureSaveClick
        end
        object mnuActSignatureSign: TMenuItem
          Caption = 'Si&gn Note Now...'
          ShortCut = 24647
          OnClick = mnuActSignatureSignClick
        end
        object mnuActIdentifyAddlSigners: TMenuItem
          Caption = '&Identify Additional Signers'
          OnClick = mnuActIdentifyAddlSignersClick
        end
        object N8: TMenuItem
          Caption = '-'
        end
        object mnuActNotePrint: TMenuItem
          Caption = 'P&rint Note'
          OnClick = mnuActNotePrintClick
        end
      end
    end
    object mnuOptions: TMenuItem
      Caption = '&Options'
      GroupIndex = 4
      OnClick = mnuOptionsClick
      object mnuEditTemplates: TMenuItem
        Caption = 'Edit &Templates...'
        OnClick = mnuEditTemplatesClick
      end
      object mnuNewTemplate: TMenuItem
        Caption = 'Create &New Template...'
        OnClick = mnuNewTemplateClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object mnuEditSharedTemplates: TMenuItem
        Caption = 'Edit &Shared Templates...'
        OnClick = mnuEditSharedTemplatesClick
      end
      object mnuNewSharedTemplate: TMenuItem
        Caption = '&Create New Shared Template...'
        OnClick = mnuNewSharedTemplateClick
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object mnuEditDialgFields: TMenuItem
        Caption = 'Edit Template &Fields'
        OnClick = mnuEditDialgFieldsClick
      end
    end
  end
  object timAutoSave: TTimer
    Enabled = False
    Interval = 300000
    OnTimer = timAutoSaveTimer
    Left = 602
    Top = 110
  end
  object popNoteList: TPopupMenu
    OnPopup = popNoteListPopup
    Left = 395
    Top = 307
    object popNoteListExpandSelected: TMenuItem
      Caption = '&Expand Selected'
      OnClick = popNoteListExpandSelectedClick
    end
    object popNoteListExpandAll: TMenuItem
      Caption = 'E&xpand All'
      OnClick = popNoteListExpandAllClick
    end
    object popNoteListCollapseSelected: TMenuItem
      Caption = 'C&ollapse Selected'
      OnClick = popNoteListCollapseSelectedClick
    end
    object popNoteListCollapseAll: TMenuItem
      Caption = 'Co&llapse All'
      OnClick = popNoteListCollapseAllClick
    end
    object N11: TMenuItem
      Caption = '-'
    end
    object popNoteListAddIDEntry: TMenuItem
      Caption = 'Add Ne&w Entry to Interdisciplinary Note'
      OnClick = mnuActAddIDEntryClick
    end
    object popNoteListAttachtoIDParent: TMenuItem
      Caption = 'Attach to Interdisciplinary Note'
      OnClick = mnuActAttachtoIDParentClick
    end
    object popNoteListDetachFromIDParent: TMenuItem
      Caption = 'Detac&h from Interdisciplinary Note'
      OnClick = mnuActDetachFromIDParentClick
    end
  end
  object dlgFindText: TFindDialog
    Options = [frDown, frHideUpDown]
    OnFind = dlgFindTextFind
    Left = 628
    Top = 303
  end
  object dlgReplaceText: TReplaceDialog
    OnFind = dlgReplaceTextFind
    OnReplace = dlgReplaceTextReplace
    Left = 665
    Top = 303
  end
end