source: cprs/branches/tmg-cprs/CPRS-Chart/fPtSel.dfm@ 1365

Last change on this file since 1365 was 819, checked in by Kevin Toppenberg, 15 years ago

Fixed crash on non-login
File size: 11.2 KB
RevLine 
[453]1object frmPtSel: TfrmPtSel
[819]2 Left = 183
3 Top = 97
[793]4 Width = 797
5 Height = 622
[453]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 OnCreate = FormCreate
18 OnDestroy = FormDestroy
19 OnKeyDown = FormKeyDown
20 OnShow = FormShow
21 PixelsPerInch = 96
22 TextHeight = 13
23 object sptVert: TSplitter
24 Left = 0
25 Top = 290
[793]26 Width = 789
[453]27 Height = 4
28 Cursor = crVSplit
29 Align = alTop
30 end
31 object pnlDivide: TORAutoPanel
32 Left = 0
33 Top = 294
[793]34 Width = 789
[453]35 Height = 17
36 Align = alTop
37 BevelOuter = bvNone
38 BevelWidth = 2
39 TabOrder = 0
40 Visible = False
41 object lblNotifications: TLabel
42 Left = 4
43 Top = 4
44 Width = 58
45 Height = 13
46 Caption = 'Notifications'
47 end
48 object ggeInfo: TGauge
49 Left = 212
50 Top = 1
51 Width = 100
52 Height = 15
53 Color = clBtnFace
54 ForeColor = clActiveCaption
55 Font.Charset = DEFAULT_CHARSET
56 Font.Color = clCaptionText
57 Font.Height = -11
58 Font.Name = 'MS Sans Serif'
59 Font.Style = []
60 ParentColor = False
61 ParentFont = False
62 Progress = 0
63 Visible = False
64 end
65 end
66 object pnlPtSel: TORAutoPanel
67 Left = 0
68 Top = 0
[793]69 Width = 789
[453]70 Height = 290
71 Align = alTop
72 BevelWidth = 2
73 TabOrder = 3
74 OnResize = pnlPtSelResize
[793]75 DesignSize = (
76 789
77 290)
[453]78 object lblPatient: TLabel
79 Left = 185
80 Top = 8
81 Width = 33
82 Height = 13
83 Caption = 'Patient'
84 ShowAccelChar = False
85 end
86 object cboPatient: TORComboBox
87 Left = 185
88 Top = 22
89 Width = 272
90 Height = 262
91 Hint = 'Enter name,Full SSN ,Last 4 (x1234),'#39'HRN'#39',DOB, or Phone#'
92 Style = orcsSimple
93 AutoSelect = True
94 Caption = 'Patient'
95 Color = clWindow
96 DropDownCount = 8
97 ItemHeight = 13
98 ItemTipColor = clWindow
99 ItemTipEnable = True
100 ListItemsOnly = False
101 LongList = True
102 LookupPiece = 2
103 MaxLength = 0
104 ParentShowHint = False
105 Pieces = '2,3'
106 ShowHint = True
107 Sorted = False
108 SynonymChars = '<>'
109 TabPositions = '20,25,30,60'
110 TabOrder = 1
111 OnChange = cboPatientChange
112 OnDblClick = cboPatientDblClick
113 OnEnter = cboPatientEnter
114 OnExit = cboPatientExit
115 OnKeyDown = cboPatientKeyDown
116 OnKeyPause = cboPatientKeyPause
117 OnMouseClick = cboPatientMouseClick
118 OnNeedData = cboPatientNeedData
119 CharsNeedMatch = 1
120 end
121 object cmdOK: TButton
[793]122 Left = 702
[453]123 Top = 22
124 Width = 78
125 Height = 19
[793]126 Anchors = [akTop, akRight]
[453]127 Caption = 'OK'
128 TabOrder = 2
129 OnClick = cmdOKClick
130 end
131 object cmdCancel: TButton
[793]132 Left = 702
[453]133 Top = 43
134 Width = 78
135 Height = 19
[793]136 Anchors = [akTop, akRight]
[453]137 Cancel = True
138 Caption = 'Cancel'
139 TabOrder = 3
140 OnClick = cmdCancelClick
141 end
142 object cmdSaveList: TButton
[793]143 Left = 502
[453]144 Top = 265
145 Width = 175
146 Height = 18
[793]147 Anchors = [akBottom]
[453]148 Caption = 'Save Patient List Settings'
149 TabOrder = 0
150 OnClick = cmdSaveListClick
151 end
152 object RadioGroup1: TRadioGroup
[793]153 Left = 468
[453]154 Top = 192
155 Width = 313
156 Height = 65
[793]157 Anchors = [akRight, akBottom]
[453]158 Caption = 'Specific "In-Depth" Lookup by '
159 ItemIndex = 0
160 Items.Strings = (
161 '&None of the below'
162 '&PHONE NUMBER [RESIDENCE]'
163 '&DATE OF BIRTH')
164 TabOrder = 4
165 end
166 object TMGcmdAdd: TButton
[793]167 Left = 588
[541]168 Top = 22
169 Width = 75
170 Height = 20
[793]171 Anchors = [akTop, akRight]
[453]172 Caption = 'Add Patient'
173 TabOrder = 5
174 OnClick = TMGcmdAddClick
175 end
[793]176 object btnSearchPt: TBitBtn
177 Left = 468
178 Top = 22
179 Width = 25
180 Height = 20
181 Hint = 'Advanced Search'
182 Anchors = [akTop, akRight]
183 ParentShowHint = False
184 ShowHint = False
185 TabOrder = 6
186 OnClick = btnSearchPtClick
187 Glyph.Data = {
188 36030000424D3603000000000000360000002800000010000000100000000100
189 1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
190 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBF
191 BF7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
192 FFFFFFFFFFFFFFFFFFFFFFBFBFBF6060607070707F7F7FFFFFFFFFFFFFFFFFFF
193 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF606060A0A0
194 A0606060BFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
195 FFFFFFFFFFBFBFBF606060A0A0A0606060BFBFBFFFFFFFFFFFFFFFFFFFFFFFFF
196 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBF606060A0A0A0606060BFBF
197 BFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFFF7F7FFF7F7FFFBFBFBF
198 BFBF606060A0A0A0606060BF7FBFFFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
199 FF3F3FFF0000FF7F7FFF7F7FFF0000DF2020A0A0A0606060BFBFBFFFBFFFFFBF
200 FFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFFF3F3FFFFFFFFFFFFFFFFFFFFFFFFFFF
201 3F3F7F4040BFBFBFFFFFFFFF7FFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFF3F3F
202 FFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFBFBFFF3F3FFFFFFFFFFFFFFF7FFFFF7F
203 FFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFF7F7F7FBFBFBFFFFFFFFFFFFFFF
204 FFFFFF0000FFFFFFFFFFFFFF7FFFFF3FFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
205 BFBFBFBFBFBFBFBFBFBFBFBFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF3F
206 FFFF3FFFFFFFFFFFFFFFFFFFFFFF7F7FFF7F7FBFBFBFBFBFBF7F7F7FFFFFFFFF
207 7F7FFF7F7FFFFFFFFFFFFFFFFFFFFFFFFFFF3FFFFF7FFFFFFFFFFFFFFFFFFFFF
208 FF0000FF7F7FBFBFBFFFFFFFFF7F7FFF0000FFFFFFFFBFFFFFBFFFFFFFFFFFFF
209 FFFF3FFFFF7FFFFFFFFFFFFFFFFFFFFFFFBFBFFF3F3FFF0000FF0000FF3F3FFF
210 BFBFFFFFFFFFBFFFFF00FFFF7FFFFF3FFFFF3FFFFFFFFFFFFFFFFFFFFFFFFFFF
211 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFFF7FFFFF7F
212 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
213 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
214 end
[453]215 end
216 object pnlNotifications: TORAutoPanel
217 Left = 0
[793]218 Top = 553
219 Width = 789
[453]220 Height = 35
221 Align = alBottom
222 BevelOuter = bvNone
223 TabOrder = 2
224 Visible = False
225 object cmdProcessInfo: TButton
226 Left = 11
227 Top = 10
228 Width = 95
229 Height = 21
230 Caption = 'Process Info'
231 TabOrder = 0
232 OnClick = cmdProcessInfoClick
233 end
234 object cmdProcessAll: TButton
235 Left = 120
236 Top = 10
237 Width = 95
238 Height = 21
239 Caption = 'Process All'
240 TabOrder = 1
241 OnClick = cmdProcessAllClick
242 end
243 object cmdProcess: TButton
244 Left = 229
245 Top = 10
246 Width = 95
247 Height = 21
248 Caption = 'Process'
249 Enabled = False
250 TabOrder = 2
251 OnClick = cmdProcessClick
252 end
253 object cmdForward: TButton
254 Left = 335
255 Top = 10
256 Width = 95
257 Height = 21
258 Caption = 'Forward'
259 Enabled = False
260 TabOrder = 4
261 OnClick = cmdForwardClick
262 end
263 object cmdRemove: TButton
264 Left = 490
265 Top = 10
266 Width = 95
267 Height = 21
268 Caption = 'Remove'
269 Enabled = False
270 TabOrder = 3
271 OnClick = cmdRemoveClick
272 end
273 end
274 object lstvAlerts: TCaptionListView
275 Left = 0
276 Top = 311
[793]277 Width = 789
278 Height = 242
[453]279 Align = alClient
280 Columns = <
281 item
282 Caption = 'Info'
283 Width = 30
284 end
285 item
286 Caption = 'Patient'
287 Tag = 1
288 Width = 120
289 end
290 item
291 Caption = 'Location'
292 Tag = 2
293 Width = 60
294 end
295 item
296 Caption = 'Urgency'
297 Tag = 3
298 Width = 67
299 end
300 item
301 Caption = 'Alert Date/Time'
302 Tag = 4
303 Width = 110
304 end
305 item
306 Caption = 'Message'
307 Tag = 5
308 Width = 280
309 end
310 item
311 Caption = 'Forwarded By/When'
312 Tag = 6
313 Width = 180
314 end>
315 HoverTime = 0
316 IconOptions.WrapText = False
317 MultiSelect = True
318 ReadOnly = True
319 RowSelect = True
320 ParentShowHint = False
321 PopupMenu = popNotifications
322 ShowWorkAreas = True
323 ShowHint = True
324 TabOrder = 1
325 ViewStyle = vsReport
326 OnColumnClick = lstvAlertsColumnClick
327 OnCompare = lstvAlertsCompare
328 OnDblClick = lstvAlertsDblClick
329 OnInfoTip = lstvAlertsInfoTip
330 OnKeyDown = lstvAlertsKeyDown
331 OnSelectItem = lstvAlertsSelectItem
332 Caption = 'Notifications'
333 end
334 object popNotifications: TPopupMenu
335 Left = 508
336 Top = 323
337 object mnuProcess: TMenuItem
338 Caption = 'Process'
339 OnClick = cmdProcessClick
340 end
341 object mnuForward: TMenuItem
342 Caption = 'Forward'
343 OnClick = cmdForwardClick
344 end
345 object N1: TMenuItem
346 Caption = '-'
347 end
348 object mnuRemove: TMenuItem
349 Caption = 'Remove'
350 OnClick = cmdRemoveClick
351 end
352 end
353 object DKLanguageController1: TDKLanguageController
354 Left = 544
355 Top = 80
356 LangData = {
[793]357 080066726D507453656C010100000001000000070043617074696F6E01190000
[453]358 0007007370745665727400000900706E6C446976696465000010006C626C4E6F
359 74696669636174696F6E73010100000002000000070043617074696F6E000700
360 676765496E666F00000800706E6C507453656C00000A006C626C50617469656E
361 74010100000003000000070043617074696F6E000A0063626F50617469656E74
362 010200000005000000070043617074696F6E04000000040048696E7400050063
363 6D644F4B010100000006000000070043617074696F6E000900636D6443616E63
364 656C010100000007000000070043617074696F6E000B00636D64536176654C69
365 7374010100000008000000070043617074696F6E001000706E6C4E6F74696669
366 636174696F6E7300000E00636D6450726F63657373496E666F01010000000B00
367 0000070043617074696F6E000D00636D6450726F63657373416C6C0101000000
368 0C000000070043617074696F6E000A00636D6450726F6365737301010000000D
369 000000070043617074696F6E000A00636D64466F727761726401010000000E00
370 0000070043617074696F6E000900636D6452656D6F766501010000000F000000
371 070043617074696F6E000A006C737476416C6572747301080000001700000007
372 0043617074696F6E100000001200436F6C756D6E735B305D2E43617074696F6E
373 110000001200436F6C756D6E735B315D2E43617074696F6E120000001200436F
374 6C756D6E735B325D2E43617074696F6E130000001200436F6C756D6E735B335D
375 2E43617074696F6E140000001200436F6C756D6E735B345D2E43617074696F6E
376 150000001200436F6C756D6E735B355D2E43617074696F6E160000001200436F
377 6C756D6E735B365D2E43617074696F6E001000706F704E6F7469666963617469
378 6F6E7300000A006D6E7550726F63657373010100000018000000070043617074
379 696F6E000A006D6E75466F727761726401010000001900000007004361707469
380 6F6E0002004E31000009006D6E7552656D6F766501010000001A000000070043
381 617074696F6E000B00526164696F47726F75703101020000001B000000070043
382 617074696F6E1C00000005004974656D73000900544D47636D64416464010100
[793]383 00001D000000070043617074696F6E000B0062746E5365617263685074010100
384 00001E000000040048696E7400}
[453]385 end
386end
Note: See TracBrowser for help on using the repository browser.