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

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

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