object frmNoteProperties: TfrmNoteProperties
  Left = 470
  Top = 24
  AutoScroll = False
  BorderIcons = []
  Caption = 'Progress Note Properties'
  ClientHeight = 676
  ClientWidth = 543
  Color = clBtnFace
  Constraints.MinWidth = 551
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lblNewTitle: TLabel
    Left = 7
    Top = 14
    Width = 93
    Height = 13
    Alignment = taRightJustify
    Caption = 'Progress Note Title:'
  end
  object lblDateTime: TLabel
    Left = 6
    Top = 138
    Width = 94
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Date/Time of Note:'
  end
  object lblAuthor: TLabel
    Left = 6
    Top = 165
    Width = 94
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Author:'
  end
  object lblCosigner: TLabel
    Left = 6
    Top = 192
    Width = 94
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Expected Cosigner:'
  end
  object lblProcSummCode: TOROffsetLabel
    Left = 371
    Top = 135
    Width = 125
    Height = 15
    Caption = 'Procedure Summary Code'
    HorzOffset = 2
    Transparent = False
    VertOffset = 2
    WordWrap = False
  end
  object lblProcDateTime: TOROffsetLabel
    Left = 371
    Top = 174
    Width = 105
    Height = 15
    Caption = 'Procedure Date/Time'
    HorzOffset = 2
    Transparent = False
    VertOffset = 2
    WordWrap = False
  end
  object cboNewTitle: TORComboBox
    Left = 104
    Top = 11
    Width = 347
    Height = 118
    Style = orcsSimple
    AutoSelect = True
    Caption = 'Progress Note 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 calNote: TORDateBox
    Left = 104
    Top = 135
    Width = 140
    Height = 21
    TabOrder = 1
    OnEnter = calNoteEnter
    DateOnly = False
    RequireTime = True
    Caption = 'Date/Time of Note:'
  end
  object cboAuthor: TORComboBox
    Left = 104
    Top = 162
    Width = 239
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Author'
    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 = NewPersonNeedData
    CharsNeedMatch = 1
  end
  object cboCosigner: TORComboBox
    Left = 104
    Top = 189
    Width = 239
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Expected Cosigner:'
    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 = cboCosignerExit
    OnNeedData = cboCosignerNeedData
    CharsNeedMatch = 1
  end
  object cmdOK: TButton
    Left = 465
    Top = 11
    Width = 72
    Height = 21
    Caption = 'OK'
    Default = True
    TabOrder = 9
    OnClick = cmdOKClick
  end
  object cmdCancel: TButton
    Left = 465
    Top = 38
    Width = 72
    Height = 21
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 10
    OnClick = cmdCancelClick
  end
  object cboProcSummCode: TORComboBox
    Left = 371
    Top = 150
    Width = 142
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Procedure Summary Code'
    Color = clWindow
    DropDownCount = 8
    Items.Strings = (
      '1^Normal'
      '2^Abnormal'
      '3^Borderline'
      '4^Incomplete')
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = False
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 4
    CharsNeedMatch = 1
  end
  object calProcDateTime: TORDateBox
    Left = 371
    Top = 189
    Width = 142
    Height = 21
    TabOrder = 5
    OnEnter = calNoteEnter
    DateOnly = False
    RequireTime = True
    Caption = 'Procedure Date/Time'
  end
  object pnlSurgery: TORAutoPanel
    Tag = 2
    Left = 0
    Top = 217
    Width = 543
    Height = 153
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 6
    object lblSurgDate: TLabel
      Tag = 2
      Left = 2
      Top = 40
      Width = 62
      Height = 13
      Caption = 'Surgery Date'
    end
    object lblSurgProc: TLabel
      Tag = 2
      Left = 98
      Top = 40
      Width = 49
      Height = 13
      Caption = 'Procedure'
    end
    object lblSurgeon: TLabel
      Tag = 2
      Left = 362
      Top = 40
      Width = 40
      Height = 13
      Caption = 'Surgeon'
    end
    object bvlSurgery: TBevel
      Tag = 2
      Left = 1
      Top = 2
      Width = 531
      Height = 2
    end
    object lblSurgery1: TStaticText
      Tag = 2
      Left = 103
      Top = 8
      Width = 284
      Height = 17
      Caption = 'This document title must be associated with a surgery case.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object lblSurgery2: TStaticText
      Tag = 2
      Left = 93
      Top = 22
      Width = 335
      Height = 17
      Caption = 
        'Select one of the following or press cancel and choose a differe' +
        'nt title.'
      TabOrder = 2
    end
    object lstSurgery: TORListBox
      Tag = 2
      Left = 0
      Top = 52
      Width = 543
      Height = 101
      Align = alBottom
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Caption = 'Associated Surgery Case'
      ItemTipColor = clWindow
      LongList = False
      Pieces = '3,2,4'
      TabPositions = '16,60,85'
    end
  end
  object pnlConsults: TORAutoPanel
    Tag = 1
    Left = 0
    Top = 370
    Width = 543
    Height = 153
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 7
    object lblConsult1: TLabel
      Tag = 1
      Left = 3
      Top = 8
      Width = 309
      Height = 13
      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
    end
    object lblConsult2: TLabel
      Tag = 1
      Left = 3
      Top = 22
      Width = 247
      Height = 13
      Caption = 'Select one of the following or choose a different title.'
    end
    object lblCsltDate: TLabel
      Tag = 1
      Left = 2
      Top = 40
      Width = 104
      Height = 13
      Caption = 'Consult Request Date'
    end
    object lblCsltServ: TLabel
      Tag = 1
      Left = 128
      Top = 40
      Width = 36
      Height = 13
      Caption = 'Service'
    end
    object lblCsltProc: TLabel
      Tag = 1
      Left = 261
      Top = 40
      Width = 49
      Height = 13
      Caption = 'Procedure'
    end
    object lblCsltStat: TLabel
      Tag = 1
      Left = 416
      Top = 40
      Width = 30
      Height = 13
      Caption = 'Status'
    end
    object lblCsltNotes: TLabel
      Tag = 1
      Left = 482
      Top = 40
      Width = 38
      Height = 13
      Caption = '# Notes'
    end
    object bvlConsult: TBevel
      Tag = 1
      Left = 1
      Top = 2
      Width = 531
      Height = 2
    end
    object lstRequests: TORListBox
      Tag = 1
      Left = 0
      Top = 52
      Width = 543
      Height = 101
      Align = alBottom
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Caption = 'Associated Consult Request'
      ItemTipColor = clWindow
      LongList = False
      Pieces = '2,3,4,5,6'
      TabPositions = '21,43,69,83'
      OnChange = lstRequestsChange
    end
    object btnShowList: TButton
      Left = 335
      Top = 13
      Width = 100
      Height = 21
      Caption = 'Show Unresolved'
      TabOrder = 1
      OnClick = btnShowListClick
    end
    object btnDetails: TButton
      Left = 450
      Top = 13
      Width = 75
      Height = 21
      Caption = 'Show Details'
      TabOrder = 2
      OnClick = btnDetailsClick
    end
  end
  object pnlPRF: TORAutoPanel
    Tag = 3
    Left = 0
    Top = 523
    Width = 543
    Height = 153
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 8
    object lblPRF: TLabel
      Tag = 1
      Left = 2
      Top = 16
      Width = 304
      Height = 13
      Caption = 'Which Patient Record Flag Action should this Note be linked to?'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Bevel1: TBevel
      Tag = 1
      Left = 1
      Top = 2
      Width = 531
      Height = 2
    end
    object lvPRF: TCaptionListView
      Left = 0
      Top = 32
      Width = 543
      Height = 121
      Align = alBottom
      Columns = <
        item
          Caption = 'Used For Screen Readers'
          Width = 1
        end
        item
          AutoSize = True
          Caption = 'Flag'
        end
        item
          AutoSize = True
          Caption = 'Date'
        end
        item
          AutoSize = True
          Caption = 'Action'
        end
        item
          AutoSize = True
          Caption = 'Note'
        end>
      Constraints.MinHeight = 50
      HideSelection = False
      Items.Data = {
        5E0000000100000000000000FFFFFFFFFFFFFFFF03000000000000000857414E
        44455245521C4F63746F6265722032302C20323030334031303A31353A32333A
        3233115245414C4C59204C4F4E4720535455464603596573FFFFFFFFFFFF}
      ReadOnly = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object DKLanguageController1: TDKLanguageController
    Left = 56
    Top = 72
    LangData = {
      110066726D4E6F746550726F7065727469657301010000000100000007004361
      7074696F6E01260000000B006C626C4E65775469746C65010100000002000000
      070043617074696F6E000B006C626C4461746554696D65010100000003000000
      070043617074696F6E0009006C626C417574686F720101000000040000000700
      43617074696F6E000B006C626C436F7369676E65720101000000050000000700
      43617074696F6E000F006C626C50726F6353756D6D436F646501010000000600
      0000070043617074696F6E000F006C626C50726F634461746554696D65010100
      000007000000070043617074696F6E000B0063626F4E65775469746C65010100
      000008000000070043617074696F6E00070063616C4E6F746501010000000900
      0000070043617074696F6E00090063626F417574686F7201010000000A000000
      070043617074696F6E000B0063626F436F7369676E657201010000000B000000
      070043617074696F6E000500636D644F4B01010000000C000000070043617074
      696F6E000900636D6443616E63656C01010000000D000000070043617074696F
      6E000F0063626F50726F6353756D6D436F646501020000000E00000007004361
      7074696F6E0F00000005004974656D73000F0063616C50726F63446174655469
      6D65010100000010000000070043617074696F6E000A00706E6C537572676572
      7900000B006C626C537572674461746501010000001100000007004361707469
      6F6E000B006C626C5375726750726F6301010000001200000007004361707469
      6F6E000A006C626C53757267656F6E010100000013000000070043617074696F
      6E000A0062766C5375726765727900000B006C626C5375726765727931010100
      000014000000070043617074696F6E000B006C626C5375726765727932010100
      000015000000070043617074696F6E000A006C73745375726765727901010000
      0016000000070043617074696F6E000B00706E6C436F6E73756C747300000B00
      6C626C436F6E73756C7431010100000017000000070043617074696F6E000B00
      6C626C436F6E73756C7432010100000018000000070043617074696F6E000B00
      6C626C43736C7444617465010100000019000000070043617074696F6E000B00
      6C626C43736C745365727601010000001A000000070043617074696F6E000B00
      6C626C43736C7450726F6301010000001B000000070043617074696F6E000B00
      6C626C43736C745374617401010000001C000000070043617074696F6E000C00
      6C626C43736C744E6F74657301010000001D000000070043617074696F6E000A
      0062766C436F6E73756C7400000B006C7374526571756573747301010000001E
      000000070043617074696F6E000B0062746E53686F774C69737401010000001F
      000000070043617074696F6E000A0062746E44657461696C7301010000002000
      0000070043617074696F6E000600706E6C505246000006006C626C5052460101
      00000021000000070043617074696F6E000600426576656C31000005006C7650
      52460105000000220000001200436F6C756D6E735B305D2E43617074696F6E23
      0000001200436F6C756D6E735B315D2E43617074696F6E240000001200436F6C
      756D6E735B325D2E43617074696F6E250000001200436F6C756D6E735B335D2E
      43617074696F6E260000001200436F6C756D6E735B345D2E43617074696F6E00}
  end
end