object frmFrame: TfrmFrame
  Left = 280
  Top = 141
  Width = 684
  Height = 487
  Caption = 'p'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  KeyPreview = True
  Menu = mnuFrame
  OldCreateOrder = True
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHelp = FormHelp
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object pnlNoPatientSelected: TPanel
    Left = 0
    Top = 0
    Width = 676
    Height = 433
    Align = alClient
    Caption = 'No patient is currently selected'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Visible = False
  end
  object pnlPatientSelected: TPanel
    Left = 0
    Top = 0
    Width = 676
    Height = 433
    Align = alClient
    TabOrder = 0
    object bvlPageTop: TBevel
      Left = 1
      Top = 41
      Width = 674
      Height = 1
      Align = alTop
    end
    object pnlToolbar: TPanel
      Left = 1
      Top = 1
      Width = 674
      Height = 40
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object bvlToolTop: TBevel
        Left = 0
        Top = 0
        Width = 674
        Height = 1
        Align = alTop
        Style = bsRaised
      end
      object pnlCCOW: TPanel
        Left = 0
        Top = 1
        Width = 39
        Height = 39
        Align = alLeft
        BevelWidth = 2
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        object imgCCOW: TImage
          Left = 2
          Top = 2
          Width = 35
          Height = 35
          Align = alClient
          Center = True
          Picture.Data = {
            07544269746D617052030000424D520300000000000052020000280000001000
            000010000000010008000000000000010000120B0000120B0000870000008700
            00003F3E3F003A393A007B351600BCB6B30082340900642700008D3F0D00985B
            3400B19A8C00B5A59B008B3700008A3700008936000088360000873500008635
            00008535000083340000813300007D3100007D3200007B3100007A3000007830
            0000772F0000762F0000742E00006F2C00006E2B00006C2B00006A2A00006829
            0000662800006528000061260000602600005C2400005B240000592300005823
            0000562200008B3801008C3902008C3903008C3A04008C3B05008D3B06008D3C
            07008E3E0A008F420F009045130090481900935025009B6440009F6D4C00A275
            5800A6806700AA897300AD917F00B8AEA700053A0D00063B0E000C3F14000E41
            16000A3C17002351360000007F0000007B000101800001017F00040480000707
            820007078100080882000A0A82000D0D7200101085000E0E7200131386001313
            7500171787001919880021218A0025258C0023237B002B2B8E002C2C8E002F2F
            8F002C2C79003535840039398500FFFFFF00DFDFDF00BFBFBF00BEBEBE00BCBC
            BC00BBBBBB00B9B9B900B8B8B800B7B7B700B4B4B400B2B2B200B1B1B100ACAC
            AC00A9A9A900A7A7A700A6A6A600A4A4A400A2A2A2009F9F9F00989898009797
            970094949400929292008F8F8F008C8C8C008B8B8B0089898900858585008484
            840083838300818181007F7F7F007E7E7E007D7D7D007B7B7B007A7A7A007979
            79007777770076767600747474000A0A0A000707070001010100000000005D04
            868686865D868686865D5D5D5D5D5D865B5B5B5B865B5B5B5B865D5D5D5D865B
            8686868686868686865B865D5D5D865B865D865D5D5D865D865B865D5D5D865B
            8686868686868686865B865D5D5D0A865B5B5B5B865B5B5B5B865D5D5D5D0A0A
            868686865D868686865D5D5D5D5D0A0A0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A
            0A0A0A0A5D5D5D5D5D0C0C5D5D5D0A0A0A0A0A0A5D5D5D5D5D5D5D5D5D5D5D29
            0A0A0A5D5D5D5D5D5D0C0C5D5D5D5D5D0A0A5D5D5D5D5D5D5D0C0C0C5D5D5D0A
            0A0A2F5D5D5D5D5D5D5D0C0C0C5D5D0A0A0A305D5D5D5D5D5D5D5D0C0C5D5D02
            0A0A025D5D5D5D5D0C0C0C0C0C5D5D5D5D5D5D5D5D5D5D5D0C0C0C0C5D5D}
        end
      end
      object pnlPatient: TKeyClickPanel
        Left = 39
        Top = 1
        Width = 187
        Height = 39
        Hint = 'Click for more patient information.'
        Align = alLeft
        BevelWidth = 2
        Color = clInfoBk
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clInfoBk
        Font.Height = -8
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        TabStop = True
        OnClick = pnlPatientClick
        OnEnter = pnlPrimaryCareEnter
        OnExit = pnlPrimaryCareExit
        OnMouseDown = pnlPatientMouseDown
        OnMouseUp = pnlPatientMouseUp
        object lblPtName: TStaticText
          Left = 6
          Top = 4
          Width = 118
          Height = 17
          Caption = 'No Patient Selected'
          Font.Charset = ANSI_CHARSET
          Font.Color = clInfoText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          OnClick = pnlPatientClick
          OnMouseDown = pnlPatientMouseDown
          OnMouseUp = pnlPatientMouseUp
        end
        object lblPtSSN: TStaticText
          Left = 6
          Top = 19
          Width = 4
          Height = 4
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clInfoText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
          OnClick = pnlPatientClick
          OnMouseDown = pnlPatientMouseDown
          OnMouseUp = pnlPatientMouseUp
        end
        object lblPtAge: TStaticText
          Left = 176
          Top = 19
          Width = 4
          Height = 4
          Alignment = taRightJustify
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clInfoText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          TabOrder = 2
          OnClick = pnlPatientClick
          OnMouseDown = pnlPatientMouseDown
          OnMouseUp = pnlPatientMouseUp
        end
      end
      object pnlVisit: TKeyClickPanel
        Left = 226
        Top = 1
        Width = 168
        Height = 39
        Hint = 'Click to change provider/location.'
        Align = alLeft
        BevelWidth = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnFace
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = True
        OnClick = pnlVisitClick
        OnEnter = pnlPrimaryCareEnter
        OnExit = pnlPrimaryCareExit
        OnMouseDown = pnlVisitMouseDown
        OnMouseUp = pnlVisitMouseUp
        object lblPtLocation: TStaticText
          Left = 6
          Top = 4
          Width = 4
          Height = 4
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowAccelChar = False
          ShowHint = False
          TabOrder = 0
          OnClick = pnlVisitClick
          OnMouseDown = pnlVisitMouseDown
          OnMouseUp = pnlVisitMouseUp
        end
        object lblPtProvider: TStaticText
          Left = 6
          Top = 19
          Width = 4
          Height = 4
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
          OnClick = pnlVisitClick
          OnMouseDown = pnlVisitMouseDown
          OnMouseUp = pnlVisitMouseUp
        end
      end
      object pnlPrimaryCare: TKeyClickPanel
        Left = 394
        Top = 1
        Width = 31
        Height = 39
        Hint = 'Primary Care Team / Primary Care Provider'
        Align = alClient
        BevelWidth = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnFace
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        TabStop = True
        OnClick = pnlPrimaryCareClick
        OnEnter = pnlPrimaryCareEnter
        OnExit = pnlPrimaryCareExit
        OnMouseDown = pnlPrimaryCareMouseDown
        OnMouseUp = pnlPrimaryCareMouseUp
        object lblPtCare: TStaticText
          Left = 6
          Top = 4
          Width = 4
          Height = 4
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          OnClick = pnlPrimaryCareClick
          OnMouseDown = pnlPrimaryCareMouseDown
          OnMouseUp = pnlPrimaryCareMouseUp
        end
        object lblPtAttending: TStaticText
          Left = 6
          Top = 19
          Width = 4
          Height = 4
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
          OnClick = pnlPrimaryCareClick
          OnMouseDown = pnlPrimaryCareMouseDown
          OnMouseUp = pnlPrimaryCareMouseUp
        end
      end
      object pnlCIRN: TKeyClickPanel
        Left = 520
        Top = 1
        Width = 49
        Height = 39
        Align = alRight
        BevelWidth = 2
        Caption = 'Remote Data'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnFace
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = pnlCIRNClick
        OnEnter = pnlPrimaryCareEnter
        OnExit = pnlPrimaryCareExit
        OnMouseDown = pnlCIRNMouseDown
        OnMouseUp = pnlCIRNMouseUp
        object lblCIRN: TLabel
          Left = 2
          Top = 2
          Width = 45
          Height = 13
          Align = alTop
          Alignment = taCenter
          Caption = 'Remote'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnFace
          Font.Height = -8
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          OnClick = pnlCIRNClick
        end
        object lblCIRNData: TLabel
          Left = 2
          Top = 15
          Width = 45
          Height = 13
          Align = alTop
          Alignment = taCenter
          Caption = 'Data'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnFace
          Font.Height = -8
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          OnClick = pnlCIRNClick
        end
        object lblCIRNAvail: TLabel
          Left = 2
          Top = 28
          Width = 45
          Height = 9
          Align = alClient
          Alignment = taCenter
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnFace
          Font.Height = -8
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          OnClick = pnlCIRNClick
        end
      end
      object pnlReminders: TKeyClickPanel
        Left = 569
        Top = 1
        Width = 35
        Height = 39
        Align = alRight
        BevelWidth = 2
        Caption = 'Reminders'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnFace
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        TabStop = True
        OnClick = pnlRemindersClick
        OnEnter = pnlPrimaryCareEnter
        OnExit = pnlPrimaryCareExit
        OnMouseDown = pnlRemindersMouseDown
        OnMouseUp = pnlRemindersMouseUp
        object imgReminder: TImage
          Left = 2
          Top = 2
          Width = 31
          Height = 35
          Align = alClient
          Center = True
          OnMouseDown = pnlRemindersMouseDown
          OnMouseUp = pnlRemindersMouseUp
        end
        object anmtRemSearch: TAnimate
          Left = 2
          Top = 2
          Width = 31
          Height = 35
          Align = alClient
          Visible = False
        end
      end
      object pnlFlag: TKeyClickPanel
        Left = 485
        Top = 1
        Width = 35
        Height = 39
        Hint = 'Click to display patient record flags.'
        Align = alRight
        BevelWidth = 2
        Caption = 'Flag'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        TabStop = True
        OnClick = pnlFlagClick
        OnEnter = pnlFlagEnter
        OnExit = pnlFlagExit
        OnMouseDown = pnlFlagMouseDown
        OnMouseUp = pnlFlagMouseUp
        object lblFlag: TLabel
          Left = 2
          Top = 2
          Width = 31
          Height = 35
          Align = alClient
          Alignment = taCenter
          Caption = 'Flag'
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnFace
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Layout = tlCenter
          WordWrap = True
          OnClick = pnlFlagClick
          OnMouseDown = pnlFlagMouseDown
          OnMouseUp = pnlFlagMouseUp
        end
      end
      object pnlPostings: TKeyClickPanel
        Left = 604
        Top = 1
        Width = 70
        Height = 39
        Hint = 'Click to display patient postings.'
        Align = alRight
        BevelWidth = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnFace
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        TabStop = True
        OnClick = pnlPostingsClick
        OnEnter = pnlPrimaryCareEnter
        OnExit = pnlPrimaryCareExit
        OnMouseDown = pnlPostingsMouseDown
        OnMouseUp = pnlPostingsMouseUp
        object lblPtPostings: TStaticText
          Left = 5
          Top = 4
          Width = 57
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Caption = 'No Postings'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          TabOrder = 0
          OnClick = pnlPostingsClick
          OnMouseDown = pnlPostingsMouseDown
          OnMouseUp = pnlPostingsMouseUp
        end
        object lblPtCWAD: TStaticText
          Left = 6
          Top = 19
          Width = 57
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
          OnClick = pnlPostingsClick
          OnMouseDown = pnlPostingsMouseDown
          OnMouseUp = pnlPostingsMouseUp
        end
      end
      object paVAA: TKeyClickPanel
        Left = 425
        Top = 1
        Width = 60
        Height = 39
        Align = alRight
        BevelOuter = bvNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnFace
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 3
        Visible = False
        DesignSize = (
          60
          39)
        object laVAA2: TButton
          Left = 0
          Top = 19
          Width = 59
          Height = 20
          Hint = 'Click to display patient insurance data'
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = 'laVAA2'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = laVAA2Click
        end
        object laMHV: TButton
          Left = 0
          Top = 1
          Width = 59
          Height = 18
          Hint = 'Click to display MHV data'
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = 'laMHV'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = laMHVClick
        end
      end
    end
    object stsArea: TStatusBar
      Left = 1
      Top = 411
      Width = 674
      Height = 21
      Panels = <
        item
          Width = 200
        end
        item
          Width = 224
        end
        item
          Style = psOwnerDraw
          Width = 50
        end
        item
          Width = 94
        end
        item
          Width = 38
        end
        item
          Width = 33
        end>
      PopupMenu = popAlerts
      SizeGrip = False
      OnMouseDown = stsAreaMouseDown
      OnMouseUp = stsAreaMouseUp
      OnDrawPanel = stsAreaDrawPanel
    end
    object tabPage: TTabControl
      Left = 1
      Top = 389
      Width = 674
      Height = 22
      Align = alBottom
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TabPosition = tpBottom
      OnChange = tabPageChange
      OnMouseUp = tabPageMouseUp
    end
    object pnlPage: TPanel
      Left = 1
      Top = 42
      Width = 674
      Height = 347
      Align = alClient
      BevelOuter = bvNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object lstCIRNLocations: TORListBox
        Left = 424
        Top = 0
        Width = 209
        Height = 78
        TabStop = False
        Style = lbOwnerDrawFixed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        ParentShowHint = False
        PopupMenu = popCIRN
        ShowHint = False
        TabOrder = 0
        Visible = False
        OnClick = lstCIRNLocationsClick
        OnExit = lstCIRNLocationsExit
        Caption = 'Remote Data'
        ItemTipColor = clWindow
        LongList = False
        Pieces = '2,3,4'
        TabPositions = '16'
        OnChange = lstCIRNLocationsChange
        RightClickSelect = True
        CheckBoxes = True
        CheckEntireLine = True
      end
    end
  end
  object mnuFrame: TMainMenu
    Left = 180
    Top = 128
    object mnuFile: TMenuItem
      Caption = '&File'
      GroupIndex = 1
      object mnuFileOpen: TMenuItem
        Caption = 'Select &New Patient...'
        OnClick = mnuFileOpenClick
      end
      object mnuFileRefresh: TMenuItem
        Caption = 'Refresh Patient &Information'
        OnClick = mnuFileRefreshClick
      end
      object EditDemographics: TMenuItem
        Caption = 'Edit Patient &Demographics'
        OnClick = EditDemographicsClick
      end
      object mnuFileResumeContext: TMenuItem
        Caption = 'Rejoin patient link'
        object mnuFileResumeContextSet: TMenuItem
          Caption = 'Set new context'
          OnClick = mnuFileResumeContextSetClick
        end
        object Useexistingcontext1: TMenuItem
          Caption = 'Use existing context'
          OnClick = mnuFileResumeContextGetClick
        end
      end
      object mnuFileBreakContext: TMenuItem
        Caption = 'Break patient link'
        OnClick = mnuFileBreakContextClick
      end
      object mnuFileEncounter: TMenuItem
        Caption = '&Update Provider / Location...'
        OnClick = mnuFileEncounterClick
      end
      object mnuFileReview: TMenuItem
        Caption = '&Review/Sign Changes...'
        OnClick = mnuFileReviewClick
      end
      object Z7: TMenuItem
        Caption = '-'
        Visible = False
      end
      object mnuFileNext: TMenuItem
        Caption = 'Next Noti&fication'
        OnClick = mnuFileNextClick
      end
      object mnuFileNotifRemove: TMenuItem
        Caption = 'Remo&ve Current Notification'
        OnClick = mnuFileNotifRemoveClick
      end
      object Z1: TMenuItem
        Caption = '-'
      end
      object mnuFilePrintSetup: TMenuItem
        Caption = 'Print &Setup...'
        Enabled = False
        OnClick = mnuFilePrintSetupClick
      end
      object mnuFilePrintSelectedItems: TMenuItem
        Caption = 'Print Selected Items'
        Enabled = False
        OnClick = mnuFilePrintSelectedItemsClick
      end
      object mnuFilePrint: TMenuItem
        Caption = '&Print...'
        Enabled = False
        OnClick = mnuFilePrintClick
      end
      object mnuFileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuFileExitClick
      end
    end
    object mnuEdit: TMenuItem
      Caption = '&Edit'
      GroupIndex = 2
      OnClick = mnuEditClick
      object mnuEditUndo: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
        OnClick = mnuEditUndoClick
      end
      object Z3: TMenuItem
        Caption = '-'
      end
      object mnuEditCut: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = mnuEditCutClick
      end
      object mnuEditCopy: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = mnuEditCopyClick
      end
      object mnuEditPaste: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = mnuEditPasteClick
      end
      object Z4: TMenuItem
        Caption = '-'
      end
      object mnuEditPref: TMenuItem
        Caption = 'P&references'
        object Prefs1: TMenuItem
          Caption = '&Fonts'
          object mnu8pt: TMenuItem
            Tag = 8
            Caption = '8 pt'
            RadioItem = True
            OnClick = mnuFontSizeClick
          end
          object mnu10pt1: TMenuItem
            Tag = 10
            Caption = '10 pt'
            RadioItem = True
            OnClick = mnuFontSizeClick
          end
          object mnu12pt1: TMenuItem
            Tag = 12
            Caption = '12 pt'
            RadioItem = True
            OnClick = mnuFontSizeClick
          end
          object mnu14pt1: TMenuItem
            Tag = 14
            Caption = '14 pt'
            RadioItem = True
            OnClick = mnuFontSizeClick
          end
          object mnu18pt1: TMenuItem
            Tag = 18
            Caption = '18 pt'
            RadioItem = True
            OnClick = mnuFontSizeClick
          end
          object mnu24pt1: TMenuItem
            Tag = 24
            Caption = '24 pt'
            RadioItem = True
            OnClick = mnuFontSizeClick
          end
        end
      end
    end
    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...'
          OnClick = ViewInfo
        end
        object mnuViewPostings: TMenuItem
          Tag = 9
          Caption = '&Postings...'
          OnClick = ViewInfo
        end
      end
    end
    object mnuTools: TMenuItem
      Caption = '&Tools'
      GroupIndex = 8
      OnClick = mnuToolsClick
      object Z8: TMenuItem
        Caption = '-'
      end
      object mnuToolsGraphing: TMenuItem
        Caption = '&Graphing...'
        ShortCut = 16455
        OnClick = mnuToolsGraphingClick
      end
      object LabInfo1: TMenuItem
        Caption = '&Lab Test Information...'
        OnClick = LabInfo1Click
      end
      object mnuToolsOptions: TMenuItem
        Caption = '&Options...'
        OnClick = mnuToolsOptionsClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      GroupIndex = 9
      object mnuHelpContents: TMenuItem
        Caption = '&Contents'
        Hint = 'WinHlp32 cprs.hlp'
        OnClick = ToolClick
      end
      object mnuHelpTutor: TMenuItem
        Caption = '&Brief Tutorial'
        Enabled = False
        Visible = False
      end
      object Z5: TMenuItem
        Caption = '-'
      end
      object mnuHelpBroker: TMenuItem
        Caption = 'Last Broker Call'
        OnClick = mnuHelpBrokerClick
      end
      object mnuHelpLists: TMenuItem
        Caption = 'Show ListBox Data'
        OnClick = mnuHelpListsClick
      end
      object mnuHelpSymbols: TMenuItem
        Caption = 'Symbol Table'
        OnClick = mnuHelpSymbolsClick
      end
      object Z6: TMenuItem
        Caption = '-'
      end
      object mnuHelpAbout: TMenuItem
        Caption = '&About CPRS'
        OnClick = mnuHelpAboutClick
      end
    end
  end
  object popCIRN: TPopupMenu
    Left = 539
    Top = 60
    object popCIRNSelectAll: TMenuItem
      Caption = 'Select All'
      OnClick = popCIRNSelectAllClick
    end
    object popCIRNSelectNone: TMenuItem
      Caption = 'Select None'
      OnClick = popCIRNSelectNoneClick
    end
    object popCIRNClose: TMenuItem
      Caption = 'Close List'
      OnClick = popCIRNCloseClick
    end
  end
  object OROpenDlg: TOpenDialog
    Filter = 'Exe file (*.exe)|*.exe'
    Left = 260
    Top = 257
  end
  object popAlerts: TPopupMenu
    AutoPopup = False
    Left = 320
    Top = 200
    object mnuAlertContinue: TMenuItem
      Caption = 'Continue'
      OnClick = mnuFileNextClick
    end
    object mnuAlertForward: TMenuItem
      Caption = 'Forward'
      OnClick = mnuAlertForwardClick
    end
    object mnuAlertRenew: TMenuItem
      Caption = 'Renew'
      OnClick = mnuAlertRenewClick
    end
  end
  object AppEvents: TApplicationEvents
    OnActivate = AppEventsActivate
    OnShortCut = AppEventsShortCut
    Left = 336
    Top = 256
  end
  object DKLanguageController1: TDKLanguageController
    Left = 281
    Top = 66
    LangData = {
      080066726D4672616D65010100000001000000070043617074696F6E01740000
      001400706E6C4E6F50617469656E7453656C6563746564010100000002000000
      070043617074696F6E001200706E6C50617469656E7453656C65637465640000
      0A0062766C50616765546F7000000A00706E6C546F6F6C62617200000A006276
      6C546F6F6C546F7000000700706E6C43434F5700000700696D6743434F570000
      0A00706E6C50617469656E74010100000003000000040048696E740009006C62
      6C50744E616D65010100000004000000070043617074696F6E0008006C626C50
      7453534E000008006C626C507441676500000800706E6C566973697401010000
      0005000000040048696E74000D006C626C50744C6F636174696F6E00000D006C
      626C507450726F766964657200000E00706E6C5072696D617279436172650101
      00000006000000040048696E740009006C626C50744361726500000E006C626C
      5074417474656E64696E6700000700706E6C4349524E01010000000700000007
      0043617074696F6E0007006C626C4349524E0101000000080000000700436170
      74696F6E000B006C626C4349524E446174610101000000090000000700436170
      74696F6E000C006C626C4349524E417661696C00000C00706E6C52656D696E64
      65727301010000000A000000070043617074696F6E000B00696D6752656D696E
      64657200000D00616E6D7452656D53656172636800000700706E6C466C616701
      020000000C000000070043617074696F6E0B000000040048696E740007006C62
      6C466C616701010000000D000000070043617074696F6E000B00706E6C506F73
      74696E677301010000000E000000040048696E74000D006C626C5074506F7374
      696E677301010000000F000000070043617074696F6E0009006C626C50744357
      4144000005007061564141000006006C61564141320102000000110000000700
      43617074696F6E10000000040048696E740005006C614D485601020000001300
      0000070043617074696F6E12000000040048696E740007007374734172656100
      0007007461625061676500000700706E6C50616765000010006C73744349524E
      4C6F636174696F6E73010100000014000000070043617074696F6E0008006D6E
      754672616D65000007006D6E7546696C65010100000015000000070043617074
      696F6E000B006D6E7546696C654F70656E010100000016000000070043617074
      696F6E000E006D6E7546696C6552656672657368010100000017000000070043
      617074696F6E0014006D6E7546696C65526573756D65436F6E74657874010100
      000018000000070043617074696F6E0017006D6E7546696C65526573756D6543
      6F6E74657874536574010100000019000000070043617074696F6E0013005573
      656578697374696E67636F6E746578743101010000001A000000070043617074
      696F6E0013006D6E7546696C65427265616B436F6E7465787401010000001B00
      0000070043617074696F6E0010006D6E7546696C65456E636F756E7465720101
      0000001C000000070043617074696F6E000D006D6E7546696C65526576696577
      01010000001D000000070043617074696F6E0002005A3700000B006D6E754669
      6C654E65787401010000001E000000070043617074696F6E0012006D6E754669
      6C654E6F74696652656D6F766501010000001F000000070043617074696F6E00
      02005A31000011006D6E7546696C655072696E74536574757001010000002000
      0000070043617074696F6E0019006D6E7546696C655072696E7453656C656374
      65644974656D73010100000021000000070043617074696F6E000C006D6E7546
      696C655072696E74010100000022000000070043617074696F6E000B006D6E75
      46696C6545786974010100000023000000070043617074696F6E0007006D6E75
      45646974010100000024000000070043617074696F6E000B006D6E7545646974
      556E646F010100000025000000070043617074696F6E0002005A3300000A006D
      6E7545646974437574010100000026000000070043617074696F6E000B006D6E
      7545646974436F7079010100000027000000070043617074696F6E000C006D6E
      75456469745061737465010100000028000000070043617074696F6E0002005A
      3400000B006D6E75456469745072656601010000002900000007004361707469
      6F6E00060050726566733101010000002A000000070043617074696F6E000600
      6D6E7538707401010000002B000000070043617074696F6E0008006D6E753130
      70743101010000002C000000070043617074696F6E0008006D6E753132707431
      01010000002D000000070043617074696F6E0008006D6E753134707431010100
      00002E000000070043617074696F6E0008006D6E75313870743101010000002F
      000000070043617074696F6E0008006D6E753234707431010100000030000000
      070043617074696F6E0007006D6E755669657701010000003100000007004361
      7074696F6E000C006D6E75566965774368617274010100000032000000070043
      617074696F6E000D006D6E754368617274436F76657201010000003300000007
      0043617074696F6E000D006D6E75436861727450726F62730101000000340000
      00070043617074696F6E000C006D6E7543686172744D65647301010000003500
      0000070043617074696F6E000E006D6E7543686172744F726465727301010000
      0036000000070043617074696F6E000D006D6E7543686172744E6F7465730101
      00000037000000070043617074696F6E000D006D6E75436861727443736C7473
      010100000038000000070043617074696F6E000F006D6E754368617274537572
      67657279010100000039000000070043617074696F6E000E006D6E7543686172
      74444353756D6D01010000003A000000070043617074696F6E000C006D6E7543
      686172744C61627301010000003B000000070043617074696F6E000F006D6E75
      43686172745265706F72747301010000003C000000070043617074696F6E0012
      006D6E7556696577496E666F726D6174696F6E01010000003D00000007004361
      7074696F6E000B006D6E755669657744656D6F01010000003E00000007004361
      7074696F6E000D006D6E755669657756697369747301010000003F0000000700
      43617074696F6E0012006D6E75566965775072696D6172794361726501010000
      0040000000070043617074696F6E0013006D6E75566965774D794865616C7468
      65566574010100000041000000070043617074696F6E000C006D6E75496E7375
      72616E6365010100000042000000070043617074696F6E000C006D6E75566965
      77466C616773010100000043000000070043617074696F6E0011006D6E755669
      657752656D6F746544617461010100000044000000070043617074696F6E0010
      006D6E755669657752656D696E64657273010100000045000000070043617074
      696F6E000F006D6E7556696577506F7374696E67730101000000460000000700
      43617074696F6E0008006D6E75546F6F6C730101000000470000000700436170
      74696F6E0002005A38000010006D6E75546F6F6C734772617068696E67010100
      000048000000070043617074696F6E0008004C6162496E666F31010100000049
      000000070043617074696F6E000F006D6E75546F6F6C734F7074696F6E730101
      0000004A000000070043617074696F6E0007006D6E7548656C7001010000004B
      000000070043617074696F6E000F006D6E7548656C70436F6E74656E74730102
      0000004C000000070043617074696F6E4D000000040048696E74000C006D6E75
      48656C705475746F7201010000004E000000070043617074696F6E0002005A35
      00000D006D6E7548656C7042726F6B657201010000004F000000070043617074
      696F6E000C006D6E7548656C704C697374730101000000500000000700436170
      74696F6E000E006D6E7548656C7053796D626F6C730101000000510000000700
      43617074696F6E0002005A3600000C006D6E7548656C7041626F757401010000
      0052000000070043617074696F6E000700706F704349524E00001000706F7043
      49524E53656C656374416C6C010100000053000000070043617074696F6E0011
      00706F704349524E53656C6563744E6F6E650101000000540000000700436170
      74696F6E000C00706F704349524E436C6F736501010000005500000007004361
      7074696F6E0009004F524F70656E446C67010100000056000000060046696C74
      6572000900706F70416C65727473000010006D6E75416C657274436F6E74696E
      7565010100000057000000070043617074696F6E000F006D6E75416C65727446
      6F7277617264010100000058000000070043617074696F6E000D006D6E75416C
      65727452656E6577010100000059000000070043617074696F6E000900417070
      4576656E7473000010004564697444656D6F677261706869637301010000005A
      000000070043617074696F6E00}
  end
end
