source: cprs/trunk/CPRS-Chart/fPtSel.dfm@ 661

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

Initial Upload of Official WV CPRS 1.0.26.76

File size: 6.5 KB
Line 
1object frmPtSel: TfrmPtSel
2 Left = 194
3 Top = 131
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,Full SSN ,Last 4 (x1234),'#39'HRN'#39',DOB, or Phone#'
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,60'
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 = 698
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 = 698
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 = 265
139 Width = 175
140 Height = 18
141 Caption = 'Save Patient List Settings'
142 TabOrder = 0
143 OnClick = cmdSaveListClick
144 end
145 object RadioGroup1: TRadioGroup
146 Left = 464
147 Top = 192
148 Width = 313
149 Height = 65
150 Caption = 'Specific "In-Depth" Lookup by '
151 ItemIndex = 0
152 Items.Strings = (
153 '&None of the below'
154 '&PHONE NUMBER [RESIDENCE]'
155 '&DATE OF BIRTH')
156 TabOrder = 4
157 OnClick = onclick1
158 end
159 end
160 object pnlNotifications: TORAutoPanel
161 Left = 0
162 Top = 520
163 Width = 785
164 Height = 35
165 Align = alBottom
166 BevelOuter = bvNone
167 TabOrder = 2
168 Visible = False
169 object cmdProcessInfo: TButton
170 Left = 11
171 Top = 10
172 Width = 95
173 Height = 21
174 Caption = 'Process Info'
175 TabOrder = 0
176 OnClick = cmdProcessInfoClick
177 end
178 object cmdProcessAll: TButton
179 Left = 120
180 Top = 10
181 Width = 95
182 Height = 21
183 Caption = 'Process All'
184 TabOrder = 1
185 OnClick = cmdProcessAllClick
186 end
187 object cmdProcess: TButton
188 Left = 229
189 Top = 10
190 Width = 95
191 Height = 21
192 Caption = 'Process'
193 Enabled = False
194 TabOrder = 2
195 OnClick = cmdProcessClick
196 end
197 object cmdForward: TButton
198 Left = 335
199 Top = 10
200 Width = 95
201 Height = 21
202 Caption = 'Forward'
203 Enabled = False
204 TabOrder = 4
205 OnClick = cmdForwardClick
206 end
207 object cmdRemove: TButton
208 Left = 490
209 Top = 10
210 Width = 95
211 Height = 21
212 Caption = 'Remove'
213 Enabled = False
214 TabOrder = 3
215 OnClick = cmdRemoveClick
216 end
217 end
218 object lstvAlerts: TCaptionListView
219 Left = 0
220 Top = 311
221 Width = 785
222 Height = 209
223 Align = alClient
224 Columns = <
225 item
226 Caption = 'Info'
227 Width = 30
228 end
229 item
230 Caption = 'Patient'
231 Tag = 1
232 Width = 120
233 end
234 item
235 Caption = 'Location'
236 Tag = 2
237 Width = 60
238 end
239 item
240 Caption = 'Urgency'
241 Tag = 3
242 Width = 67
243 end
244 item
245 Caption = 'Alert Date/Time'
246 Tag = 4
247 Width = 110
248 end
249 item
250 Caption = 'Message'
251 Tag = 5
252 Width = 280
253 end
254 item
255 Caption = 'Forwarded By/When'
256 Tag = 6
257 Width = 180
258 end>
259 HoverTime = 0
260 IconOptions.WrapText = False
261 MultiSelect = True
262 ReadOnly = True
263 RowSelect = True
264 ParentShowHint = False
265 PopupMenu = popNotifications
266 ShowWorkAreas = True
267 ShowHint = True
268 TabOrder = 1
269 ViewStyle = vsReport
270 OnColumnClick = lstvAlertsColumnClick
271 OnCompare = lstvAlertsCompare
272 OnDblClick = lstvAlertsDblClick
273 OnInfoTip = lstvAlertsInfoTip
274 OnKeyDown = lstvAlertsKeyDown
275 OnSelectItem = lstvAlertsSelectItem
276 Caption = 'Notifications'
277 end
278 object popNotifications: TPopupMenu
279 Left = 508
280 Top = 323
281 object mnuProcess: TMenuItem
282 Caption = 'Process'
283 OnClick = cmdProcessClick
284 end
285 object mnuForward: TMenuItem
286 Caption = 'Forward'
287 OnClick = cmdForwardClick
288 end
289 object N1: TMenuItem
290 Caption = '-'
291 end
292 object mnuRemove: TMenuItem
293 Caption = 'Remove'
294 OnClick = cmdRemoveClick
295 end
296 end
297end
Note: See TracBrowser for help on using the repository browser.