object frmEditProc: TfrmEditProc
  Tag = 112
  Left = 296
  Top = 245
  Width = 569
  Height = 335
  HorzScrollBar.Range = 561
  VertScrollBar.Range = 308
  AutoScroll = False
  Caption = 'Edit and resubmit a cancelled procedure'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  DesignSize = (
    544
    284)
  PixelsPerInch = 96
  TextHeight = 13
  object lblProc: TLabel
    Left = 3
    Top = 7
    Width = 49
    Height = 13
    Caption = 'Procedure'
  end
  object lblReason: TLabel
    Left = 3
    Top = 167
    Width = 90
    Height = 13
    Caption = 'Reason for Consult'
  end
  object lblService: TOROffsetLabel
    Left = 3
    Top = 49
    Width = 158
    Height = 15
    Caption = 'Service to perform this procedure'
    HorzOffset = 2
    Transparent = False
    VertOffset = 2
    WordWrap = False
  end
  object lblComment: TLabel
    Left = 106
    Top = 109
    Width = 74
    Height = 13
    Caption = 'New Comments'
  end
  object lblComments: TLabel
    Left = 3
    Top = 99
    Width = 89
    Height = 13
    Caption = 'Display Comments:'
  end
  object lblUrgency: TStaticText
    Left = 190
    Top = 7
    Width = 44
    Height = 17
    Caption = 'Urgency'
    TabOrder = 18
  end
  object lblPlace: TStaticText
    Left = 362
    Top = 50
    Width = 104
    Height = 17
    Caption = 'Place of Consultation'
    TabOrder = 19
  end
  object lblAttn: TStaticText
    Left = 362
    Top = 7
    Width = 46
    Height = 17
    Caption = 'Attention'
    TabOrder = 20
  end
  object lblProvDiag: TStaticText
    Left = 190
    Top = 81
    Width = 104
    Height = 17
    Caption = 'Provisional Diagnosis'
    TabOrder = 21
  end
  object lblInpOutp: TStaticText
    Left = 192
    Top = 48
    Width = 127
    Height = 17
    Caption = 'Patient will be seen as an:'
    TabOrder = 17
  end
  object memReason: TRichEdit
    Left = 2
    Top = 181
    Width = 555
    Height = 95
    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 = 12
    WantTabs = True
    OnChange = ControlChange
    OnExit = memReasonExit
    OnKeyDown = memReasonKeyDown
    OnKeyPress = memReasonKeyPress
    OnKeyUp = memCommentKeyUp
  end
  object cmdAccept: TButton
    Left = 399
    Top = 282
    Width = 72
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'Resubmit'
    TabOrder = 13
    OnClick = cmdAcceptClick
  end
  object cmdQuit: TButton
    Left = 484
    Top = 282
    Width = 72
    Height = 21
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 14
    OnClick = cmdQuitClick
  end
  object cboUrgency: TORComboBox
    Left = 190
    Top = 22
    Width = 165
    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 = 2
    OnChange = ControlChange
    CharsNeedMatch = 1
  end
  object radInpatient: TRadioButton
    Left = 190
    Top = 61
    Width = 61
    Height = 17
    Caption = '&Inpatient'
    TabOrder = 4
    OnClick = radInpatientClick
  end
  object radOutpatient: TRadioButton
    Left = 264
    Top = 61
    Width = 73
    Height = 17
    Caption = '&Outpatient'
    TabOrder = 5
    OnClick = radOutpatientClick
  end
  object cboPlace: TORComboBox
    Left = 362
    Top = 63
    Width = 195
    Height = 21
    Anchors = [akLeft, 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
    Left = 190
    Top = 94
    Width = 313
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    MaxLength = 180
    ParentShowHint = False
    PopupMenu = mnuPopProvDx
    ShowHint = True
    TabOrder = 7
    OnChange = ControlChange
    Caption = 'Provisional Diagnosis'
  end
  object txtAttn: TORComboBox
    Left = 362
    Top = 22
    Width = 195
    Height = 21
    Anchors = [akLeft, 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
    Left = 3
    Top = 22
    Width = 173
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Procedure'
    Color = clWindow
    DropDownCount = 8
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGrayText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = True
    LongList = True
    LookupPiece = 0
    MaxLength = 0
    ParentFont = False
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 0
    OnChange = cboProcSelect
    OnNeedData = cboProcNeedData
    CharsNeedMatch = 1
  end
  object cboCategory: TORComboBox
    Left = 505
    Top = -11
    Width = 2
    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 = 15
    Visible = False
    OnChange = ControlChange
    CharsNeedMatch = 1
  end
  object cboService: TORComboBox
    Left = 3
    Top = 65
    Width = 173
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Service to perform this procedure'
    Color = clWindow
    DropDownCount = 8
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGrayText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = False
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    ParentFont = False
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 1
    OnChange = ControlChange
    CharsNeedMatch = 1
  end
  object memComment: TRichEdit
    Left = 106
    Top = 123
    Width = 449
    Height = 38
    Anchors = [akLeft, akTop, akRight]
    PopupMenu = popReason
    TabOrder = 11
    WantTabs = True
    OnChange = ControlChange
    OnKeyUp = memCommentKeyUp
  end
  object pnlMessage: TPanel
    Left = 29
    Top = 264
    Width = 381
    Height = 44
    Anchors = [akLeft, akRight, akBottom]
    BevelInner = bvRaised
    BorderStyle = bsSingle
    Caption = 'pnlMessage'
    TabOrder = 16
    Visible = False
    object imgMessage: TImage
      Left = 4
      Top = 4
      Width = 32
      Height = 32
    end
    object memMessage: TRichEdit
      Left = 40
      Top = 4
      Width = 332
      Height = 32
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clInfoText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
      WantReturns = False
    end
  end
  object btnCmtCancel: TButton
    Left = 11
    Top = 116
    Width = 75
    Height = 21
    Caption = 'Cancellation'
    TabOrder = 9
    OnClick = btnCmtCancelClick
  end
  object btnCmtOther: TButton
    Left = 11
    Top = 139
    Width = 75
    Height = 21
    Caption = 'Other'
    TabOrder = 10
    OnClick = btnCmtOtherClick
  end
  object cmdLexSearch: TButton
    Left = 507
    Top = 94
    Width = 49
    Height = 21
    Anchors = [akTop, akRight]
    Caption = 'Lexicon'
    TabOrder = 8
    OnClick = cmdLexSearchClick
  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
  object DKLanguageController1: TDKLanguageController
    Left = 96
    Top = 96
    LangData = {
      0B0066726D4564697450726F63010100000001000000070043617074696F6E01
      2500000007006C626C50726F63010100000002000000070043617074696F6E00
      09006C626C526561736F6E010100000003000000070043617074696F6E000A00
      6C626C53657276696365010100000004000000070043617074696F6E000A006C
      626C436F6D6D656E74010100000005000000070043617074696F6E000B006C62
      6C436F6D6D656E7473010100000006000000070043617074696F6E000A006C62
      6C557267656E6379010100000007000000070043617074696F6E0008006C626C
      506C616365010100000008000000070043617074696F6E0007006C626C417474
      6E010100000009000000070043617074696F6E000B006C626C50726F76446961
      6701010000000A000000070043617074696F6E000A006C626C496E704F757470
      01010000000B000000070043617074696F6E0009006D656D526561736F6E0000
      0900636D6441636365707401010000000C000000070043617074696F6E000700
      636D645175697401010000000D000000070043617074696F6E000A0063626F55
      7267656E637901010000000E000000070043617074696F6E000C00726164496E
      70617469656E7401010000000F000000070043617074696F6E000D007261644F
      757470617469656E74010100000010000000070043617074696F6E0008006362
      6F506C616365010100000011000000070043617074696F6E000B007478745072
      6F7644696167010100000012000000070043617074696F6E0007007478744174
      746E010100000013000000070043617074696F6E00070063626F50726F630101
      00000014000000070043617074696F6E000B0063626F43617465676F72790000
      0A0063626F53657276696365010100000015000000070043617074696F6E000A
      006D656D436F6D6D656E7400000A00706E6C4D65737361676501010000001600
      0000070043617074696F6E000A00696D674D65737361676500000A006D656D4D
      65737361676500000C0062746E436D7443616E63656C01010000001700000007
      0043617074696F6E000B0062746E436D744F7468657201010000001800000007
      0043617074696F6E000C00636D644C6578536561726368010100000019000000
      070043617074696F6E000C006D6E75506F7050726F764478000012006D6E7550
      6F7050726F76447844656C65746501010000001A000000070043617074696F6E
      000900706F70526561736F6E00000C00706F70526561736F6E43757401010000
      001B000000070043617074696F6E000D00706F70526561736F6E436F70790101
      0000001C000000070043617074696F6E000E00706F70526561736F6E50617374
      6501010000001D000000070043617074696F6E000F00706F70526561736F6E50
      617374653201010000001E000000070043617074696F6E001100706F70526561
      736F6E5265666F726D617401010000001F000000070043617074696F6E00}
  end
end