source: cprs/trunk/CPRS-Chart/fPtSens.dfm@ 872

Last change on this file since 872 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 2.5 KB
Line 
1inherited frmPtSens: TfrmPtSens
2 Left = 216
3 Top = 373
4 BorderIcons = []
5 BorderStyle = bsDialog
6 Caption = 'Restricted Patient Record'
7 ClientHeight = 181
8 ClientWidth = 596
9 OldCreateOrder = True
10 Position = poScreenCenter
11 OnCreate = FormCreate
12 PixelsPerInch = 96
13 TextHeight = 13
14 object imgWarning: TImage [0]
15 Left = 16
16 Top = 16
17 Width = 32
18 Height = 32
19 end
20 object lblContinue: TStaticText [1]
21 Left = 64
22 Top = 150
23 Width = 267
24 Height = 17
25 Caption = 'Do you want to continue processing this patient record?'
26 TabOrder = 3
27 end
28 object memWarning: TMemo [2]
29 Left = 64
30 Top = 16
31 Width = 517
32 Height = 113
33 BorderStyle = bsNone
34 Color = clBtnFace
35 Font.Charset = DEFAULT_CHARSET
36 Font.Color = clWindowText
37 Font.Height = -11
38 Font.Name = 'Courier New'
39 Font.Style = []
40 Lines.Strings = (
41 ' *** WARNING ***'
42 ' *** RESTRICTED RECORD ***'
43
44 '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' +
45 '* * * * * '
46
47 '* This record is protected by the Privacy Act of 1974. If you el' +
48 'ect *'
49
50 '* to proceed, you will be required to prove you have a need to k' +
51 'now. *'
52
53 '* Accessing this patient is tracked, and your station Security O' +
54 'fficer *'
55
56 '* will contact you for your justification. ' +
57 ' *'
58
59 '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' +
60 '* * * * * '
61 '')
62 ParentFont = False
63 ReadOnly = True
64 TabOrder = 0
65 end
66 object cmdYes: TButton [3]
67 Left = 408
68 Top = 144
69 Width = 75
70 Height = 25
71 Caption = 'Yes'
72 TabOrder = 1
73 OnClick = cmdYesClick
74 end
75 object cmdNo: TButton [4]
76 Left = 500
77 Top = 144
78 Width = 75
79 Height = 25
80 Caption = 'No'
81 Default = True
82 TabOrder = 2
83 OnClick = cmdNoClick
84 end
85 inherited amgrMain: TVA508AccessibilityManager
86 Data = (
87 (
88 'Component = lblContinue'
89 'Status = stsDefault')
90 (
91 'Component = memWarning'
92 'Status = stsDefault')
93 (
94 'Component = cmdYes'
95 'Status = stsDefault')
96 (
97 'Component = cmdNo'
98 'Status = stsDefault')
99 (
100 'Component = frmPtSens'
101 'Status = stsDefault'))
102 end
103end
Note: See TracBrowser for help on using the repository browser.