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

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

TMG Ver 1.1 Added HTML Support, better demographics editing

File size: 8.7 KB
Line 
1object frmPtSel: TfrmPtSel
2 Left = 199
3 Top = 128
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 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
26 Width = 785
27 Height = 4
28 Cursor = crVSplit
29 Align = alTop
30 end
31 object pnlDivide: TORAutoPanel
32 Left = 0
33 Top = 294
34 Width = 785
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
69 Width = 785
70 Height = 290
71 Align = alTop
72 BevelWidth = 2
73 TabOrder = 3
74 OnResize = pnlPtSelResize
75 object lblPatient: TLabel
76 Left = 185
77 Top = 8
78 Width = 33
79 Height = 13
80 Caption = 'Patient'
81 ShowAccelChar = False
82 end
83 object cboPatient: TORComboBox
84 Left = 185
85 Top = 22
86 Width = 272
87 Height = 262
88 Hint = 'Enter name,Full SSN ,Last 4 (x1234),'#39'HRN'#39',DOB, or Phone#'
89 Style = orcsSimple
90 AutoSelect = True
91 Caption = 'Patient'
92 Color = clWindow
93 DropDownCount = 8
94 ItemHeight = 13
95 ItemTipColor = clWindow
96 ItemTipEnable = True
97 ListItemsOnly = False
98 LongList = True
99 LookupPiece = 2
100 MaxLength = 0
101 ParentShowHint = False
102 Pieces = '2,3'
103 ShowHint = True
104 Sorted = False
105 SynonymChars = '<>'
106 TabPositions = '20,25,30,60'
107 TabOrder = 1
108 OnChange = cboPatientChange
109 OnDblClick = cboPatientDblClick
110 OnEnter = cboPatientEnter
111 OnExit = cboPatientExit
112 OnKeyDown = cboPatientKeyDown
113 OnKeyPause = cboPatientKeyPause
114 OnMouseClick = cboPatientMouseClick
115 OnNeedData = cboPatientNeedData
116 CharsNeedMatch = 1
117 end
118 object cmdOK: TButton
119 Left = 698
120 Top = 22
121 Width = 78
122 Height = 19
123 Caption = 'OK'
124 TabOrder = 2
125 OnClick = cmdOKClick
126 end
127 object cmdCancel: TButton
128 Left = 698
129 Top = 43
130 Width = 78
131 Height = 19
132 Cancel = True
133 Caption = 'Cancel'
134 TabOrder = 3
135 OnClick = cmdCancelClick
136 end
137 object cmdSaveList: TButton
138 Left = 499
139 Top = 265
140 Width = 175
141 Height = 18
142 Caption = 'Save Patient List Settings'
143 TabOrder = 0
144 OnClick = cmdSaveListClick
145 end
146 object RadioGroup1: TRadioGroup
147 Left = 464
148 Top = 192
149 Width = 313
150 Height = 65
151 Caption = 'Specific "In-Depth" Lookup by '
152 ItemIndex = 0
153 Items.Strings = (
154 '&None of the below'
155 '&PHONE NUMBER [RESIDENCE]'
156 '&DATE OF BIRTH')
157 TabOrder = 4
158 end
159 object TMGcmdAdd: TButton
160 Left = 584
161 Top = 22
162 Width = 75
163 Height = 20
164 Caption = 'Add Patient'
165 TabOrder = 5
166 OnClick = TMGcmdAddClick
167 end
168 end
169 object pnlNotifications: TORAutoPanel
170 Left = 0
171 Top = 520
172 Width = 785
173 Height = 35
174 Align = alBottom
175 BevelOuter = bvNone
176 TabOrder = 2
177 Visible = False
178 object cmdProcessInfo: TButton
179 Left = 11
180 Top = 10
181 Width = 95
182 Height = 21
183 Caption = 'Process Info'
184 TabOrder = 0
185 OnClick = cmdProcessInfoClick
186 end
187 object cmdProcessAll: TButton
188 Left = 120
189 Top = 10
190 Width = 95
191 Height = 21
192 Caption = 'Process All'
193 TabOrder = 1
194 OnClick = cmdProcessAllClick
195 end
196 object cmdProcess: TButton
197 Left = 229
198 Top = 10
199 Width = 95
200 Height = 21
201 Caption = 'Process'
202 Enabled = False
203 TabOrder = 2
204 OnClick = cmdProcessClick
205 end
206 object cmdForward: TButton
207 Left = 335
208 Top = 10
209 Width = 95
210 Height = 21
211 Caption = 'Forward'
212 Enabled = False
213 TabOrder = 4
214 OnClick = cmdForwardClick
215 end
216 object cmdRemove: TButton
217 Left = 490
218 Top = 10
219 Width = 95
220 Height = 21
221 Caption = 'Remove'
222 Enabled = False
223 TabOrder = 3
224 OnClick = cmdRemoveClick
225 end
226 end
227 object lstvAlerts: TCaptionListView
228 Left = 0
229 Top = 311
230 Width = 785
231 Height = 209
232 Align = alClient
233 Columns = <
234 item
235 Caption = 'Info'
236 Width = 30
237 end
238 item
239 Caption = 'Patient'
240 Tag = 1
241 Width = 120
242 end
243 item
244 Caption = 'Location'
245 Tag = 2
246 Width = 60
247 end
248 item
249 Caption = 'Urgency'
250 Tag = 3
251 Width = 67
252 end
253 item
254 Caption = 'Alert Date/Time'
255 Tag = 4
256 Width = 110
257 end
258 item
259 Caption = 'Message'
260 Tag = 5
261 Width = 280
262 end
263 item
264 Caption = 'Forwarded By/When'
265 Tag = 6
266 Width = 180
267 end>
268 HoverTime = 0
269 IconOptions.WrapText = False
270 MultiSelect = True
271 ReadOnly = True
272 RowSelect = True
273 ParentShowHint = False
274 PopupMenu = popNotifications
275 ShowWorkAreas = True
276 ShowHint = True
277 TabOrder = 1
278 ViewStyle = vsReport
279 OnColumnClick = lstvAlertsColumnClick
280 OnCompare = lstvAlertsCompare
281 OnDblClick = lstvAlertsDblClick
282 OnInfoTip = lstvAlertsInfoTip
283 OnKeyDown = lstvAlertsKeyDown
284 OnSelectItem = lstvAlertsSelectItem
285 Caption = 'Notifications'
286 end
287 object popNotifications: TPopupMenu
288 Left = 508
289 Top = 323
290 object mnuProcess: TMenuItem
291 Caption = 'Process'
292 OnClick = cmdProcessClick
293 end
294 object mnuForward: TMenuItem
295 Caption = 'Forward'
296 OnClick = cmdForwardClick
297 end
298 object N1: TMenuItem
299 Caption = '-'
300 end
301 object mnuRemove: TMenuItem
302 Caption = 'Remove'
303 OnClick = cmdRemoveClick
304 end
305 end
306 object DKLanguageController1: TDKLanguageController
307 Left = 544
308 Top = 80
309 LangData = {
310 080066726D507453656C010100000001000000070043617074696F6E01180000
311 0007007370745665727400000900706E6C446976696465000010006C626C4E6F
312 74696669636174696F6E73010100000002000000070043617074696F6E000700
313 676765496E666F00000800706E6C507453656C00000A006C626C50617469656E
314 74010100000003000000070043617074696F6E000A0063626F50617469656E74
315 010200000005000000070043617074696F6E04000000040048696E7400050063
316 6D644F4B010100000006000000070043617074696F6E000900636D6443616E63
317 656C010100000007000000070043617074696F6E000B00636D64536176654C69
318 7374010100000008000000070043617074696F6E001000706E6C4E6F74696669
319 636174696F6E7300000E00636D6450726F63657373496E666F01010000000B00
320 0000070043617074696F6E000D00636D6450726F63657373416C6C0101000000
321 0C000000070043617074696F6E000A00636D6450726F6365737301010000000D
322 000000070043617074696F6E000A00636D64466F727761726401010000000E00
323 0000070043617074696F6E000900636D6452656D6F766501010000000F000000
324 070043617074696F6E000A006C737476416C6572747301080000001700000007
325 0043617074696F6E100000001200436F6C756D6E735B305D2E43617074696F6E
326 110000001200436F6C756D6E735B315D2E43617074696F6E120000001200436F
327 6C756D6E735B325D2E43617074696F6E130000001200436F6C756D6E735B335D
328 2E43617074696F6E140000001200436F6C756D6E735B345D2E43617074696F6E
329 150000001200436F6C756D6E735B355D2E43617074696F6E160000001200436F
330 6C756D6E735B365D2E43617074696F6E001000706F704E6F7469666963617469
331 6F6E7300000A006D6E7550726F63657373010100000018000000070043617074
332 696F6E000A006D6E75466F727761726401010000001900000007004361707469
333 6F6E0002004E31000009006D6E7552656D6F766501010000001A000000070043
334 617074696F6E000B00526164696F47726F75703101020000001B000000070043
335 617074696F6E1C00000005004974656D73000900544D47636D64416464010100
336 00001D000000070043617074696F6E00}
337 end
338end
Note: See TracBrowser for help on using the repository browser.