source: cprs/branches/tmg-cprs/CPRS-Chart/fPtSens.dfm@ 1806

object frmPtSens: TfrmPtSens
  Left = 216
  Top = 373
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Restricted Patient Record'
  ClientHeight = 181
  ClientWidth = 596
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object imgWarning: TImage
    Left = 16
    Top = 16
    Width = 32
    Height = 32
  end
  object lblContinue: TStaticText
    Left = 64
    Top = 150
    Width = 267
    Height = 17
    Caption = 'Do you want to continue processing this patient record?'
    TabOrder = 3
  end
  object memWarning: TMemo
    Left = 64
    Top = 16
    Width = 517
    Height = 113
    BorderStyle = bsNone
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      '                           *** WARNING ***'
      '                       *** RESTRICTED RECORD ***'
      
        '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' +
        '* * * * * '
      
        '* This record is protected by the Privacy Act of 1974. If you el' +
        'ect     *'
      
        '* to proceed, you will be required to prove you have a need to k' +
        'now.    *'
      
        '* Accessing this patient is tracked, and your station Security O' +
        'fficer  *'
      
        '* will contact you for your justification.                      ' +
        '        *'
      
        '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' +
        '* * * * * '
      '')
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
  end
  object cmdYes: TButton
    Left = 408
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Yes'
    TabOrder = 1
    OnClick = cmdYesClick
  end
  object cmdNo: TButton
    Left = 500
    Top = 144
    Width = 75
    Height = 25
    Caption = 'No'
    Default = True
    TabOrder = 2
    OnClick = cmdNoClick
  end
  object DKLanguageController1: TDKLanguageController
    Left = 24
    Top = 120
    LangData = {
      090066726D507453656E73010100000001000000070043617074696F6E010500
      00000A00696D675761726E696E6700000B006C626C436F6E74696E7565010100
      000002000000070043617074696F6E000A006D656D5761726E696E6701010000
      000300000005004C696E6573000600636D645965730101000000040000000700
      43617074696F6E000500636D644E6F010100000005000000070043617074696F
      6E00}
  end
end