VistA-cprs/CPRS-Chart/Orders/fOrdersSign.dfm

object frmSignOrders: TfrmSignOrders
  Left = 400
  Top = 159
  Width = 585
  Height = 511
  Caption = 'Sign Orders'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnMouseDown = clstOrdersMouseDown
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  DesignSize = (
    577
    484)
  PixelsPerInch = 96
  TextHeight = 13
  object lblESCode: TLabel
    Left = 8
    Top = 441
    Width = 123
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Electronic Signature Code'
  end
  object laDiagnosis: TLabel
    Left = 184
    Top = 185
    Width = 46
    Height = 13
    Caption = 'Diagnosis'
    Visible = False
  end
  object Label2: TStaticText
    Left = 8
    Top = 147
    Width = 171
    Height = 17
    Caption = 'The following orders will be signed -'
    TabOrder = 3
    TabStop = True
  end
  object cmdOK: TButton
    Left = 417
    Top = 455
    Width = 72
    Height = 21
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    TabOrder = 1
    OnClick = cmdOKClick
  end
  object cmdCancel: TButton
    Left = 497
    Top = 455
    Width = 72
    Height = 21
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = cmdCancelClick
  end
  object txtESCode: TCaptionEdit
    Left = 8
    Top = 455
    Width = 137
    Height = 21
    Anchors = [akLeft, akBottom]
    PasswordChar = '*'
    TabOrder = 0
    Caption = 'Electronic Signature Code'
  end
  inline fraCoPay: TfraCoPayDesc
    Left = 0
    Top = 0
    Width = 577
    Height = 132
    Align = alTop
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    Visible = False
    inherited pnlRight: TPanel
      Left = 328
      inherited lblCaption: TStaticText
        Caption = 'Patient Orders Related To:'
      end
      inherited pnlMain: TPanel
        inherited Panel7: TPanel
          inherited lblHNC2: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
          inherited lblHNC: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
        end
        inherited Panel8: TPanel
          inherited Label12: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
          inherited Label11: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
        end
        inherited Panel9: TPanel
          inherited Label14: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
          inherited Label13: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
        end
        inherited Panel10: TPanel
          inherited Label16: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
          inherited Label15: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
        end
        inherited Panel11: TPanel
          inherited Label18: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
          inherited Label17: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
        end
        inherited Panel12: TPanel
          inherited Label24: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
          inherited Label23: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
        end
        inherited Panel1: TPanel
          inherited StaticText4: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
          inherited StaticText1: TORStaticText
            OnEnter = fraCoPayLabel23Enter
            OnExit = fraCoPayLabel23Exit
          end
        end
      end
    end
    inherited pnlSC: TPanel
      Width = 328
      inherited lblSCDisplay: TLabel
        Width = 328
      end
      inherited memSCDisplay: TCaptionMemo
        Width = 328
      end
    end
  end
  object clstOrders: TCaptionCheckListBox
    Left = 8
    Top = 162
    Width = 564
    Height = 277
    OnClickCheck = clstOrdersClickCheck
    Anchors = [akLeft, akTop, akRight, akBottom]
    ItemHeight = 16
    ParentShowHint = False
    PopupMenu = poBACopyPaste
    ShowHint = True
    Style = lbOwnerDrawVariable
    TabOrder = 4
    OnClick = clstOrdersClick
    OnDrawItem = clstOrdersDrawItem
    OnKeyUp = clstOrdersKeyUp
    OnMeasureItem = clstOrdersMeasureItem
    OnMouseDown = clstOrdersMouseDown
    OnMouseMove = clstOrdersMouseMove
    Caption = 'The following orders will be signed -'
  end
  object gbdxLookup: TGroupBox
    Left = 7
    Top = 139
    Width = 99
    Height = 43
    Caption = 'Lookup Diagnosis'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    TabStop = True
    Visible = False
    object buOrdersDiagnosis: TButton
      Left = 7
      Top = 16
      Width = 86
      Height = 21
      Caption = '&Diagnosis'
      Enabled = False
      TabOrder = 0
      OnClick = buOrdersDiagnosisClick
    end
  end
  object poBACopyPaste: TPopupMenu
    Left = 344
    Top = 296
    object Copy1: TMenuItem
      Caption = '&Copy'
      ShortCut = 16451
      OnClick = Copy1Click
    end
    object Paste1: TMenuItem
      Caption = '&Paste'
      Enabled = False
      ShortCut = 16470
      OnClick = Paste1Click
    end
    object Diagnosis1: TMenuItem
      Caption = '&Diagnosis...'
      ShortCut = 32836
      OnClick = buOrdersDiagnosisClick
    end
    object Exit1: TMenuItem
      Caption = '&Exit'
      ShortCut = 16453
      OnClick = Exit1Click
    end
  end
end