source: cprs/branches/foia-cprs/CPRS-Chart/fMeds.dfm@ 459

Last change on this file since 459 was 459, checked in by Kevin Toppenberg, 17 years ago

Adding foia-cprs branch
File size: 11.9 KB
RevLine 
[459]1inherited frmMeds: TfrmMeds
2 Left = 255
3 Top = 53
4 Width = 734
5 Height = 681
6 HelpContext = 3000
7 Caption = 'Medications Page'
8 HelpFile = 'qnoback'
9 Menu = mnuMeds
10 OnDestroy = FormDestroy
11 OnResize = FormResize
12 OnShow = FormShow
13 PixelsPerInch = 96
14 TextHeight = 13
15 inherited shpPageBottom: TShape
16 Top = 524
17 Width = 1028
18 Height = -4
19 Align = alCustom
20 end
21 object splitTop: TSplitter
22 Left = 0
23 Top = 213
24 Width = 726
25 Height = 4
26 Cursor = crVSplit
27 Align = alBottom
28 AutoSnap = False
29 Color = clBtnFace
30 Constraints.MaxHeight = 4
31 Constraints.MinHeight = 4
32 MinSize = 100
33 ParentColor = False
34 OnMoved = splitTopMoved
35 end
36 object pnlBottom: TORAutoPanel
37 Left = 0
38 Top = 217
39 Width = 726
40 Height = 418
41 Align = alBottom
42 Caption = 'pnlBottom'
43 Constraints.MinHeight = 40
44 Ctl3D = False
45 ParentCtl3D = False
46 TabOrder = 0
47 object splitBottom: TSplitter
48 Left = 1
49 Top = 204
50 Width = 724
51 Height = 4
52 Cursor = crVSplit
53 Align = alBottom
54 AutoSnap = False
55 Color = clBtnFace
56 Constraints.MaxHeight = 4
57 Constraints.MinHeight = 4
58 MinSize = 60
59 ParentColor = False
60 OnMoved = splitBottomMoved
61 end
62 object pnlMedIn: TPanel
63 Left = 1
64 Top = 208
65 Width = 724
66 Height = 209
67 Align = alBottom
68 Caption = 'pnlMedIn'
69 Constraints.MinHeight = 40
70 TabOrder = 0
71 object lstMedsIn: TCaptionListBox
72 Tag = 2
73 Left = 1
74 Top = 17
75 Width = 722
76 Height = 191
77 Style = lbOwnerDrawVariable
78 Align = alClient
79 Color = clCream
80 Ctl3D = False
81 ItemHeight = 13
82 MultiSelect = True
83 ParentCtl3D = False
84 PopupMenu = popMed
85 TabOrder = 0
86 OnClick = lstMedsInClick
87 OnDblClick = lstMedsDblClick
88 OnDrawItem = lstMedsDrawItem
89 OnExit = lstMedsExit
90 OnMeasureItem = lstMedsMeasureItem
91 Caption = 'Inpatient Medications'
92 end
93 object hdrMedsIn: THeaderControl
94 Left = 1
95 Top = 1
96 Width = 722
97 Height = 16
98 BiDiMode = bdLeftToRight
99 DragReorder = False
100 Constraints.MaxHeight = 16
101 Constraints.MinHeight = 16
102 Sections = <
103 item
104 ImageIndex = -1
105 MinWidth = 42
106 Text = 'Action'
107 Width = 42
108 end
109 item
110 ImageIndex = -1
111 MinWidth = 20
112 Text = 'Inpatient Medications'
113 Width = 440
114 end
115 item
116 ImageIndex = -1
117 MinWidth = 16
118 Text = 'Stop Date'
119 Width = 62
120 end
121 item
122 ImageIndex = -1
123 MinWidth = 16
124 Text = 'Status'
125 Width = 62
126 end
127 item
128 ImageIndex = -1
129 Text = 'Location'
130 Width = 60
131 end>
132 OnSectionResize = hdrMedsInSectionResize
133 ParentBiDiMode = False
134 OnResize = hdrMedsInResize
135 end
136 end
137 object pnlNonVA: TPanel
138 Left = 1
139 Top = 1
140 Width = 724
141 Height = 203
142 Align = alClient
143 Caption = 'pnlNonVA'
144 Constraints.MinHeight = 40
145 TabOrder = 1
146 object lstMedsNonVA: TCaptionListBox
147 Tag = 3
148 Left = 1
149 Top = 17
150 Width = 722
151 Height = 185
152 Style = lbOwnerDrawVariable
153 Align = alClient
154 Color = clCream
155 Constraints.MinHeight = 40
156 Ctl3D = False
157 ItemHeight = 13
158 MultiSelect = True
159 ParentCtl3D = False
160 PopupMenu = popMed
161 TabOrder = 0
162 OnClick = lstMedsNonVAClick
163 OnDblClick = lstMedsDblClick
164 OnDrawItem = lstMedsDrawItem
165 OnExit = lstMedsExit
166 OnMeasureItem = lstMedsMeasureItem
167 Caption = 'Inpatient Medications'
168 end
169 object hdrMedsNonVA: THeaderControl
170 Left = 1
171 Top = 1
172 Width = 722
173 Height = 16
174 BiDiMode = bdLeftToRight
175 DragReorder = False
176 Constraints.MaxHeight = 16
177 Constraints.MinHeight = 16
178 Sections = <
179 item
180 ImageIndex = -1
181 MinWidth = 42
182 Text = 'Action'
183 Width = 42
184 end
185 item
186 ImageIndex = -1
187 MinWidth = 20
188 Text = 'Non-VA Medications'
189 Width = 516
190 end
191 item
192 ImageIndex = -1
193 MinWidth = 16
194 Text = 'Start Date'
195 Width = 62
196 end
197 item
198 ImageIndex = -1
199 MinWidth = 16
200 Text = 'Status'
201 Width = 62
202 end>
203 OnSectionResize = hdrMedsInSectionResize
204 ParentBiDiMode = False
205 OnResize = hdrMedsNonVAResize
206 end
207 end
208 end
209 object pnlTop: TORAutoPanel
210 Left = 0
211 Top = 0
212 Width = 726
213 Height = 213
214 Align = alClient
215 Caption = 'pnlTop'
216 Ctl3D = True
217 ParentCtl3D = False
218 TabOrder = 1
219 object lstMedsOut: TCaptionListBox
220 Tag = 1
221 Left = 1
222 Top = 17
223 Width = 724
224 Height = 195
225 Style = lbOwnerDrawVariable
226 Align = alClient
227 Color = clCream
228 Ctl3D = False
229 ItemHeight = 13
230 MultiSelect = True
231 ParentCtl3D = False
232 PopupMenu = popMed
233 TabOrder = 0
234 OnClick = lstMedsOutClick
235 OnDblClick = lstMedsDblClick
236 OnDrawItem = lstMedsDrawItem
237 OnExit = lstMedsExit
238 OnMeasureItem = lstMedsMeasureItem
239 Caption = 'Outpatient Medications'
240 end
241 object hdrMedsOut: THeaderControl
242 Left = 1
243 Top = 1
244 Width = 724
245 Height = 16
246 DragReorder = False
247 Constraints.MaxHeight = 100
248 Constraints.MinHeight = 16
249 Sections = <
250 item
251 ImageIndex = -1
252 MinWidth = 42
253 Text = 'Action'
254 Width = 42
255 end
256 item
257 ImageIndex = -1
258 MinWidth = 20
259 Text = 'Outpatient Medications'
260 Width = 400
261 end
262 item
263 ImageIndex = -1
264 MinWidth = 16
265 Text = 'Expires'
266 Width = 62
267 end
268 item
269 ImageIndex = -1
270 MinWidth = 16
271 Text = 'Status'
272 Width = 62
273 end
274 item
275 ImageIndex = -1
276 MinWidth = 16
277 Text = 'Last Filled'
278 Width = 62
279 end
280 item
281 ImageIndex = -1
282 MinWidth = 16
283 Text = 'Refills Remaining'
284 Width = 78
285 end>
286 OnSectionResize = hdrMedsOutSectionResize
287 OnResize = hdrMedsOutResize
288 end
289 end
290 object mnuMeds: TMainMenu
291 Left = 56
292 Top = 154
293 object mnuView: TMenuItem
294 Caption = '&View'
295 GroupIndex = 3
296 OnClick = mnuViewClick
297 object mnuViewChart: TMenuItem
298 Caption = 'Chart &Tab'
299 object mnuChartCover: TMenuItem
300 Tag = 1
301 Caption = 'Cover &Sheet'
302 ShortCut = 16467
303 OnClick = mnuChartTabClick
304 end
305 object mnuChartProbs: TMenuItem
306 Tag = 2
307 Caption = '&Problem List'
308 ShortCut = 16464
309 OnClick = mnuChartTabClick
310 end
311 object mnuChartMeds: TMenuItem
312 Tag = 3
313 Caption = '&Medications'
314 ShortCut = 16461
315 OnClick = mnuChartTabClick
316 end
317 object mnuChartOrders: TMenuItem
318 Tag = 4
319 Caption = '&Orders'
320 ShortCut = 16463
321 OnClick = mnuChartTabClick
322 end
323 object mnuChartNotes: TMenuItem
324 Tag = 6
325 Caption = 'Progress &Notes'
326 ShortCut = 16462
327 OnClick = mnuChartTabClick
328 end
329 object mnuChartCslts: TMenuItem
330 Tag = 7
331 Caption = 'Consul&ts'
332 ShortCut = 16468
333 OnClick = mnuChartTabClick
334 end
335 object mnuChartSurgery: TMenuItem
336 Tag = 11
337 Caption = 'S&urgery'
338 ShortCut = 16469
339 OnClick = mnuChartTabClick
340 end
341 object mnuChartDCSumm: TMenuItem
342 Tag = 8
343 Caption = '&Discharge Summaries'
344 ShortCut = 16452
345 OnClick = mnuChartTabClick
346 end
347 object mnuChartLabs: TMenuItem
348 Tag = 9
349 Caption = '&Laboratory'
350 ShortCut = 16460
351 OnClick = mnuChartTabClick
352 end
353 object mnuChartReports: TMenuItem
354 Tag = 10
355 Caption = '&Reports'
356 ShortCut = 16466
357 OnClick = mnuChartTabClick
358 end
359 end
360 object Z2: TMenuItem
361 Caption = '-'
362 end
363 object mnuViewActive: TMenuItem
364 Caption = '&Active Medications'
365 Visible = False
366 end
367 object mnuViewExpiring: TMenuItem
368 Caption = '&Expiring Medications'
369 Visible = False
370 end
371 object Z3: TMenuItem
372 Caption = '-'
373 Visible = False
374 end
375 object mnuViewSortClass: TMenuItem
376 Caption = 'Sort by &VA Drug Class'
377 Visible = False
378 end
379 object mnuViewSortName: TMenuItem
380 Caption = 'Sort by Drug &Name'
381 Visible = False
382 end
383 object Z4: TMenuItem
384 Caption = '-'
385 Visible = False
386 end
387 object mnuViewDetail: TMenuItem
388 Caption = '&Details...'
389 OnClick = mnuViewDetailClick
390 end
391 object mnuViewHistory: TMenuItem
392 Caption = 'Administration &History...'
393 OnClick = mnuViewHistoryClick
394 end
395 end
396 object mnuAct: TMenuItem
397 Caption = '&Action'
398 GroupIndex = 4
399 OnClick = mnuActClick
400 object mnuActNew: TMenuItem
401 Caption = '&New Medication...'
402 OnClick = mnuActNewClick
403 end
404 object Z1: TMenuItem
405 Caption = '-'
406 end
407 object mnuActChange: TMenuItem
408 Caption = '&Change...'
409 OnClick = mnuActChangeClick
410 end
411 object mnuActDC: TMenuItem
412 Caption = '&Discontinue / Cancel...'
413 OnClick = mnuActDCClick
414 end
415 object mnuActHold: TMenuItem
416 Caption = '&Hold...'
417 OnClick = mnuActHoldClick
418 end
419 object mnuActRenew: TMenuItem
420 Caption = 'Rene&w...'
421 OnClick = mnuActRenewClick
422 end
423 object mnuActCopy: TMenuItem
424 Caption = 'Co&py to New Order...'
425 OnClick = mnuActCopyClick
426 end
427 object mnuActTransfer: TMenuItem
428 Caption = '&Transfer to...'
429 OnClick = mnuActCopyClick
430 end
431 object mnuActRefill: TMenuItem
432 Caption = 'R&efill...'
433 OnClick = mnuActRefillClick
434 end
435 end
436 end
437 object popMed: TPopupMenu
438 OnPopup = popMedPopup
439 Left = 116
440 Top = 155
441 object popMedDetails: TMenuItem
442 Caption = 'Detai&ls...'
443 OnClick = mnuViewDetailClick
444 end
445 object popMedHistory: TMenuItem
446 Caption = 'Administration &History...'
447 OnClick = mnuViewHistoryClick
448 end
449 object N1: TMenuItem
450 Caption = '-'
451 end
452 object popMedChange: TMenuItem
453 Caption = '&Change...'
454 OnClick = mnuActChangeClick
455 end
456 object popMedDC: TMenuItem
457 Caption = '&Discontinue...'
458 OnClick = mnuActDCClick
459 end
460 object popMedRefill: TMenuItem
461 Caption = 'R&efill...'
462 OnClick = mnuActRefillClick
463 end
464 object popMedRenew: TMenuItem
465 Caption = 'Rene&w...'
466 OnClick = mnuActRenewClick
467 end
468 object N2: TMenuItem
469 Caption = '-'
470 end
471 object popMedNew: TMenuItem
472 Caption = '&New Medication...'
473 OnClick = mnuActNewClick
474 end
475 end
476end
Note: See TracBrowser for help on using the repository browser.