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

object frmCopyOrders: TfrmCopyOrders
  Left = 319
  Top = 139
  AutoScroll = False
  Caption = 'Copy Orders'
  ClientHeight = 419
  ClientWidth = 441
  Color = clBtnFace
  Constraints.MinHeight = 100
  Constraints.MinWidth = 330
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object pnlInfo: TPanel
    Left = 0
    Top = 41
    Width = 441
    Height = 50
    Align = alTop
    TabOrder = 1
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 24
      Height = 22
      AutoSize = True
      Enabled = False
      Picture.Data = {
        07544269746D61707E010000424D7E0100000000000076000000280000001800
        000016000000010004000000000008010000C40E0000C40E0000100000000000
        0000000000000000800000800000008080008000000080008000808000008080
        8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
        FF008000000000000000000000080777777777777777777777700F7777777777
        7777777777700F88888888888888888887700F88888888888888888887700F88
        888808888888888887700F88888800888888888887700F8888880B0888888888
        87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
        CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
        0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
        87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
        8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
        00000000000000000008}
      Transparent = True
    end
    object Label2: TStaticText
      Left = 31
      Top = 30
      Width = 365
      Height = 17
      Caption = 
        'Use Transfer: if inpatient will move from one ward or treating t' +
        'eam to another.'
      TabOrder = 1
      TabStop = True
    end
    object Label1: TStaticText
      Left = 31
      Top = 4
      Width = 331
      Height = 17
      Caption = 
        'Use Admit: if patient is newly admitted to the hospital or nursi' +
        'ng home.'
      TabOrder = 0
      TabStop = True
    end
  end
  inline fraEvntDelayList: TfraEvntDelayList
    Left = 0
    Top = 154
    Width = 441
    Height = 265
    Align = alClient
    TabOrder = 3
    Visible = False
    inherited pnlDate: TPanel
      Left = 336
      Height = 265
      inherited lblEffective: TLabel
        Left = 451
      end
      inherited orDateBox: TORDateBox
        Left = 451
      end
    end
    inherited pnlList: TPanel
      Width = 336
      Height = 265
      inherited lblEvntDelayList: TLabel
        Width = 334
      end
      inherited mlstEvents: TORListBox
        Width = 334
        Height = 229
        OnDblClick = cmdOKClick
        OnChange = fraEvntDelayListmlstEventsChange
      end
      inherited edtSearch: TCaptionEdit
        Width = 334
      end
    end
  end
  object pnlRadio: TPanel
    Left = 0
    Top = 91
    Width = 441
    Height = 63
    Align = alTop
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 439
      Height = 61
      Align = alClient
      Constraints.MinHeight = 50
      DragMode = dmAutomatic
      TabOrder = 0
      object radRelease: TRadioButton
        Left = 12
        Top = 15
        Width = 318
        Height = 20
        Caption = '&Release copied orders immediately'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = radReleaseClick
      end
      object radEvtDelay: TRadioButton
        Left = 12
        Top = 37
        Width = 320
        Height = 20
        Caption = '&Delay release of copied orders'
        TabOrder = 1
        OnClick = radEvtDelayClick
      end
    end
  end
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 441
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object lblPtInfo: TStaticText
      Left = 0
      Top = 0
      Width = 441
      Height = 41
      Align = alTop
      Anchors = [akLeft, akTop, akRight, akBottom]
      AutoSize = False
      Constraints.MinHeight = 40
      TabOrder = 0
      TabStop = True
    end
  end
  object pnlBtns: TPanel
    Left = 334
    Top = 91
    Width = 107
    Height = 63
    Align = alCustom
    Anchors = [akTop, akRight]
    TabOrder = 4
    object gbBtns: TGroupBox
      Left = 1
      Top = 1
      Width = 105
      Height = 61
      Align = alClient
      TabOrder = 0
      DesignSize = (
        105
        61)
      object cmdOK: TButton
        Left = 17
        Top = 13
        Width = 72
        Height = 19
        Anchors = [akTop, akRight]
        Caption = 'OK'
        Constraints.MaxWidth = 73
        Default = True
        TabOrder = 0
        OnClick = cmdOKClick
      end
      object cmdCancel: TButton
        Left = 17
        Top = 34
        Width = 72
        Height = 18
        Anchors = [akRight, akBottom]
        Cancel = True
        Caption = 'Cancel'
        Constraints.MaxWidth = 73
        TabOrder = 1
        OnClick = cmdCancelClick
      end
    end
  end
end