Last change
on this file since 776 was 456, checked in by Kevin Toppenberg, 16 years ago |
Initial Upload of Official WV CPRS 1.0.26.76
|
File size:
2.2 KB
|
Line | |
---|
1 | object 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
|
---|
91 | end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.