source: cprs/branches/foia-cprs/CPRS-Chart/fPtSens.dfm@ 755

Last change on this file since 755 was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch

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