VistA-cprs/CPRS-Chart/fMedCopy.dfm

object frmMedCopy: TfrmMedCopy
  Left = 157
  Top = 62
  Width = 493
  Height = 428
  Caption = 'Copy Medication Orders'
  Color = clBtnFace
  Constraints.MinHeight = 150
  Constraints.MinWidth = 240
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 485
    Height = 75
    Align = alTop
    AutoSize = True
    TabOrder = 1
    object lblPtInfo: TLabel
      Left = 1
      Top = 1
      Width = 483
      Height = 40
      Align = alTop
      Constraints.MinHeight = 40
      Layout = tlCenter
    end
    object Panel2: TPanel
      Left = 1
      Top = 41
      Width = 483
      Height = 33
      Align = alTop
      AutoSize = True
      TabOrder = 0
      object Image1: TImage
        Left = 1
        Top = 1
        Width = 24
        Height = 31
        Align = alLeft
        AutoSize = True
        Enabled = False
        Picture.Data = {
          07544269746D61707E010000424D7E0100000000000076000000280000001800
          000016000000010004000000000008010000C40E0000C40E0000100000000000
          0000000000000000800000800000008080008000000080008000808000008080
          8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF008000000000000000000000080777777777777777777777700F7777777777
          7777777777700F88888888888888888887700F88888888888888888887700F88
          888808888888888887700F88888800888888888887700F8888880B0888888888
          87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
          CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
          0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
          87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
          8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
          00000000000000000008}
        Transparent = True
      end
      object lblInstruction: TStaticText
        Left = 30
        Top = 1
        Width = 441
        Height = 17
        Caption = 
          '  Use Admit: if patient is newly admitted to the hospital or nur' +
          'sing home.'
        TabOrder = 0
      end
      object Label1: TStaticText
        Left = 30
        Top = 15
        Width = 455
        Height = 17
        Caption = 
          '  Use Transfer: if inpatient will move from one ward or treating' +
          ' team to another.'
        TabOrder = 1
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 75
    Width = 485
    Height = 65
    Align = alTop
    TabOrder = 0
    object GroupBox2: TGroupBox
      Left = 1
      Top = 1
      Width = 483
      Height = 63
      Align = alClient
      TabOrder = 0
      DesignSize = (
        483
        63)
      object radDelayed: TRadioButton
        Left = 20
        Top = 37
        Width = 321
        Height = 17
        Caption = '&Delay release of copied orders until'
        TabOrder = 1
        OnClick = radDelayedClick
      end
      object radRelease: TRadioButton
        Left = 20
        Top = 16
        Width = 319
        Height = 17
        Caption = '&Release copied orders immediately'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = radReleaseClick
      end
      object cmdOK: TButton
        Left = 365
        Top = 15
        Width = 72
        Height = 19
        Anchors = [akTop, akRight]
        Caption = 'OK'
        Constraints.MaxWidth = 73
        Default = True
        TabOrder = 2
        OnClick = cmdOKClick
      end
      object cmdCancel: TButton
        Left = 365
        Top = 37
        Width = 72
        Height = 19
        Anchors = [akTop, akRight]
        Cancel = True
        Caption = 'Cancel'
        Constraints.MaxWidth = 73
        TabOrder = 3
        OnClick = cmdCancelClick
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 140
    Width = 485
    Height = 261
    Align = alClient
    TabOrder = 2
    inline fraEvntDelayList: TfraEvntDelayList
      Left = 1
      Top = 1
      Width = 483
      Height = 259
      Align = alClient
      TabOrder = 0
      Visible = False
      inherited pnlDate: TPanel
        Left = 378
        Height = 259
        inherited lblEffective: TLabel
          Left = 446
        end
        inherited orDateBox: TORDateBox
          Left = 446
        end
      end
      inherited pnlList: TPanel
        Width = 378
        Height = 259
        inherited mlstEvents: TORListBox
          Width = 376
          Height = 236
          OnDblClick = cmdOKClick
        end
        inherited edtSearch: TCaptionEdit
          Width = 376
        end
      end
    end
  end
end