source: cprs/branches/foia-cprs/CPRS-Chart/fPtSel.dfm@ 1381

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

Uploading from OR_30_258
File size: 6.2 KB
Line 
1object frmPtSel: TfrmPtSel
2 Left = 81
3 Top = 89
4 Width = 793
5 Height = 589
6 BorderIcons = []
7 Caption = 'Patient Selection'
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clWindowText
11 Font.Height = -11
12 Font.Name = 'MS Sans Serif'
13 Font.Style = []
14 KeyPreview = True
15 OldCreateOrder = True
16 OnClose = FormClose
17 OnDestroy = FormDestroy
18 OnKeyDown = FormKeyDown
19 OnShow = FormShow
20 PixelsPerInch = 96
21 TextHeight = 13
22 object sptVert: TSplitter
23 Left = 0
24 Top = 290
25 Width = 785
26 Height = 4
27 Cursor = crVSplit
28 Align = alTop
29 end
30 object pnlDivide: TORAutoPanel
31 Left = 0
32 Top = 294
33 Width = 785
34 Height = 17
35 Align = alTop
36 BevelOuter = bvNone
37 BevelWidth = 2
38 TabOrder = 0
39 Visible = False
40 object lblNotifications: TLabel
41 Left = 4
42 Top = 4
43 Width = 58
44 Height = 13
45 Caption = 'Notifications'
46 end
47 object ggeInfo: TGauge
48 Left = 212
49 Top = 1
50 Width = 100
51 Height = 15
52 Color = clBtnFace
53 ForeColor = clActiveCaption
54 Font.Charset = DEFAULT_CHARSET
55 Font.Color = clCaptionText
56 Font.Height = -11
57 Font.Name = 'MS Sans Serif'
58 Font.Style = []
59 ParentColor = False
60 ParentFont = False
61 Progress = 0
62 Visible = False
63 end
64 end
65 object pnlPtSel: TORAutoPanel
66 Left = 0
67 Top = 0
68 Width = 785
69 Height = 290
70 Align = alTop
71 BevelWidth = 2
72 TabOrder = 3
73 OnResize = pnlPtSelResize
74 object lblPatient: TLabel
75 Left = 185
76 Top = 8
77 Width = 33
78 Height = 13
79 Caption = 'Patient'
80 ShowAccelChar = False
81 end
82 object cboPatient: TORComboBox
83 Left = 185
84 Top = 22
85 Width = 272
86 Height = 262
87 Hint = 'Enter name or use "Last 4" (x1234) format'
88 Style = orcsSimple
89 AutoSelect = True
90 Caption = 'Patient'
91 Color = clWindow
92 DropDownCount = 8
93 ItemHeight = 13
94 ItemTipColor = clWindow
95 ItemTipEnable = True
96 ListItemsOnly = False
97 LongList = True
98 LookupPiece = 2
99 MaxLength = 0
100 ParentShowHint = False
101 Pieces = '2,3'
102 ShowHint = True
103 Sorted = False
104 SynonymChars = '<>'
105 TabPositions = '20,25,30'
106 TabOrder = 1
107 OnChange = cboPatientChange
108 OnDblClick = cboPatientDblClick
109 OnEnter = cboPatientEnter
110 OnExit = cboPatientExit
111 OnKeyDown = cboPatientKeyDown
112 OnKeyPause = cboPatientKeyPause
113 OnMouseClick = cboPatientMouseClick
114 OnNeedData = cboPatientNeedData
115 CharsNeedMatch = 1
116 end
117 object cmdOK: TButton
118 Left = 642
119 Top = 22
120 Width = 78
121 Height = 19
122 Caption = 'OK'
123 TabOrder = 2
124 OnClick = cmdOKClick
125 end
126 object cmdCancel: TButton
127 Left = 642
128 Top = 43
129 Width = 78
130 Height = 19
131 Cancel = True
132 Caption = 'Cancel'
133 TabOrder = 3
134 OnClick = cmdCancelClick
135 end
136 object cmdSaveList: TButton
137 Left = 499
138 Top = 217
139 Width = 175
140 Height = 18
141 Caption = 'Save Patient List Settings'
142 TabOrder = 0
143 OnClick = cmdSaveListClick
144 end
145 end
146 object pnlNotifications: TORAutoPanel
147 Left = 0
148 Top = 527
149 Width = 785
150 Height = 35
151 Align = alBottom
152 BevelOuter = bvNone
153 TabOrder = 2
154 Visible = False
155 object cmdProcessInfo: TButton
156 Left = 11
157 Top = 10
158 Width = 95
159 Height = 21
160 Caption = 'Process Info'
161 TabOrder = 0
162 OnClick = cmdProcessInfoClick
163 end
164 object cmdProcessAll: TButton
165 Left = 120
166 Top = 10
167 Width = 95
168 Height = 21
169 Caption = 'Process All'
170 TabOrder = 1
171 OnClick = cmdProcessAllClick
172 end
173 object cmdProcess: TButton
174 Left = 229
175 Top = 10
176 Width = 95
177 Height = 21
178 Caption = 'Process'
179 Enabled = False
180 TabOrder = 2
181 OnClick = cmdProcessClick
182 end
183 object cmdForward: TButton
184 Left = 335
185 Top = 10
186 Width = 95
187 Height = 21
188 Caption = 'Forward'
189 Enabled = False
190 TabOrder = 4
191 OnClick = cmdForwardClick
192 end
193 object cmdRemove: TButton
194 Left = 490
195 Top = 10
196 Width = 95
197 Height = 21
198 Caption = 'Remove'
199 Enabled = False
200 TabOrder = 3
201 OnClick = cmdRemoveClick
202 end
203 end
204 object lstvAlerts: TCaptionListView
205 Left = 0
206 Top = 311
207 Width = 785
208 Height = 216
209 Align = alClient
210 Columns = <
211 item
212 Caption = 'Info'
213 Width = 30
214 end
215 item
216 Caption = 'Patient'
217 Tag = 1
218 Width = 120
219 end
220 item
221 Caption = 'Location'
222 Tag = 2
223 Width = 60
224 end
225 item
226 Caption = 'Urgency'
227 Tag = 3
228 Width = 67
229 end
230 item
231 Caption = 'Alert Date/Time'
232 Tag = 4
233 Width = 110
234 end
235 item
236 Caption = 'Message'
237 Tag = 5
238 Width = 280
239 end
240 item
241 Caption = 'Forwarded By/When'
242 Tag = 6
243 Width = 180
244 end>
245 HoverTime = 0
246 IconOptions.WrapText = False
247 MultiSelect = True
248 ReadOnly = True
249 RowSelect = True
250 ParentShowHint = False
251 PopupMenu = popNotifications
252 ShowWorkAreas = True
253 ShowHint = True
254 TabOrder = 1
255 ViewStyle = vsReport
256 OnColumnClick = lstvAlertsColumnClick
257 OnCompare = lstvAlertsCompare
258 OnDblClick = lstvAlertsDblClick
259 OnInfoTip = lstvAlertsInfoTip
260 OnKeyDown = lstvAlertsKeyDown
261 OnSelectItem = lstvAlertsSelectItem
262 Caption = 'Notifications'
263 end
264 object popNotifications: TPopupMenu
265 Left = 508
266 Top = 323
267 object mnuProcess: TMenuItem
268 Caption = 'Process'
269 OnClick = cmdProcessClick
270 end
271 object mnuForward: TMenuItem
272 Caption = 'Forward'
273 OnClick = cmdForwardClick
274 end
275 object N1: TMenuItem
276 Caption = '-'
277 end
278 object mnuRemove: TMenuItem
279 Caption = 'Remove'
280 OnClick = cmdRemoveClick
281 end
282 end
283end
Note: See TracBrowser for help on using the repository browser.